diff --git a/cmake/lapack.cmake b/cmake/lapack.cmake index be3aead4cc..f8a27f5d41 100644 --- a/cmake/lapack.cmake +++ b/cmake/lapack.cmake @@ -2,12 +2,13 @@ if (NOT C_LAPACK) message (STATUS "fortran lapack") set(ALLAUX ilaenv.f ilaenv2stage.f ieeeck.f lsamen.f iparmq.f iparam2stage.F - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f la_xisnan.F90 ../INSTALL/ilaver.f xerbla_array.f ../INSTALL/slamch.f) set(SCLAUX scombssq.f sbdsvdx.f sstevx.f sstein.f + la_constants.f90 sbdsdc.f sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f @@ -16,16 +17,17 @@ set(SCLAUX slapy2.f slapy3.f slarnv.f slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f slarrk.f slarrr.f slaneg.f - slartg.f slaruv.f slas2.f slascl.f + slartg.f90 slaruv.f slas2.f slascl.f slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f slasd7.f slasd8.f slasda.f slasdq.f slasdt.f slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f - slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f + slasr.f slasrt.f slassq.f90 slasv2.f spttrf.f sstebz.f sstedc.f ssteqr.f ssterf.f slaisnan.f sisnan.f - slartgp.f slartgs.f + slartgp.f slartgs.f ../INSTALL/sroundup_lwork.f ../INSTALL/second_${TIMER}.f) set(DZLAUX + la_constants.f90 dbdsdc.f dbdsvdx.f dstevx.f dstein.f dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f @@ -35,13 +37,13 @@ set(DZLAUX dlapy2.f dlapy3.f dlarnv.f dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f dlarrk.f dlarrr.f dlaneg.f - dlartg.f dlaruv.f dlas2.f dlascl.f + dlartg.f90 dlaruv.f dlas2.f dlascl.f dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f - dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f + dlasr.f dlasrt.f dlassq.f90 dlasv2.f dpttrf.f dstebz.f dstedc.f dsteqr.f dsterf.f dlaisnan.f disnan.f - dlartgp.f dlartgs.f + dlartgp.f dlartgs.f ../INSTALL/droundup_lwork.f ../INSTALL/dlamch.f ../INSTALL/dsecnd_${TIMER}.f) set(SLASRC @@ -59,6 +61,7 @@ set(SLASRC sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f shsein.f shseqr.f slabrd.f slacon.f slacn2.f + slaqz0.f slaqz1.f slaqz2.f slaqz3.f slaqz4.f slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f @@ -171,10 +174,11 @@ set(CLASRC clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f + claqz0.f claqz1.f claqz2.f claqz3.f claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f clarf.f clarfb.f clarfb_gett.f clarfg.f clarfgp.f clarft.f - clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f clartv.f - clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f + clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f90 clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f90 clasyf.f clasyf_rook.f clasyf_rk.f clasyf_aa.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f @@ -245,6 +249,7 @@ set(DLASRC dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dlaqz0.f dlaqz1.f dlaqz2.f dlaqz3.f dlaqz4.f dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f @@ -346,6 +351,7 @@ set(ZLASRC zhetrs_3.f zhecon_3.f zhesv_rk.f zhesv_aa.f zhesv_aa_2stage.f zhetrf_aa.f zhetrf_aa_2stage.f zhetrs_aa.f zhetrs_aa_2stage.f zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zlaqz0.f zlaqz1.f zlaqz2.f zlaqz3.f zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f zhpsvx.f zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f @@ -363,9 +369,9 @@ set(ZLASRC zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f zlarcm.f zlarf.f zlarfb.f zlarfb_gett.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f90 zlartv.f zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f + zlassq.f90 zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f diff --git a/exports/gensymbol b/exports/gensymbol index e7210a030e..83222a2157 100644 --- a/exports/gensymbol +++ b/exports/gensymbol @@ -1,4 +1,4 @@ -#!/usr/bin/env perl +#!/bin/sh # Changelog # 2017/09/03 staticfloat @@ -16,3918 +16,4005 @@ # 2017/08/01 Saar # removed blas_thread_shutdown_ # -@blasobjsc = ( - caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, - chbmv,chemm,chemv,cher2,cher2k,cher,cherk,scabs1,scamax, - chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,scamin,scasum,scnrm2, - csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, - ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum); - -@blasobjsd = ( - damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm, - dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, - dscal,dsdot,dspmv,dspr2,dimatcopy,domatcopy, - dspr,dswap,dsymm,dsymv,dsyr2,dsyr2k,dsyr,dsyrk,dtbmv,dtbsv, - dtpmv,dtpsv,dtrmm,dtrmv,dtrsm,dtrsv, - idamax,idamin,idmax,idmin,dgeadd,dsum); - -@blasobjss = ( - isamax,isamin,ismax,ismin, - samax,samin,sasum,saxpy, saxpby, - scopy,sdot,sdsdot,sgbmv,sgemm,sgemv,sger, - smax,smin,snrm2,simatcopy,somatcopy, - srot,srotg,srotm,srotmg,ssbmv,sscal,sspmv,sspr2,sspr,sswap, - ssymm,ssymv,ssyr2,ssyr2k,ssyr,ssyrk,stbmv,stbsv,stpmv,stpsv, - strmm,strmv,strsm,strsv, sgeadd,ssum); - -@blasobjsz = ( - izamax,izamin,, - zaxpy,zaxpby,zcopy,zdotc,zdotu,zdrot, - zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, - zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, - zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, - ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, - zomatcopy, zimatcopy,dzamax,dzamin,dzasum,dznrm2, - zgeadd, dzsum); - -@blasobjs = (lsame, xerbla); -@bfblasobjs = (sbgemm, sbgemv, sbdot, sbstobf16, sbdtobf16, sbf16tos, dbf16tod); -@cblasobjsc = ( - cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv, - cblas_cgerc, cblas_cgeru, cblas_chbmv, cblas_chemm, cblas_chemv, cblas_cher2, cblas_cher2k, - cblas_cher, cblas_cherk, cblas_chpmv, cblas_chpr2, cblas_chpr, cblas_cscal, cblas_caxpby, - cblas_csscal, cblas_cswap, cblas_csymm, cblas_csyr2k, cblas_csyrk, cblas_ctbmv, cblas_cgeadd, - cblas_ctbsv, cblas_ctpmv, cblas_ctpsv, cblas_ctrmm, cblas_ctrmv, cblas_ctrsm, cblas_ctrsv, - cblas_scnrm2, cblas_scasum, - cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy - ); -@cblasobjsd = ( - cblas_dasum, cblas_daxpy, cblas_dcopy, cblas_ddot, - cblas_dgbmv, cblas_dgemm, cblas_dgemv, cblas_dger, cblas_dnrm2, - cblas_drot, cblas_drotg, cblas_drotm, cblas_drotmg, cblas_dsbmv, cblas_dscal, cblas_dsdot, - cblas_dspmv, cblas_dspr2, cblas_dspr, cblas_dswap, cblas_dsymm, cblas_dsymv, cblas_dsyr2, - cblas_dsyr2k, cblas_dsyr, cblas_dsyrk, cblas_dtbmv, cblas_dtbsv, cblas_dtpmv, cblas_dtpsv, - cblas_dtrmm, cblas_dtrmv, cblas_dtrsm, cblas_dtrsv, cblas_daxpby, cblas_dgeadd, - cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy - ); - -@cblasobjss = ( - cblas_sasum, cblas_saxpy, cblas_saxpby, - cblas_scopy, cblas_sdot, cblas_sdsdot, cblas_sgbmv, cblas_sgemm, - cblas_sgemv, cblas_sger, cblas_snrm2, cblas_srot, cblas_srotg, - cblas_srotm, cblas_srotmg, cblas_ssbmv, cblas_sscal, cblas_sspmv, cblas_sspr2, cblas_sspr, - cblas_sswap, cblas_ssymm, cblas_ssymv, cblas_ssyr2, cblas_ssyr2k, cblas_ssyr, cblas_ssyrk, - cblas_stbmv, cblas_stbsv, cblas_stpmv, cblas_stpsv, cblas_strmm, cblas_strmv, cblas_strsm, - cblas_strsv, cblas_sgeadd, - cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy - ); -@cblasobjsz = ( - cblas_dzasum, cblas_dznrm2, cblas_zaxpy, cblas_zcopy, cblas_zdotc, cblas_zdotu, cblas_zdscal, - cblas_zgbmv, cblas_zgemm, cblas_zgemv, cblas_zgerc, cblas_zgeru, cblas_zhbmv, cblas_zhemm, - cblas_zhemv, cblas_zher2, cblas_zher2k, cblas_zher, cblas_zherk, cblas_zhpmv, cblas_zhpr2, - cblas_zhpr, cblas_zscal, cblas_zswap, cblas_zsymm, cblas_zsyr2k, cblas_zsyrk, - cblas_ztbmv, cblas_ztbsv, cblas_ztpmv, cblas_ztpsv, cblas_ztrmm, cblas_ztrmv, cblas_ztrsm, - cblas_ztrsv, cblas_cdotc_sub, cblas_cdotu_sub, cblas_zdotc_sub, cblas_zdotu_sub, - cblas_zaxpby, cblas_zgeadd, - cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy -); - -@cblasobjs = ( cblas_xerbla ); - -@bfcblasobjs = (cblas_sbgemm, cblas_sbgemv, cblas_sbdot, cblas_sbstobf16, cblas_sbdtobf16, cblas_sbf16tos, cblas_dbf16tod); - -@exblasobjs = ( - qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm, - qgemv,qger,qmax,qmin, - qnrm2, - qsbmv,qscal,qspmv,qspr2, - qspr,qswap,qsymm,qsymv,qsyr2,qsyr2k,qsyr,qsyrk,qtbmv,qtbsv, - qtpmv,qtpsv,qtrmm,qtrmv,qtrsm,qtrsv, - qxamax,qxamin,qxasum,qxnrm2, - xaxpy,xcopy,xdotc,xdotu, - xqscal,xgbmv,xgemm,xgemv,xgerc,xgeru, - xhbmv,xhemm,xhemv,xher2,xher2k,xher,xherk,xhpmv,xhpr2, - xhpr,xscal,xswap,xsymm,xsyr2k,xsyrk,xtbmv, - xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv, -# qrot,qrotg,qrotm,qrotmg, -# xdrot,xrotg, -); - - @gemm3mobjs=(); - - @cblasgemm3mobjs=(); - -@gemm3mobjsc = ( - cgemm3m, -); -@gemm3mobjsz = ( +blasobjsc=" + caxpy caxpby ccopy cdotc cdotu cgbmv cgemm cgemv cgerc cgeru + chbmv chemm chemv cher2 cher2k cher cherk scabs1 scamax + chpmv chpr2 chpr crotg cscal csrot csscal cswap scamin scasum scnrm2 + csymm csyr2k csyrk ctbmv ctbsv ctpmv ctpsv ctrmm ctrmv ctrsm + ctrsv icamax icamin cimatcopy comatcopy cgeadd scsum" + +blasobjsd=" + damax damin dasum daxpy daxpby dcabs1 dcopy ddot dgbmv dgemm + dgemv dger dmax dmin dnrm2 drot drotg drotm drotmg dsbmv + dscal dsdot dspmv dspr2 dimatcopy domatcopy + dspr dswap dsymm dsymv dsyr2 dsyr2k dsyr dsyrk dtbmv dtbsv + dtpmv dtpsv dtrmm dtrmv dtrsm dtrsv + idamax idamin idmax idmin dgeadd dsum" + +blasobjss=" + isamax isamin ismax ismin + samax samin sasum saxpy saxpby + scopy sdot sdsdot sgbmv sgemm sgemv sger + smax smin snrm2 simatcopy somatcopy + srot srotg srotm srotmg ssbmv sscal sspmv sspr2 sspr sswap + ssymm ssymv ssyr2 ssyr2k ssyr ssyrk stbmv stbsv stpmv stpsv + strmm strmv strsm strsv sgeadd ssum" + +blasobjsz=" + izamax izamin + zaxpy zaxpby zcopy zdotc zdotu zdrot + zdscal zgbmv zgemm zgemv zgerc zgeru + zhbmv zhemm zhemv zher2 zher2k zher zherk zhpmv zhpr2 + zhpr zrotg zscal zswap zsymm zsyr2k zsyrk ztbmv + ztbsv ztpmv ztpsv ztrmm ztrmv ztrsm ztrsv + zomatcopy zimatcopy dzamax dzamin dzasum dznrm2 + zgeadd dzsum" + +blasobjs="lsame xerbla" +bfblasobjs="sbgemm sbgemv sbdot sbstobf16 sbdtobf16 sbf16tos dbf16tod" +cblasobjsc=" + cblas_caxpy cblas_ccopy cblas_cdotc cblas_cdotu cblas_cgbmv cblas_cgemm cblas_cgemv + cblas_cgerc cblas_cgeru cblas_chbmv cblas_chemm cblas_chemv cblas_cher2 cblas_cher2k + cblas_cher cblas_cherk cblas_chpmv cblas_chpr2 cblas_chpr cblas_cscal cblas_caxpby + cblas_csscal cblas_cswap cblas_csymm cblas_csyr2k cblas_csyrk cblas_ctbmv cblas_cgeadd + cblas_ctbsv cblas_ctpmv cblas_ctpsv cblas_ctrmm cblas_ctrmv cblas_ctrsm cblas_ctrsv + cblas_scnrm2 cblas_scasum + cblas_icamax cblas_icamin cblas_icmin cblas_icmax cblas_scsum cblas_cimatcopy cblas_comatcopy + " +cblasobjsd=" + cblas_dasum cblas_daxpy cblas_dcopy cblas_ddot + cblas_dgbmv cblas_dgemm cblas_dgemv cblas_dger cblas_dnrm2 + cblas_drot cblas_drotg cblas_drotm cblas_drotmg cblas_dsbmv cblas_dscal cblas_dsdot + cblas_dspmv cblas_dspr2 cblas_dspr cblas_dswap cblas_dsymm cblas_dsymv cblas_dsyr2 + cblas_dsyr2k cblas_dsyr cblas_dsyrk cblas_dtbmv cblas_dtbsv cblas_dtpmv cblas_dtpsv + cblas_dtrmm cblas_dtrmv cblas_dtrsm cblas_dtrsv cblas_daxpby cblas_dgeadd + cblas_idamax cblas_idamin cblas_idmin cblas_idmax cblas_dsum cblas_dimatcopy cblas_domatcopy + " + +cblasobjss=" + cblas_sasum cblas_saxpy cblas_saxpby + cblas_scopy cblas_sdot cblas_sdsdot cblas_sgbmv cblas_sgemm + cblas_sgemv cblas_sger cblas_snrm2 cblas_srot cblas_srotg + cblas_srotm cblas_srotmg cblas_ssbmv cblas_sscal cblas_sspmv cblas_sspr2 cblas_sspr + cblas_sswap cblas_ssymm cblas_ssymv cblas_ssyr2 cblas_ssyr2k cblas_ssyr cblas_ssyrk + cblas_stbmv cblas_stbsv cblas_stpmv cblas_stpsv cblas_strmm cblas_strmv cblas_strsm + cblas_strsv cblas_sgeadd + cblas_isamax cblas_isamin cblas_ismin cblas_ismax cblas_ssum cblas_simatcopy cblas_somatcopy + " + +cblasobjsz=" + cblas_dzasum cblas_dznrm2 cblas_zaxpy cblas_zcopy cblas_zdotc cblas_zdotu cblas_zdscal + cblas_zgbmv cblas_zgemm cblas_zgemv cblas_zgerc cblas_zgeru cblas_zhbmv cblas_zhemm + cblas_zhemv cblas_zher2 cblas_zher2k cblas_zher cblas_zherk cblas_zhpmv cblas_zhpr2 + cblas_zhpr cblas_zscal cblas_zswap cblas_zsymm cblas_zsyr2k cblas_zsyrk + cblas_ztbmv cblas_ztbsv cblas_ztpmv cblas_ztpsv cblas_ztrmm cblas_ztrmv cblas_ztrsm + cblas_ztrsv cblas_cdotc_sub cblas_cdotu_sub cblas_zdotc_sub cblas_zdotu_sub + cblas_zaxpby cblas_zgeadd + cblas_izamax cblas_izamin cblas_izmin cblas_izmax cblas_dzsum cblas_zimatcopy cblas_zomatcopy +" + +cblasobjs="cblas_xerbla" + +bfcblasobjs="cblas_sbgemm cblas_sbgemv cblas_sbdot cblas_sbstobf16 cblas_sbdtobf16 cblas_sbf16tos cblas_dbf16tod" + +exblasobjs=" + qamax qamin qasum qaxpy qcabs1 qcopy qdot qgbmv qgemm + qgemv qger qmax qmin + qnrm2 + qsbmv qscal qspmv qspr2 + qspr qswap qsymm qsymv qsyr2 qsyr2k qsyr qsyrk qtbmv qtbsv + qtpmv qtpsv qtrmm qtrmv qtrsm qtrsv + qxamax qxamin qxasum qxnrm2 + xaxpy xcopy xdotc xdotu + xqscal xgbmv xgemm xgemv xgerc xgeru + xhbmv xhemm xhemv xher2 xher2k xher xherk xhpmv xhpr2 + xhpr xscal xswap xsymm xsyr2k xsyrk xtbmv + xtbsv xtpmv xtpsv xtrmm xtrmv xtrsm xtrsv +" +# qrot,qrotg,qrotm,qrotmg, +# xdrot,xrotg, + +gemm3mobj="" + +cblasgemm3mobj="" + +gemm3mobjsc=" + cgemm3m +" +gemm3mobjsz=" zgemm3m -); +" -@cblasgemm3mobjsc = ( +cblasgemm3mobjsc=" cblas_cgemm3m -); -@cblasgemm3mobjsz = ( +" +cblasgemm3mobjsz=" cblas_zgemm3m -); +" #both underscore and no underscore -@misc_common_objs = ( - openblas_get_parallel, - openblas_get_num_procs, - openblas_set_num_threads, - openblas_get_num_threads, -); - -@misc_no_underscore_objs = ( - goto_set_num_threads, - openblas_get_config, - openblas_get_corename, -); - -@misc_underscore_objs = ( -); - -@lapackobjss = ( - # These routines are provided by OpenBLAS. - sgesv, - sgetf2, - sgetrf, - slaswp, - sgetrs, - slauu2, - slauum, - spotf2, - spotrf, - strti2, - strtri, - spotri, -); - -@lapackobjsd = ( - dgesv, - dgetf2, - dgetrf, - dlaswp, - dgetrs, - dlauu2, - dlauum, - dpotf2, - dpotrf, - dtrti2, - dtrtri, - dpotri, -); - -@lapackobjsc = ( -cgesv, -cgetf2, -cgetrf, -claswp, -cgetrs, -clauu2, -clauum, -cpotf2, -cpotrf, -ctrti2, -ctrtri, -cpotri, -); - -@lapackobjsz = ( -zgesv, -zgetf2, -zgetrf, -zlaswp, -zgetrs, -zlauu2, -zlauum, -zpotf2, -zpotrf, -ztrti2, -ztrtri, -zpotri, -); - - -@lapackobjs2 = ( - # These routines are provided by LAPACK (reference implementation). - # - # This list is prepared by copying all routines listed in - # `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. - # Thereafter the following routines should be removed: - # - those provided by OpenBLAS (see @lapackobjs) - # - extra precision routines (see @lapack_extendedprecision_objs) - # Each of these have been marked individually with "already provided" or "excluded". - - # ALLAUX -- Auxiliary routines called from all precisions - # already provided by @blasobjs: xerbla, lsame - ilaenv, ieeeck, lsamen, iparmq, - ilaprec, ilatrans, ilauplo, iladiag, - ilaver, slamch, slamc3, -); - -@lapackobjs2sc = ( - # SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. - # excluded: second_$(TIMER) - sbdsdc, - sbdsqr, sdisna, slabad, slacpy, sladiv, slae2, slaebz, - slaed0, slaed1, slaed2, slaed3, slaed4, slaed5, slaed6, - slaed7, slaed8, slaed9, slaeda, slaev2, slagtf, - slagts, slamrg, slanst, - slapy2, slapy3, slarnv, - slarra, slarrb, slarrc, slarrd, slarre, slarrf, slarrj, - slarrk, slarrr, slaneg, - slartg, slaruv, slas2, slascl, - slasd0, slasd1, slasd2, slasd3, slasd4, slasd5, slasd6, - slasd7, slasd8, slasda, slasdq, slasdt, - slaset, slasq1, slasq2, slasq3, slasq4, slasq5, slasq6, - slasr, slasrt, slassq, slasv2, spttrf, sstebz, sstedc, - ssteqr, ssterf, slaisnan, sisnan, - slartgp, slartgs, -); - -@lapackobjs2dz = ( - # DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. - # excluded: dsecnd_$(TIMER) - dbdsdc, - dbdsqr, ddisna, dlabad, dlacpy, dladiv, dlae2, dlaebz, - dlaed0, dlaed1, dlaed2, dlaed3, dlaed4, dlaed5, dlaed6, - dlaed7, dlaed8, dlaed9, dlaeda, dlaev2, dlagtf, - dlagts, dlamrg, dlanst, - dlapy2, dlapy3, dlarnv, - dlarra, dlarrb, dlarrc, dlarrd, dlarre, dlarrf, dlarrj, - dlarrk, dlarrr, dlaneg, - dlartg, dlaruv, dlas2, dlascl, - dlasd0, dlasd1, dlasd2, dlasd3, dlasd4, dlasd5, dlasd6, - dlasd7, dlasd8, dlasda, dlasdq, dlasdt, - dlaset, dlasq1, dlasq2, dlasq3, dlasq4, dlasq5, dlasq6, - dlasr, dlasrt, dlassq, dlasv2, dpttrf, dstebz, dstedc, - dsteqr, dsterf, dlaisnan, disnan, - dlartgp, dlartgs, - dlamch, dlamc3, -); - -@lapackobjs2s = ( - # SLASRC -- Single precision real LAPACK routines - # already provided by @lapackobjs: - # sgesv, sgetf2, slaswp, slauu2, slauum, spotf2, spotri, strti2, strtri - sgbbrd, sgbcon, sgbequ, sgbrfs, sgbsv, - sgbsvx, sgbtf2, sgbtrf, sgbtrs, sgebak, sgebal, sgebd2, - sgebrd, sgecon, sgeequ, sgees, sgeesx, sgeev, sgeevx, - sgehd2, sgehrd, sgelq2, sgelqf, - sgels, sgelsd, sgelss, sgelsy, sgeql2, sgeqlf, - sgeqp3, sgeqr2, sgeqr2p, sgeqrf, sgeqrfp, sgerfs, - sgerq2, sgerqf, sgesc2, sgesdd, sgesvd, sgesvx, - sgetc2, sgetri, - sggbak, sggbal, sgges, sggesx, sggev, sggevx, - sggglm, sgghrd, sgglse, sggqrf, - sggrqf, sgtcon, sgtrfs, sgtsv, - sgtsvx, sgttrf, sgttrs, sgtts2, shgeqz, - shsein, shseqr, slabrd, slacon, slacn2, - slaein, slaexc, slag2, slags2, slagtm, slagv2, slahqr, - slahr2, slaic1, slaln2, slals0, slalsa, slalsd, - slangb, slange, slangt, slanhs, slansb, slansp, - slansy, slantb, slantp, slantr, slanv2, - slapll, slapmt, - slaqgb, slaqge, slaqp2, slaqps, slaqsb, slaqsp, slaqsy, - slaqr0, slaqr1, slaqr2, slaqr3, slaqr4, slaqr5, - slaqtr, slar1v, slar2v, ilaslr, ilaslc, - slarf, slarfb, slarfg, slarfgp, slarft, slarfx, slargv, - slarrv, slartv, - slarz, slarzb, slarzt, slasy2, slasyf, - slatbs, slatdf, slatps, slatrd, slatrs, slatrz, - sopgtr, sopmtr, sorg2l, sorg2r, - sorgbr, sorghr, sorgl2, sorglq, sorgql, sorgqr, sorgr2, - sorgrq, sorgtr, sorm2l, sorm2r, - sormbr, sormhr, sorml2, sormlq, sormql, sormqr, sormr2, - sormr3, sormrq, sormrz, sormtr, spbcon, spbequ, spbrfs, - spbstf, spbsv, spbsvx, - spbtf2, spbtrf, spbtrs, spocon, spoequ, sporfs, sposv, - sposvx, spstrf, spstf2, - sppcon, sppequ, - spprfs, sppsv, sppsvx, spptrf, spptri, spptrs, sptcon, - spteqr, sptrfs, sptsv, sptsvx, spttrs, sptts2, srscl, - ssbev, ssbevd, ssbevx, ssbgst, ssbgv, ssbgvd, ssbgvx, - ssbtrd, sspcon, sspev, sspevd, sspevx, sspgst, - sspgv, sspgvd, sspgvx, ssprfs, sspsv, sspsvx, ssptrd, - ssptrf, ssptri, ssptrs, sstegr, sstein, sstev, sstevd, sstevr, - sstevx, - ssycon, ssyev, ssyevd, ssyevr, ssyevx, ssygs2, - ssygst, ssygv, ssygvd, ssygvx, ssyrfs, ssysv, ssysvx, - ssytd2, ssytf2, ssytrd, ssytrf, ssytri, ssytri2, ssytri2x, - ssyswapr, ssytrs, ssytrs2, ssyconv, - stbcon, - stbrfs, stbtrs, stgevc, stgex2, stgexc, stgsen, - stgsja, stgsna, stgsy2, stgsyl, stpcon, stprfs, stptri, - stptrs, - strcon, strevc, strexc, strrfs, strsen, strsna, strsyl, - strtrs, stzrzf, sstemr, - slansf, spftrf, spftri, spftrs, ssfrk, stfsm, stftri, stfttp, - stfttr, stpttf, stpttr, strttf, strttp, - sgejsv, sgesvj, sgsvj0, sgsvj1, - sgeequb, ssyequb, spoequb, sgbequb, - sbbcsd, slapmr, sorbdb, sorbdb1, sorbdb2, sorbdb3, sorbdb4, - sorbdb5, sorbdb6, sorcsd, sorcsd2by1, - sgeqrt, sgeqrt2, sgeqrt3, sgemqrt, - stpqrt, stpqrt2, stpmqrt, stprfb, -); - -@lapackobjs2ds = ( - # DSLASRC -- Double-single mixed precision real routines called from - # single, single-extra and double precision real LAPACK - # routines (i.e. from SLASRC, SXLASRC, DLASRC). - # - # already provided by @lapackobjs: - # sgetrs, spotrf, sgetrf - spotrs, -); - -@lapackobjs2c = ( - # CLASRC -- Single precision complex LAPACK routines - # already provided by @blasobjs: - # already provided by @lapackobjs: - # cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri - cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx, - cgbtf2, cgbtrf, cgbtrs, cgebak, cgebal, cgebd2, cgebrd, - cgecon, cgeequ, cgees, cgeesx, cgeev, cgeevx, - cgehd2, cgehrd, cgelq2, cgelqf, - cgels, cgelsd, cgelss, cgelsy, cgeql2, cgeqlf, cgeqp3, - cgeqr2, cgeqr2p, cgeqrf, cgeqrfp, cgerfs, - cgerq2, cgerqf, cgesc2, cgesdd, cgesvd, - cgesvx, cgetc2, cgetri, - cggbak, cggbal, cgges, cggesx, cggev, cggevx, cggglm, - cgghrd, cgglse, cggqrf, cggrqf, - cgtcon, cgtrfs, cgtsv, cgtsvx, cgttrf, cgttrs, cgtts2, chbev, - chbevd, chbevx, chbgst, chbgv, chbgvd, chbgvx, chbtrd, - checon, cheev, cheevd, cheevr, cheevx, chegs2, chegst, - chegv, chegvd, chegvx, cherfs, chesv, chesvx, chetd2, - chetf2, chetrd, - chetrf, chetri, chetri2, chetri2x, cheswapr, - chetrs, chetrs2, chgeqz, chpcon, chpev, chpevd, - chpevx, chpgst, chpgv, chpgvd, chpgvx, chprfs, chpsv, - chpsvx, - chptrd, chptrf, chptri, chptrs, chsein, chseqr, clabrd, - clacgv, clacon, clacn2, clacp2, clacpy, clacrm, clacrt, cladiv, - claed0, claed7, claed8, - claein, claesy, claev2, clags2, clagtm, - clahef, clahqr, - clahr2, claic1, clals0, clalsa, clalsd, clangb, clange, clangt, - clanhb, clanhe, - clanhp, clanhs, clanht, clansb, clansp, clansy, clantb, - clantp, clantr, clapll, clapmt, clarcm, claqgb, claqge, - claqhb, claqhe, claqhp, claqp2, claqps, claqsb, - claqr0, claqr1, claqr2, claqr3, claqr4, claqr5, - claqsp, claqsy, clar1v, clar2v, ilaclr, ilaclc, - clarf, clarfb, clarfg, clarft, clarfgp, - clarfx, clargv, clarnv, clarrv, clartg, clartv, - clarz, clarzb, clarzt, clascl, claset, clasr, classq, - clasyf, clatbs, clatdf, clatps, clatrd, clatrs, clatrz, - cpbcon, cpbequ, cpbrfs, cpbstf, cpbsv, - cpbsvx, cpbtf2, cpbtrf, cpbtrs, cpocon, cpoequ, cporfs, - cposv, cposvx, cpstrf, cpstf2, - cppcon, cppequ, cpprfs, cppsv, cppsvx, cpptrf, cpptri, cpptrs, - cptcon, cpteqr, cptrfs, cptsv, cptsvx, cpttrf, cpttrs, cptts2, - crot, cspcon, cspmv, cspr, csprfs, cspsv, - cspsvx, csptrf, csptri, csptrs, csrscl, cstedc, - cstegr, cstein, csteqr, - csycon, - csymv, - csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x, - csyswapr, csytrs, csytrs2, csyconv, - ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2, - ctgexc, ctgsen, ctgsja, ctgsna, ctgsy2, ctgsyl, ctpcon, - ctprfs, ctptri, - ctptrs, ctrcon, ctrevc, ctrexc, ctrrfs, ctrsen, ctrsna, - ctrsyl, ctrtrs, ctzrzf, cung2l, cung2r, - cungbr, cunghr, cungl2, cunglq, cungql, cungqr, cungr2, - cungrq, cungtr, cunm2l, cunm2r, cunmbr, cunmhr, cunml2, - cunmlq, cunmql, cunmqr, cunmr2, cunmr3, cunmrq, cunmrz, - cunmtr, cupgtr, cupmtr, icmax1, scsum1, cstemr, - chfrk, ctfttp, clanhf, cpftrf, cpftri, cpftrs, ctfsm, ctftri, - ctfttr, ctpttf, ctpttr, ctrttf, ctrttp, - cgeequb, cgbequb, csyequb, cpoequb, cheequb, - cbbcsd, clapmr, cunbdb, cunbdb1, cunbdb2, cunbdb3, cunbdb4, - cunbdb5, cunbdb6, cuncsd, cuncsd2by1, - cgeqrt, cgeqrt2, cgeqrt3, cgemqrt, - ctpqrt, ctpqrt2, ctpmqrt, ctprfb, -); -@lapackobjs2zc = ( - # ZCLASRC -- Double-single mixed precision complex routines called from - # single, single-extra and double precision complex LAPACK - # routines (i.e. from CLASRC, CXLASRC, ZLASRC). - # - # already provided by @lapackobjs: - # cgetrs, cpotrf, cgetrf - cpotrs, -); - -@lapackobjs2d = ( - # DLASRC -- Double precision real LAPACK routines - # already provided by @lapackobjs: - # dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, - # dtrti2, dtrtri - dgbbrd, dgbcon, dgbequ, dgbrfs, dgbsv, - dgbsvx, dgbtf2, dgbtrf, dgbtrs, dgebak, dgebal, dgebd2, - dgebrd, dgecon, dgeequ, dgees, dgeesx, dgeev, dgeevx, - dgehd2, dgehrd, dgelq2, dgelqf, - dgels, dgelsd, dgelss, dgelsy, dgeql2, dgeqlf, - dgeqp3, dgeqr2, dgeqr2p, dgeqrf, dgeqrfp, dgerfs, - dgerq2, dgerqf, dgesc2, dgesdd, dgesvd, dgesvx, - dgetc2, dgetri, - dggbak, dggbal, dgges, dggesx, dggev, dggevx, - dggglm, dgghrd, dgglse, dggqrf, - dggrqf, dgtcon, dgtrfs, dgtsv, - dgtsvx, dgttrf, dgttrs, dgtts2, dhgeqz, - dhsein, dhseqr, dlabrd, dlacon, dlacn2, - dlaein, dlaexc, dlag2, dlags2, dlagtm, dlagv2, dlahqr, - dlahr2, dlaic1, dlaln2, dlals0, dlalsa, dlalsd, - dlangb, dlange, dlangt, dlanhs, dlansb, dlansp, - dlansy, dlantb, dlantp, dlantr, dlanv2, - dlapll, dlapmt, - dlaqgb, dlaqge, dlaqp2, dlaqps, dlaqsb, dlaqsp, dlaqsy, - dlaqr0, dlaqr1, dlaqr2, dlaqr3, dlaqr4, dlaqr5, - dlaqtr, dlar1v, dlar2v, iladlr, iladlc, - dlarf, dlarfb, dlarfg, dlarfgp, dlarft, dlarfx, - dlargv, dlarrv, dlartv, - dlarz, dlarzb, dlarzt, dlasy2, dlasyf, - dlatbs, dlatdf, dlatps, dlatrd, dlatrs, dlatrz, - dopgtr, dopmtr, dorg2l, dorg2r, - dorgbr, dorghr, dorgl2, dorglq, dorgql, dorgqr, dorgr2, - dorgrq, dorgtr, dorm2l, dorm2r, - dormbr, dormhr, dorml2, dormlq, dormql, dormqr, dormr2, - dormr3, dormrq, dormrz, dormtr, dpbcon, dpbequ, dpbrfs, - dpbstf, dpbsv, dpbsvx, - dpbtf2, dpbtrf, dpbtrs, dpocon, dpoequ, dporfs, dposv, - dposvx, dpotrs, dpstrf, dpstf2, - dppcon, dppequ, - dpprfs, dppsv, dppsvx, dpptrf, dpptri, dpptrs, dptcon, - dpteqr, dptrfs, dptsv, dptsvx, dpttrs, dptts2, drscl, - dsbev, dsbevd, dsbevx, dsbgst, dsbgv, dsbgvd, dsbgvx, - dsbtrd, dspcon, dspev, dspevd, dspevx, dspgst, - dspgv, dspgvd, dspgvx, dsprfs, dspsv, dspsvx, dsptrd, - dsptrf, dsptri, dsptrs, dstegr, dstein, dstev, dstevd, dstevr, - dstevx, - dsycon, dsyev, dsyevd, dsyevr, - dsyevx, dsygs2, dsygst, dsygv, dsygvd, dsygvx, dsyrfs, - dsysv, dsysvx, - dsytd2, dsytf2, dsytrd, dsytrf, dsytri, dsytri2, dsytri2x, - dsyswapr, dsytrs, dsytrs2, dsyconv, - dtbcon, dtbrfs, dtbtrs, dtgevc, dtgex2, dtgexc, dtgsen, - dtgsja, dtgsna, dtgsy2, dtgsyl, dtpcon, dtprfs, dtptri, - dtptrs, - dtrcon, dtrevc, dtrexc, dtrrfs, dtrsen, dtrsna, dtrsyl, - dtrtrs, dtzrzf, dstemr, - dsgesv, dsposv, dlag2s, slag2d, dlat2s, - dlansf, dpftrf, dpftri, dpftrs, dsfrk, dtfsm, dtftri, dtfttp, - dtfttr, dtpttf, dtpttr, dtrttf, dtrttp, - dgejsv, dgesvj, dgsvj0, dgsvj1, - dgeequb, dsyequb, dpoequb, dgbequb, - dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, - dorbdb5, dorbdb6, dorcsd, dorcsd2by1, - dgeqrt, dgeqrt2, dgeqrt3, dgemqrt, - dtpqrt, dtpqrt2, dtpmqrt, dtprfb, -); -@lapackobjs2z = ( - # ZLASRC -- Double precision complex LAPACK routines - # already provided by @blasobjs: - # already provided by @lapackobjs: - # zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri, - # ztrti2, ztrtri - zbdsqr, zgbbrd, zgbcon, zgbequ, zgbrfs, zgbsv, zgbsvx, - zgbtf2, zgbtrf, zgbtrs, zgebak, zgebal, zgebd2, zgebrd, - zgecon, zgeequ, zgees, zgeesx, zgeev, zgeevx, - zgehd2, zgehrd, zgelq2, zgelqf, - zgels, zgelsd, zgelss, zgelsy, zgeql2, zgeqlf, zgeqp3, - zgeqr2, zgeqr2p, zgeqrf, zgeqrfp, zgerfs, zgerq2, zgerqf, - zgesc2, zgesdd, zgesvd, zgesvx, zgetc2, - zgetri, - zggbak, zggbal, zgges, zggesx, zggev, zggevx, zggglm, - zgghrd, zgglse, zggqrf, zggrqf, - zgtcon, zgtrfs, zgtsv, zgtsvx, zgttrf, zgttrs, zgtts2, zhbev, - zhbevd, zhbevx, zhbgst, zhbgv, zhbgvd, zhbgvx, zhbtrd, - zhecon, zheev, zheevd, zheevr, zheevx, zhegs2, zhegst, - zhegv, zhegvd, zhegvx, zherfs, zhesv, zhesvx, zhetd2, - zhetf2, zhetrd, - zhetrf, zhetri, zhetri2, zhetri2x, zheswapr, - zhetrs, zhetrs2, zhgeqz, zhpcon, zhpev, zhpevd, - zhpevx, zhpgst, zhpgv, zhpgvd, zhpgvx, zhprfs, zhpsv, - zhpsvx, - zhptrd, zhptrf, zhptri, zhptrs, zhsein, zhseqr, zlabrd, - zlacgv, zlacon, zlacn2, zlacp2, zlacpy, zlacrm, zlacrt, zladiv, - zlaed0, zlaed7, zlaed8, - zlaein, zlaesy, zlaev2, zlags2, zlagtm, - zlahef, zlahqr, - zlahr2, zlaic1, zlals0, zlalsa, zlalsd, zlangb, zlange, - zlangt, zlanhb, - zlanhe, - zlanhp, zlanhs, zlanht, zlansb, zlansp, zlansy, zlantb, - zlantp, zlantr, zlapll, zlapmt, zlaqgb, zlaqge, - zlaqhb, zlaqhe, zlaqhp, zlaqp2, zlaqps, zlaqsb, - zlaqr0, zlaqr1, zlaqr2, zlaqr3, zlaqr4, zlaqr5, - zlaqsp, zlaqsy, zlar1v, zlar2v, ilazlr, ilazlc, - zlarcm, zlarf, zlarfb, - zlarfg, zlarft, zlarfgp, - zlarfx, zlargv, zlarnv, zlarrv, zlartg, zlartv, - zlarz, zlarzb, zlarzt, zlascl, zlaset, zlasr, - zlassq, zlasyf, - zlatbs, zlatdf, zlatps, zlatrd, zlatrs, zlatrz, - zpbcon, zpbequ, zpbrfs, zpbstf, zpbsv, - zpbsvx, zpbtf2, zpbtrf, zpbtrs, zpocon, zpoequ, zporfs, - zposv, zposvx, zpotrs, zpstrf, zpstf2, - zppcon, zppequ, zpprfs, zppsv, zppsvx, zpptrf, zpptri, zpptrs, - zptcon, zpteqr, zptrfs, zptsv, zptsvx, zpttrf, zpttrs, zptts2, - zrot, zspcon, zspmv, zspr, zsprfs, zspsv, - zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc, - zstegr, zstein, zsteqr, - zsycon, - zsymv, - zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x, - zsyswapr, zsytrs, zsytrs2, zsyconv, - ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2, - ztgexc, ztgsen, ztgsja, ztgsna, ztgsy2, ztgsyl, ztpcon, - ztprfs, ztptri, - ztptrs, ztrcon, ztrevc, ztrexc, ztrrfs, ztrsen, ztrsna, - ztrsyl, ztrtrs, ztzrzf, zung2l, - zung2r, zungbr, zunghr, zungl2, zunglq, zungql, zungqr, zungr2, - zungrq, zungtr, zunm2l, zunm2r, zunmbr, zunmhr, zunml2, - zunmlq, zunmql, zunmqr, zunmr2, zunmr3, zunmrq, zunmrz, - zunmtr, zupgtr, - zupmtr, izmax1, dzsum1, zstemr, - zcgesv, zcposv, zlag2c, clag2z, zlat2c, - zhfrk, ztfttp, zlanhf, zpftrf, zpftri, zpftrs, ztfsm, ztftri, - ztfttr, ztpttf, ztpttr, ztrttf, ztrttp, - zgeequb, zgbequb, zsyequb, zpoequb, zheequb, - zbbcsd, zlapmr, zunbdb, zunbdb1, zunbdb2, zunbdb3, zunbdb4, - zunbdb5, zunbdb6, zuncsd, zuncsd2by1, - zgeqrt, zgeqrt2, zgeqrt3, zgemqrt, - ztpqrt, ztpqrt2, ztpmqrt, ztprfb, -); - # functions added for lapack-3.6.0 - -@lapackobjs2c = ( @lapackobjs2c, - cgejsv, - cgesvdx, - cgesvj, - cgetrf2, - cgges3, - cggev3, - cgghd3, - cggsvd3, - cggsvp3, - cgsvj0, - cgsvj1, - clagge, - claghe, - clagsy, - clahilb, - clakf2, - clarge, - clarnd, - claror, - clarot, - clatm1, - clatm2, - clatm3, - clatm5, - clatm6, - clatme, - clatmr, - clatms, - clatmt, - cpotrf2, - csbmv, - cspr2, - csyr2, - cunm22, -); -@lapackobjs2d = (@lapackobjs2d, - dbdsvdx, - dgesvdx, - dgetrf2, - dgges3, - dggev3, - dgghd3, - dggsvd3, - dggsvp3, - dladiv2, - dlagge, - dlagsy, - dlahilb, - dlakf2, - dlaran, - dlarge, - dlarnd, - dlaror, - dlarot, - dlatm1, - dlatm2, - dlatm3, - dlatm5, - dlatm6, - dlatm7, - dlatme, - dlatmr, - dlatms, - dlatmt, - dorm22, - dpotrf2, - dsecnd, - ); - @lapackobjs2s = (@lapackobjs2s, - sbdsvdx, - second, - sgesvdx, - sgetrf2, - sgges3, - sggev3, - sgghd3, - sggsvd3, - sggsvp3, - sladiv2, - slagge, - slagsy, - slahilb, - slakf2, - slaran, - slarge, - slarnd, - slaror, - slarot, - slatm1, - slatm2, - slatm3, - slatm5, - slatm6, - slatm7, - slatme, - slatmr, - slatms, - slatmt, - sorm22, - spotrf2, - ); - @lapackobjs2z = (@lapackobjs2z, - zgejsv, - zgesvdx, - zgesvj, - zgetrf2, - zgges3, - zggev3, - zgghd3, - zggsvd3, - zggsvp3, - zgsvj0, - zgsvj1, - zlagge, - zlaghe, - zlagsy, - zlahilb, - zlakf2, - zlarge, - zlarnd, - zlaror, - zlarot, - zlatm1, - zlatm2, - zlatm3, - zlatm5, - zlatm6, - zlatme, - zlatmr, - zlatms, - zlatmt, - zpotrf2, - zsbmv, - zspr2, - zsyr2, - zunm22, -); - # functions added for lapack-3.7.0 -@lapackobjs2s = (@lapackobjs2s, - slarfy, - strevc3, - sgelqt, - sgelqt3, - sgemlqt, - sgetsls, - sgeqr, - slatsqr, - slamtsqr, - sgemqr, - sgelq, - slaswlq, - slamswlq, - sgemlq, - stplqt, - stplqt2, - stpmlqt, - ); - @lapackobjs2d = (@lapackobjs2d, - dlarfy, - dsyconvf, - dtrevc3, - dgelqt, - dgelqt3, - dgemlqt, - dgetsls, - dgeqr, - dlatsqr, - dlamtsqr, - dgemqr, - dgelq, - dlaswlq, - dlamswlq, - dgemlq, - dtplqt, - dtplqt2, - dtpmlqt, - ); - @lapackobjs2c = (@lapackobjs2c, - clarfy, - csyconvf, - ctrevc3, - cgelqt, - cgelqt3, - cgemlqt, - cgetsls, - cgeqr, - clatsqr, - clamtsqr, - cgemqr, - cgelq, - claswlq, - clamswlq, - cgemlq, - ctplqt, - ctplqt2, - ctpmlqt, - ); - @lapackobjs2z = (@lapackobjs2z, - zlarfy, - zsyconvf, - ztrevc3, - ztplqt, - ztplqt2, - ztpmlqt, - zgelqt, - zgelqt3, - zgemlqt, - zgetsls, - zgeqr, - zlatsqr, - zlamtsqr, - zgemqr, - zgelq, - zlaswlq, - zlamswlq, - zgemlq, - ); - @lapackobjs2s = (@lapackobjs2s, - sladiv1); - @lapackobjs2d = (@lapackobjs2d, - dladiv1); - @lapackobjs = (@lapackobjs, - iparam2stage, - # functions added for lapack-3.8.0 - ilaenv2stage, - ); - # functions added for lapack-3.9.0 -@lapackobjs2c = (@lapackobjs2c, - cgesvdq, +misc_common_objs=" + openblas_get_parallel + openblas_get_num_procs + openblas_set_num_threads + openblas_get_num_threads +" + +misc_no_underscore_objs=" + goto_set_num_threads + openblas_get_config + openblas_get_corename +" + +misc_underscore_objs="" + +# These routines are provided by OpenBLAS. +lapackobjss=" + sgesv + sgetf2 + sgetrf + slaswp + sgetrs + slauu2 + slauum + spotf2 + spotrf + strti2 + strtri + spotri +" + +lapackobjsd=" + dgesv + dgetf2 + dgetrf + dlaswp + dgetrs + dlauu2 + dlauum + dpotf2 + dpotrf + dtrti2 + dtrtri + dpotri +" + +lapackobjsc=" +cgesv +cgetf2 +cgetrf +claswp +cgetrs +clauu2 +clauum +cpotf2 +cpotrf +ctrti2 +ctrtri +cpotri +" + +lapackobjsz=" +zgesv +zgetf2 +zgetrf +zlaswp +zgetrs +zlauu2 +zlauum +zpotf2 +zpotrf +ztrti2 +ztrtri +zpotri +" + + +# These routines are provided by LAPACK (reference implementation). +# +# This list is prepared by copying all routines listed in +# `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. +# Thereafter the following routines should be removed: +# - those provided by OpenBLAS (see @lapackobjs) +# - extra precision routines (see @lapack_extendedprecision_objs) +# Each of these have been marked individually with "already provided" or "excluded". + +# ALLAUX -- Auxiliary routines called from all precisions +# already provided by b"asobjs: xerbla lsame +lapackobjs2=" + ilaenv ieeeck lsamen iparmq + ilaprec ilatrans ilauplo iladiag + ilaver slamch slamc3 +" + +# SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. +# excluded: second_$(TIMER) +lapackobjs2sc=" + sbdsdc + sbdsqr sdisna slabad slacpy sladiv slae2 slaebz + slaed0 slaed1 slaed2 slaed3 slaed4 slaed5 slaed6 + slaed7 slaed8 slaed9 slaeda slaev2 slagtf + slagts slamrg slanst + slapy2 slapy3 slarnv + slarra slarrb slarrc slarrd slarre slarrf slarrj + slarrk slarrr slaneg + slartg slaruv slas2 slascl + slasd0 slasd1 slasd2 slasd3 slasd4 slasd5 slasd6 + slasd7 slasd8 slasda slasdq slasdt + slaset slasq1 slasq2 slasq3 slasq4 slasq5 slasq6 + slasr slasrt slassq slasv2 spttrf sstebz sstedc + ssteqr ssterf slaisnan sisnan + slartgp slartgs +" + +# DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. +# excluded: dsecnd_$(TIMER) +lapackobjs2dz=" + dbdsdc + dbdsqr ddisna dlabad dlacpy dladiv dlae2 dlaebz + dlaed0 dlaed1 dlaed2 dlaed3 dlaed4 dlaed5 dlaed6 + dlaed7 dlaed8 dlaed9 dlaeda dlaev2 dlagtf + dlagts dlamrg dlanst + dlapy2 dlapy3 dlarnv + dlarra dlarrb dlarrc dlarrd dlarre dlarrf dlarrj + dlarrk dlarrr dlaneg + dlartg dlaruv dlas2 dlascl + dlasd0 dlasd1 dlasd2 dlasd3 dlasd4 dlasd5 dlasd6 + dlasd7 dlasd8 dlasda dlasdq dlasdt + dlaset dlasq1 dlasq2 dlasq3 dlasq4 dlasq5 dlasq6 + dlasr dlasrt dlassq dlasv2 dpttrf dstebz dstedc + dsteqr dsterf dlaisnan disnan + dlartgp dlartgs + dlamch dlamc3 +" + +# SLASRC -- Single precision real LAPACK routines +# already provided by l"packobjs: +# sgesv sgetf2 slaswp slauu2 slauum spotf2 spotri strti2 strtri +lapackobjs2s=" + sgbbrd sgbcon sgbequ sgbrfs sgbsv + sgbsvx sgbtf2 sgbtrf sgbtrs sgebak sgebal sgebd2 + sgebrd sgecon sgeequ sgees sgeesx sgeev sgeevx + sgehd2 sgehrd sgelq2 sgelqf + sgels sgelsd sgelss sgelsy sgeql2 sgeqlf + sgeqp3 sgeqr2 sgeqr2p sgeqrf sgeqrfp sgerfs + sgerq2 sgerqf sgesc2 sgesdd sgesvd sgesvx + sgetc2 sgetri + sggbak sggbal sgges sggesx sggev sggevx + sggglm sgghrd sgglse sggqrf + sggrqf sgtcon sgtrfs sgtsv + sgtsvx sgttrf sgttrs sgtts2 shgeqz + shsein shseqr slabrd slacon slacn2 + slaein slaexc slag2 slags2 slagtm slagv2 slahqr + slahr2 slaic1 slaln2 slals0 slalsa slalsd + slangb slange slangt slanhs slansb slansp + slansy slantb slantp slantr slanv2 + slapll slapmt + slaqgb slaqge slaqp2 slaqps slaqsb slaqsp slaqsy + slaqr0 slaqr1 slaqr2 slaqr3 slaqr4 slaqr5 + slaqtr slar1v slar2v ilaslr ilaslc + slarf slarfb slarfg slarfgp slarft slarfx slargv + slarrv slartv + slarz slarzb slarzt slasy2 slasyf + slatbs slatdf slatps slatrd slatrs slatrz + sopgtr sopmtr sorg2l sorg2r + sorgbr sorghr sorgl2 sorglq sorgql sorgqr sorgr2 + sorgrq sorgtr sorm2l sorm2r + sormbr sormhr sorml2 sormlq sormql sormqr sormr2 + sormr3 sormrq sormrz sormtr spbcon spbequ spbrfs + spbstf spbsv spbsvx + spbtf2 spbtrf spbtrs spocon spoequ sporfs sposv + sposvx spstrf spstf2 + sppcon sppequ + spprfs sppsv sppsvx spptrf spptri spptrs sptcon + spteqr sptrfs sptsv sptsvx spttrs sptts2 srscl + ssbev ssbevd ssbevx ssbgst ssbgv ssbgvd ssbgvx + ssbtrd sspcon sspev sspevd sspevx sspgst + sspgv sspgvd sspgvx ssprfs sspsv sspsvx ssptrd + ssptrf ssptri ssptrs sstegr sstein sstev sstevd sstevr + sstevx + ssycon ssyev ssyevd ssyevr ssyevx ssygs2 + ssygst ssygv ssygvd ssygvx ssyrfs ssysv ssysvx + ssytd2 ssytf2 ssytrd ssytrf ssytri ssytri2 ssytri2x + ssyswapr ssytrs ssytrs2 ssyconv + stbcon + stbrfs stbtrs stgevc stgex2 stgexc stgsen + stgsja stgsna stgsy2 stgsyl stpcon stprfs stptri + stptrs + strcon strevc strexc strrfs strsen strsna strsyl + strtrs stzrzf sstemr + slansf spftrf spftri spftrs ssfrk stfsm stftri stfttp + stfttr stpttf stpttr strttf strttp + sgejsv sgesvj sgsvj0 sgsvj1 + sgeequb ssyequb spoequb sgbequb + sbbcsd slapmr sorbdb sorbdb1 sorbdb2 sorbdb3 sorbdb4 + sorbdb5 sorbdb6 sorcsd sorcsd2by1 + sgeqrt sgeqrt2 sgeqrt3 sgemqrt + stpqrt stpqrt2 stpmqrt stprfb +" + +# DSLASRC -- Double-single mixed precision real routines called from +# single, single-extra and double precision real LAPACK +# routines (i.e. from SLASRC, SXLASRC, DLASRC). +# +# already provided by @lapackobjs: +# sgetrs, spotrf, sgetrf +lapackobjs2ds=" + spotrs +" + +# CLASRC -- Single precision complex LAPACK routines +# already provided by @blasobjs: +# already provided by @lapackobjs: +# cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri +lapackobjs2c=" + cbdsqr cgbbrd cgbcon cgbequ cgbrfs cgbsv cgbsvx + cgbtf2 cgbtrf cgbtrs cgebak cgebal cgebd2 cgebrd + cgecon cgeequ cgees cgeesx cgeev cgeevx + cgehd2 cgehrd cgelq2 cgelqf + cgels cgelsd cgelss cgelsy cgeql2 cgeqlf cgeqp3 + cgeqr2 cgeqr2p cgeqrf cgeqrfp cgerfs + cgerq2 cgerqf cgesc2 cgesdd cgesvd + cgesvx cgetc2 cgetri + cggbak cggbal cgges cggesx cggev cggevx cggglm + cgghrd cgglse cggqrf cggrqf + cgtcon cgtrfs cgtsv cgtsvx cgttrf cgttrs cgtts2 chbev + chbevd chbevx chbgst chbgv chbgvd chbgvx chbtrd + checon cheev cheevd cheevr cheevx chegs2 chegst + chegv chegvd chegvx cherfs chesv chesvx chetd2 + chetf2 chetrd + chetrf chetri chetri2 chetri2x cheswapr + chetrs chetrs2 chgeqz chpcon chpev chpevd + chpevx chpgst chpgv chpgvd chpgvx chprfs chpsv + chpsvx + chptrd chptrf chptri chptrs chsein chseqr clabrd + clacgv clacon clacn2 clacp2 clacpy clacrm clacrt cladiv + claed0 claed7 claed8 + claein claesy claev2 clags2 clagtm + clahef clahqr + clahr2 claic1 clals0 clalsa clalsd clangb clange clangt + clanhb clanhe + clanhp clanhs clanht clansb clansp clansy clantb + clantp clantr clapll clapmt clarcm claqgb claqge + claqhb claqhe claqhp claqp2 claqps claqsb + claqr0 claqr1 claqr2 claqr3 claqr4 claqr5 + claqsp claqsy clar1v clar2v ilaclr ilaclc + clarf clarfb clarfg clarft clarfgp + clarfx clargv clarnv clarrv clartg clartv + clarz clarzb clarzt clascl claset clasr classq + clasyf clatbs clatdf clatps clatrd clatrs clatrz + cpbcon cpbequ cpbrfs cpbstf cpbsv + cpbsvx cpbtf2 cpbtrf cpbtrs cpocon cpoequ cporfs + cposv cposvx cpstrf cpstf2 + cppcon cppequ cpprfs cppsv cppsvx cpptrf cpptri cpptrs + cptcon cpteqr cptrfs cptsv cptsvx cpttrf cpttrs cptts2 + crot cspcon cspmv cspr csprfs cspsv + cspsvx csptrf csptri csptrs csrscl cstedc + cstegr cstein csteqr + csycon + csymv + csyr csyrfs csysv csysvx csytf2 csytrf csytri csytri2 csytri2x + csyswapr csytrs csytrs2 csyconv + ctbcon ctbrfs ctbtrs ctgevc ctgex2 + ctgexc ctgsen ctgsja ctgsna ctgsy2 ctgsyl ctpcon + ctprfs ctptri + ctptrs ctrcon ctrevc ctrexc ctrrfs ctrsen ctrsna + ctrsyl ctrtrs ctzrzf cung2l cung2r + cungbr cunghr cungl2 cunglq cungql cungqr cungr2 + cungrq cungtr cunm2l cunm2r cunmbr cunmhr cunml2 + cunmlq cunmql cunmqr cunmr2 cunmr3 cunmrq cunmrz + cunmtr cupgtr cupmtr icmax1 scsum1 cstemr + chfrk ctfttp clanhf cpftrf cpftri cpftrs ctfsm ctftri + ctfttr ctpttf ctpttr ctrttf ctrttp + cgeequb cgbequb csyequb cpoequb cheequb + cbbcsd clapmr cunbdb cunbdb1 cunbdb2 cunbdb3 cunbdb4 + cunbdb5 cunbdb6 cuncsd cuncsd2by1 + cgeqrt cgeqrt2 cgeqrt3 cgemqrt + ctpqrt ctpqrt2 ctpmqrt ctprfb +" + +# ZCLASRC -- Double-single mixed precision complex routines called from +# single, single-extra and double precision complex LAPACK +# routines (i.e. from CLASRC, CXLASRC, ZLASRC). +# +# already provided by @lapackobjs: +# cgetrs, cpotrf, cgetrf +lapackobjs2zc=" + cpotrs +" + +# DLASRC -- Double precision real LAPACK routines +# already provided by @lapackobjs: +# dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, +# dtrti2, dtrtri +lapackobjs2d=" + dgbbrd dgbcon dgbequ dgbrfs dgbsv + dgbsvx dgbtf2 dgbtrf dgbtrs dgebak dgebal dgebd2 + dgebrd dgecon dgeequ dgees dgeesx dgeev dgeevx + dgehd2 dgehrd dgelq2 dgelqf + dgels dgelsd dgelss dgelsy dgeql2 dgeqlf + dgeqp3 dgeqr2 dgeqr2p dgeqrf dgeqrfp dgerfs + dgerq2 dgerqf dgesc2 dgesdd dgesvd dgesvx + dgetc2 dgetri + dggbak dggbal dgges dggesx dggev dggevx + dggglm dgghrd dgglse dggqrf + dggrqf dgtcon dgtrfs dgtsv + dgtsvx dgttrf dgttrs dgtts2 dhgeqz + dhsein dhseqr dlabrd dlacon dlacn2 + dlaein dlaexc dlag2 dlags2 dlagtm dlagv2 dlahqr + dlahr2 dlaic1 dlaln2 dlals0 dlalsa dlalsd + dlangb dlange dlangt dlanhs dlansb dlansp + dlansy dlantb dlantp dlantr dlanv2 + dlapll dlapmt + dlaqgb dlaqge dlaqp2 dlaqps dlaqsb dlaqsp dlaqsy + dlaqr0 dlaqr1 dlaqr2 dlaqr3 dlaqr4 dlaqr5 + dlaqtr dlar1v dlar2v iladlr iladlc + dlarf dlarfb dlarfg dlarfgp dlarft dlarfx + dlargv dlarrv dlartv + dlarz dlarzb dlarzt dlasy2 dlasyf + dlatbs dlatdf dlatps dlatrd dlatrs dlatrz + dopgtr dopmtr dorg2l dorg2r + dorgbr dorghr dorgl2 dorglq dorgql dorgqr dorgr2 + dorgrq dorgtr dorm2l dorm2r + dormbr dormhr dorml2 dormlq dormql dormqr dormr2 + dormr3 dormrq dormrz dormtr dpbcon dpbequ dpbrfs + dpbstf dpbsv dpbsvx + dpbtf2 dpbtrf dpbtrs dpocon dpoequ dporfs dposv + dposvx dpotrs dpstrf dpstf2 + dppcon dppequ + dpprfs dppsv dppsvx dpptrf dpptri dpptrs dptcon + dpteqr dptrfs dptsv dptsvx dpttrs dptts2 drscl + dsbev dsbevd dsbevx dsbgst dsbgv dsbgvd dsbgvx + dsbtrd dspcon dspev dspevd dspevx dspgst + dspgv dspgvd dspgvx dsprfs dspsv dspsvx dsptrd + dsptrf dsptri dsptrs dstegr dstein dstev dstevd dstevr + dstevx + dsycon dsyev dsyevd dsyevr + dsyevx dsygs2 dsygst dsygv dsygvd dsygvx dsyrfs + dsysv dsysvx + dsytd2 dsytf2 dsytrd dsytrf dsytri dsytri2 dsytri2x + dsyswapr dsytrs dsytrs2 dsyconv + dtbcon dtbrfs dtbtrs dtgevc dtgex2 dtgexc dtgsen + dtgsja dtgsna dtgsy2 dtgsyl dtpcon dtprfs dtptri + dtptrs + dtrcon dtrevc dtrexc dtrrfs dtrsen dtrsna dtrsyl + dtrtrs dtzrzf dstemr + dsgesv dsposv dlag2s slag2d dlat2s + dlansf dpftrf dpftri dpftrs dsfrk dtfsm dtftri dtfttp + dtfttr dtpttf dtpttr dtrttf dtrttp + dgejsv dgesvj dgsvj0 dgsvj1 + dgeequb dsyequb dpoequb dgbequb + dbbcsd dlapmr dorbdb dorbdb1 dorbdb2 dorbdb3 dorbdb4 + dorbdb5 dorbdb6 dorcsd dorcsd2by1 + dgeqrt dgeqrt2 dgeqrt3 dgemqrt + dtpqrt dtpqrt2 dtpmqrt dtprfb +" + +# ZLASRC -- Double precision complex LAPACK routines +# already provided by b"asobjs: +# already provided by @lapackobjs: +# zgesv zgetrs zgetf2 zlaswp zlauu2 zlauum zpotf2 zpotrf zpotri +# ztrti2 ztrtri +lapackobjs2z=" + zbdsqr zgbbrd zgbcon zgbequ zgbrfs zgbsv zgbsvx + zgbtf2 zgbtrf zgbtrs zgebak zgebal zgebd2 zgebrd + zgecon zgeequ zgees zgeesx zgeev zgeevx + zgehd2 zgehrd zgelq2 zgelqf + zgels zgelsd zgelss zgelsy zgeql2 zgeqlf zgeqp3 + zgeqr2 zgeqr2p zgeqrf zgeqrfp zgerfs zgerq2 zgerqf + zgesc2 zgesdd zgesvd zgesvx zgetc2 + zgetri + zggbak zggbal zgges zggesx zggev zggevx zggglm + zgghrd zgglse zggqrf zggrqf + zgtcon zgtrfs zgtsv zgtsvx zgttrf zgttrs zgtts2 zhbev + zhbevd zhbevx zhbgst zhbgv zhbgvd zhbgvx zhbtrd + zhecon zheev zheevd zheevr zheevx zhegs2 zhegst + zhegv zhegvd zhegvx zherfs zhesv zhesvx zhetd2 + zhetf2 zhetrd + zhetrf zhetri zhetri2 zhetri2x zheswapr + zhetrs zhetrs2 zhgeqz zhpcon zhpev zhpevd + zhpevx zhpgst zhpgv zhpgvd zhpgvx zhprfs zhpsv + zhpsvx + zhptrd zhptrf zhptri zhptrs zhsein zhseqr zlabrd + zlacgv zlacon zlacn2 zlacp2 zlacpy zlacrm zlacrt zladiv + zlaed0 zlaed7 zlaed8 + zlaein zlaesy zlaev2 zlags2 zlagtm + zlahef zlahqr + zlahr2 zlaic1 zlals0 zlalsa zlalsd zlangb zlange + zlangt zlanhb + zlanhe + zlanhp zlanhs zlanht zlansb zlansp zlansy zlantb + zlantp zlantr zlapll zlapmt zlaqgb zlaqge + zlaqhb zlaqhe zlaqhp zlaqp2 zlaqps zlaqsb + zlaqr0 zlaqr1 zlaqr2 zlaqr3 zlaqr4 zlaqr5 + zlaqsp zlaqsy zlar1v zlar2v ilazlr ilazlc + zlarcm zlarf zlarfb + zlarfg zlarft zlarfgp + zlarfx zlargv zlarnv zlarrv zlartg zlartv + zlarz zlarzb zlarzt zlascl zlaset zlasr + zlassq zlasyf + zlatbs zlatdf zlatps zlatrd zlatrs zlatrz + zpbcon zpbequ zpbrfs zpbstf zpbsv + zpbsvx zpbtf2 zpbtrf zpbtrs zpocon zpoequ zporfs + zposv zposvx zpotrs zpstrf zpstf2 + zppcon zppequ zpprfs zppsv zppsvx zpptrf zpptri zpptrs + zptcon zpteqr zptrfs zptsv zptsvx zpttrf zpttrs zptts2 + zrot zspcon zspmv zspr zsprfs zspsv + zspsvx zsptrf zsptri zsptrs zdrscl zstedc + zstegr zstein zsteqr + zsycon + zsymv + zsyr zsyrfs zsysv zsysvx zsytf2 zsytrf zsytri zsytri2 zsytri2x + zsyswapr zsytrs zsytrs2 zsyconv + ztbcon ztbrfs ztbtrs ztgevc ztgex2 + ztgexc ztgsen ztgsja ztgsna ztgsy2 ztgsyl ztpcon + ztprfs ztptri + ztptrs ztrcon ztrevc ztrexc ztrrfs ztrsen ztrsna + ztrsyl ztrtrs ztzrzf zung2l + zung2r zungbr zunghr zungl2 zunglq zungql zungqr zungr2 + zungrq zungtr zunm2l zunm2r zunmbr zunmhr zunml2 + zunmlq zunmql zunmqr zunmr2 zunmr3 zunmrq zunmrz + zunmtr zupgtr + zupmtr izmax1 dzsum1 zstemr + zcgesv zcposv zlag2c clag2z zlat2c + zhfrk ztfttp zlanhf zpftrf zpftri zpftrs ztfsm ztftri + ztfttr ztpttf ztpttr ztrttf ztrttp + zgeequb zgbequb zsyequb zpoequb zheequb + zbbcsd zlapmr zunbdb zunbdb1 zunbdb2 zunbdb3 zunbdb4 + zunbdb5 zunbdb6 zuncsd zuncsd2by1 + zgeqrt zgeqrt2 zgeqrt3 zgemqrt + ztpqrt ztpqrt2 ztpmqrt ztprfb +" + +# functions added for lapack-3.6.0 + +lapackobjs2c="$lapackobjs2c + cgejsv + cgesvdx + cgesvj + cgetrf2 + cgges3 + cggev3 + cgghd3 + cggsvd3 + cggsvp3 + cgsvj0 + cgsvj1 + clagge + claghe + clagsy + clahilb + clakf2 + clarge + clarnd + claror + clarot + clatm1 + clatm2 + clatm3 + clatm5 + clatm6 + clatme + clatmr + clatms + clatmt + cpotrf2 + csbmv + cspr2 + csyr2 + cunm22 +" + +lapackobjs2d="$lapackobjs2d + dbdsvdx + dgesvdx + dgetrf2 + dgges3 + dggev3 + dgghd3 + dggsvd3 + dggsvp3 + dladiv2 + dlagge + dlagsy + dlahilb + dlakf2 + dlaran + dlarge + dlarnd + dlaror + dlarot + dlatm1 + dlatm2 + dlatm3 + dlatm5 + dlatm6 + dlatm7 + dlatme + dlatmr + dlatms + dlatmt + dorm22 + dpotrf2 + dsecnd +" + +lapackobjs2s="$lapackobjs2s + sbdsvdx + second + sgesvdx + sgetrf2 + sgges3 + sggev3 + sgghd3 + sggsvd3 + sggsvp3 + sladiv2 + slagge + slagsy + slahilb + slakf2 + slaran + slarge + slarnd + slaror + slarot + slatm1 + slatm2 + slatm3 + slatm5 + slatm6 + slatm7 + slatme + slatmr + slatms + slatmt + sorm22 + spotrf2 +" + +lapackobjs2z="$lapackobjs2z + zgejsv + zgesvdx + zgesvj + zgetrf2 + zgges3 + zggev3 + zgghd3 + zggsvd3 + zggsvp3 + zgsvj0 + zgsvj1 + zlagge + zlaghe + zlagsy + zlahilb + zlakf2 + zlarge + zlarnd + zlaror + zlarot + zlatm1 + zlatm2 + zlatm3 + zlatm5 + zlatm6 + zlatme + zlatmr + zlatms + zlatmt + zpotrf2 + zsbmv + zspr2 + zsyr2 + zunm22 +" + +# functions added for lapack-3.7.0 +lapackobjs2s="$lapackobjs2s + slarfy + strevc3 + sgelqt + sgelqt3 + sgemlqt + sgetsls + sgeqr + slatsqr + slamtsqr + sgemqr + sgelq + slaswlq + slamswlq + sgemlq + stplqt + stplqt2 + stpmlqt +" + +lapackobjs2d="$lapackobjs2d + dlarfy + dsyconvf + dtrevc3 + dgelqt + dgelqt3 + dgemlqt + dgetsls + dgeqr + dlatsqr + dlamtsqr + dgemqr + dgelq + dlaswlq + dlamswlq + dgemlq + dtplqt + dtplqt2 + dtpmlqt + " +lapackobjs2c="$lapackobjs2c + clarfy + csyconvf + ctrevc3 + cgelqt + cgelqt3 + cgemlqt + cgetsls + cgeqr + clatsqr + clamtsqr + cgemqr + cgelq + claswlq + clamswlq + cgemlq + ctplqt + ctplqt2 + ctpmlqt +" +lapackobjs2z="$lapackobjs2z + zlarfy + zsyconvf + ztrevc3 + ztplqt + ztplqt2 + ztpmlqt + zgelqt + zgelqt3 + zgemlqt + zgetsls + zgeqr + zlatsqr + zlamtsqr + zgemqr + zgelq + zlaswlq + zlamswlq + zgemlq +" + +lapackobjs2s="$lapackobjs2s +sladiv1" + +lapackobjs2d="$lapackobjs2d +dladiv1" + +lapackobjs="$lapackobjs +iparam2stage +ilaenv2stage +" + +# functions added for lapack-3.9.0 +lapackobjs2c="$lapackobjs2c + cgesvdq cungtsqr - ); -@lapackobjs2d = (@lapackobjs2d, - dcombssq, - dgesvdq, - dorgtsqr, - ); -@lapackobjs2s = (@lapackobjs2s, - scombssq, - sgesvdq, - sorgtsqr, - ); -@lapackobjs2z = (@lapackobjs2z, - zgesvdq, + " +lapackobjs2d="$lapackobjs2d + dcombssq + dgesvdq + dorgtsqr + " +lapackobjs2s="$lapackobjs2s + scombssq + sgesvdq + sorgtsqr + " +lapackobjs2z="$lapackobjs2z + zgesvdq zungtsqr -); - -@lapack_extendedprecision_objs = ( - zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, - dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx, -); - -@lapack_deprecated_objsc = ( - cgegs, cggsvd, - cgegv, cggsvp, - cgelsx, clahrd, - cgeqpf, clatzm, - ctzrqf, - ); -@lapack_deprecated_objsd = ( - dgegs, dgeqpf, - dgegv, dggsvd, - dgelsx, dggsvp, - dlahrd, - dlatzm, dtzrqf); - -@lapack_deprecated_objss = ( - sgelsx, - sgegs, - sgegv, - sgeqpf, - sggsvd, - sggsvp, - slahrd, - slatzm, + " +#functions added for lapack-3.10 +lapackobjs2c="$lapackobjs2c + cgetsqrhrt + cungtsqr_row + " +lapackobjs2d="$lapackobjs2d + dgetsqrhrt + dorgtsqr_row + " +lapackobjs2s="$lapackobjs2s + sgetsqrhrt + sorgtsqr_row + " +lapackobjs2z="$lapackobjs2z + zgetsqrhrt + zungtsqr_row + " + +lapack_extendedprecision_objs=" + zposvxx clagge clatms chesvxx cposvxx cgesvxx ssyrfssx csyrfsx + dlagsy dsysvxx sporfsx slatms zlatms zherfsx csysvxx +" + +lapack_deprecated_objsc=" + cgegs cggsvd + cgegv cggsvp + cgelsx clahrd + cgeqpf clatzm + ctzrqf + " + +lapack_deprecated_objsd=" + dgegs dgeqpf + dgegv dggsvd + dgelsx dggsvp + dlahrd + dlatzm dtzrqf" + +lapack_deprecated_objss=" + sgelsx + sgegs + sgegv + sgeqpf + sggsvd + sggsvp + slahrd + slatzm stzrqf - ); - -@lapack_deprecated_objsz = ( - zgegs, - zgegv, - zgelsx, - zgeqpf, - zggsvd, - zggsvp, - zlahrd, - zlatzm, + " + +lapack_deprecated_objsz=" + zgegs + zgegv + zgelsx + zgeqpf + zggsvd + zggsvp + zlahrd + zlatzm ztzrqf - ); - -@lapacke_deprecated_objsc = ( - LAPACKE_cggsvp, - LAPACKE_cggsvp_work, - LAPACKE_cggsvd, - LAPACKE_cggsvd_work, - LAPACKE_cgeqpf, - LAPACKE_cgeqpf_work, -); -@lapacke_deprecated_objsd = ( - LAPACKE_dggsvp, - LAPACKE_dggsvp_work, - LAPACKE_dggsvd, - LAPACKE_dggsvd_work, - LAPACKE_dgeqpf, - LAPACKE_dgeqpf_work, -); -@lapacke_deprecated_objss = ( - LAPACKE_sggsvp, - LAPACKE_sggsvp_work, - LAPACKE_sggsvd, - LAPACKE_sggsvd_work, - LAPACKE_sgeqpf, - LAPACKE_sgeqpf_work, -); -@lapacke_deprecated_objsz = ( - LAPACKE_zggsvp, - LAPACKE_zggsvp_work, - LAPACKE_zggsvd, - LAPACKE_zggsvd_work, - LAPACKE_zgeqpf, - LAPACKE_zgeqpf_work, -); - - -@lapackeobjs = ( - # LAPACK C interface routines. - # - # This list is prepared in a similar manner to @lapackobjs2, however the - # functions all begin with an uppercase prefix (with the exception of the - # make_complex_* routines). - # - # The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not - # exported since the respective LAPACK routines are not built by default. - - # @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` - LAPACKE_lsame, - LAPACKE_ilaver, - LAPACKE_xerbla, - lapack_make_complex_float, - lapack_make_complex_double, - LAPACKE_get_nancheck, - LAPACKE_set_nancheck, -); -@lapackeobjsc = ( - LAPACKE_cgb_nancheck, - LAPACKE_cgb_trans, - LAPACKE_cge_nancheck, - LAPACKE_cge_trans, - LAPACKE_cgg_nancheck, - LAPACKE_cgg_trans, - LAPACKE_cgt_nancheck, - LAPACKE_chb_nancheck, - LAPACKE_chb_trans, - LAPACKE_che_nancheck, - LAPACKE_che_trans, - LAPACKE_chp_nancheck, - LAPACKE_chp_trans, - LAPACKE_chs_nancheck, - LAPACKE_chs_trans, - LAPACKE_c_nancheck, - LAPACKE_cpb_nancheck, - LAPACKE_cpb_trans, - LAPACKE_cpf_nancheck, - LAPACKE_cpf_trans, - LAPACKE_cpo_nancheck, - LAPACKE_cpo_trans, - LAPACKE_cpp_nancheck, - LAPACKE_cpp_trans, - LAPACKE_cpt_nancheck, - LAPACKE_csp_nancheck, - LAPACKE_csp_trans, - LAPACKE_cst_nancheck, - LAPACKE_csy_nancheck, - LAPACKE_csy_trans, - LAPACKE_ctb_nancheck, - LAPACKE_ctb_trans, - LAPACKE_ctf_nancheck, - LAPACKE_ctf_trans, - LAPACKE_ctp_nancheck, - LAPACKE_ctp_trans, - LAPACKE_ctr_nancheck, - LAPACKE_ctr_trans, - LAPACKE_cbbcsd, - LAPACKE_cbbcsd_work, - LAPACKE_cbdsqr, - LAPACKE_cbdsqr_work, - LAPACKE_cgbbrd, - LAPACKE_cgbbrd_work, - LAPACKE_cgbcon, - LAPACKE_cgbcon_work, - LAPACKE_cgbequ, - LAPACKE_cgbequ_work, - LAPACKE_cgbequb, - LAPACKE_cgbequb_work, - LAPACKE_cgbrfs, - LAPACKE_cgbrfs_work, - LAPACKE_cgbsv, - LAPACKE_cgbsv_work, - LAPACKE_cgbsvx, - LAPACKE_cgbsvx_work, - LAPACKE_cgbtrf, - LAPACKE_cgbtrf_work, - LAPACKE_cgbtrs, - LAPACKE_cgbtrs_work, - LAPACKE_cgebak, - LAPACKE_cgebak_work, - LAPACKE_cgebal, - LAPACKE_cgebal_work, - LAPACKE_cgebrd, - LAPACKE_cgebrd_work, - LAPACKE_cgecon, - LAPACKE_cgecon_work, - LAPACKE_cgeequ, - LAPACKE_cgeequ_work, - LAPACKE_cgeequb, - LAPACKE_cgeequb_work, - LAPACKE_cgees, - LAPACKE_cgees_work, - LAPACKE_cgeesx, - LAPACKE_cgeesx_work, - LAPACKE_cgeev, - LAPACKE_cgeev_work, - LAPACKE_cgeevx, - LAPACKE_cgeevx_work, - LAPACKE_cgehrd, - LAPACKE_cgehrd_work, - LAPACKE_cgelq2, - LAPACKE_cgelq2_work, - LAPACKE_cgelqf, - LAPACKE_cgelqf_work, - LAPACKE_cgels, - LAPACKE_cgels_work, - LAPACKE_cgelsd, - LAPACKE_cgelsd_work, - LAPACKE_cgelss, - LAPACKE_cgelss_work, - LAPACKE_cgelsy, - LAPACKE_cgelsy_work, - LAPACKE_cgemqrt, - LAPACKE_cgemqrt_work, - LAPACKE_cgeqlf, - LAPACKE_cgeqlf_work, - LAPACKE_cgeqp3, - LAPACKE_cgeqp3_work, - LAPACKE_cgeqr2, - LAPACKE_cgeqr2_work, - LAPACKE_cgeqrf, - LAPACKE_cgeqrf_work, - LAPACKE_cgeqrfp, - LAPACKE_cgeqrfp_work, - LAPACKE_cgeqrt, - LAPACKE_cgeqrt2, - LAPACKE_cgeqrt2_work, - LAPACKE_cgeqrt3, - LAPACKE_cgeqrt3_work, - LAPACKE_cgeqrt_work, - LAPACKE_cgerfs, - LAPACKE_cgerfs_work, - LAPACKE_cgerqf, - LAPACKE_cgerqf_work, - LAPACKE_cgesdd, - LAPACKE_cgesdd_work, - LAPACKE_cgesv, - LAPACKE_cgesv_work, - LAPACKE_cgesvd, - LAPACKE_cgesvd_work, - LAPACKE_cgesvx, - LAPACKE_cgesvx_work, - LAPACKE_cgetf2, - LAPACKE_cgetf2_work, - LAPACKE_cgetrf, - LAPACKE_cgetrf_work, - LAPACKE_cgetri, - LAPACKE_cgetri_work, - LAPACKE_cgetrs, - LAPACKE_cgetrs_work, - LAPACKE_cggbak, - LAPACKE_cggbak_work, - LAPACKE_cggbal, - LAPACKE_cggbal_work, - LAPACKE_cgges, - LAPACKE_cgges_work, - LAPACKE_cggesx, - LAPACKE_cggesx_work, - LAPACKE_cggev, - LAPACKE_cggev_work, - LAPACKE_cggevx, - LAPACKE_cggevx_work, - LAPACKE_cggglm, - LAPACKE_cggglm_work, - LAPACKE_cgghrd, - LAPACKE_cgghrd_work, - LAPACKE_cgglse, - LAPACKE_cgglse_work, - LAPACKE_cggqrf, - LAPACKE_cggqrf_work, - LAPACKE_cggrqf, - LAPACKE_cggrqf_work, - LAPACKE_cgtcon, - LAPACKE_cgtcon_work, - LAPACKE_cgtrfs, - LAPACKE_cgtrfs_work, - LAPACKE_cgtsv, - LAPACKE_cgtsv_work, - LAPACKE_cgtsvx, - LAPACKE_cgtsvx_work, - LAPACKE_cgttrf, - LAPACKE_cgttrf_work, - LAPACKE_cgttrs, - LAPACKE_cgttrs_work, - LAPACKE_chbev, - LAPACKE_chbev_work, - LAPACKE_chbevd, - LAPACKE_chbevd_work, - LAPACKE_chbevx, - LAPACKE_chbevx_work, - LAPACKE_chbgst, - LAPACKE_chbgst_work, - LAPACKE_chbgv, - LAPACKE_chbgv_work, - LAPACKE_chbgvd, - LAPACKE_chbgvd_work, - LAPACKE_chbgvx, - LAPACKE_chbgvx_work, - LAPACKE_chbtrd, - LAPACKE_chbtrd_work, - LAPACKE_checon, - LAPACKE_checon_work, - LAPACKE_cheequb, - LAPACKE_cheequb_work, - LAPACKE_cheev, - LAPACKE_cheev_work, - LAPACKE_cheevd, - LAPACKE_cheevd_work, - LAPACKE_cheevr, - LAPACKE_cheevr_work, - LAPACKE_cheevx, - LAPACKE_cheevx_work, - LAPACKE_chegst, - LAPACKE_chegst_work, - LAPACKE_chegv, - LAPACKE_chegv_work, - LAPACKE_chegvd, - LAPACKE_chegvd_work, - LAPACKE_chegvx, - LAPACKE_chegvx_work, - LAPACKE_cherfs, - LAPACKE_cherfs_work, - LAPACKE_chesv, - LAPACKE_chesv_work, - LAPACKE_chesvx, - LAPACKE_chesvx_work, - LAPACKE_cheswapr, - LAPACKE_cheswapr_work, - LAPACKE_chetrd, - LAPACKE_chetrd_work, - LAPACKE_chetrf, - LAPACKE_chetrf_work, - LAPACKE_chetri, - LAPACKE_chetri2, - LAPACKE_chetri2_work, - LAPACKE_chetri2x, - LAPACKE_chetri2x_work, - LAPACKE_chetri_work, - LAPACKE_chetrs, - LAPACKE_chetrs2, - LAPACKE_chetrs2_work, - LAPACKE_chetrs_work, - LAPACKE_chfrk, - LAPACKE_chfrk_work, - LAPACKE_chgeqz, - LAPACKE_chgeqz_work, - LAPACKE_chpcon, - LAPACKE_chpcon_work, - LAPACKE_chpev, - LAPACKE_chpev_work, - LAPACKE_chpevd, - LAPACKE_chpevd_work, - LAPACKE_chpevx, - LAPACKE_chpevx_work, - LAPACKE_chpgst, - LAPACKE_chpgst_work, - LAPACKE_chpgv, - LAPACKE_chpgv_work, - LAPACKE_chpgvd, - LAPACKE_chpgvd_work, - LAPACKE_chpgvx, - LAPACKE_chpgvx_work, - LAPACKE_chprfs, - LAPACKE_chprfs_work, - LAPACKE_chpsv, - LAPACKE_chpsv_work, - LAPACKE_chpsvx, - LAPACKE_chpsvx_work, - LAPACKE_chptrd, - LAPACKE_chptrd_work, - LAPACKE_chptrf, - LAPACKE_chptrf_work, - LAPACKE_chptri, - LAPACKE_chptri_work, - LAPACKE_chptrs, - LAPACKE_chptrs_work, - LAPACKE_chsein, - LAPACKE_chsein_work, - LAPACKE_chseqr, - LAPACKE_chseqr_work, - LAPACKE_clacgv, - LAPACKE_clacgv_work, - LAPACKE_clacn2, - LAPACKE_clacn2_work, - LAPACKE_clacp2, - LAPACKE_clacp2_work, - LAPACKE_clacpy, - LAPACKE_clacpy_work, - LAPACKE_clag2z, - LAPACKE_clag2z_work, - LAPACKE_clange, - LAPACKE_clange_work, - LAPACKE_clanhe, - LAPACKE_clanhe_work, - LAPACKE_clansy, - LAPACKE_clansy_work, - LAPACKE_clantr, - LAPACKE_clantr_work, - LAPACKE_clapmr, - LAPACKE_clapmr_work, - LAPACKE_clarfb, - LAPACKE_clarfb_work, - LAPACKE_clarfg, - LAPACKE_clarfg_work, - LAPACKE_clarft, - LAPACKE_clarft_work, - LAPACKE_clarfx, - LAPACKE_clarfx_work, - LAPACKE_clarnv, - LAPACKE_clarnv_work, - LAPACKE_claset, - LAPACKE_claset_work, - LAPACKE_claswp, - LAPACKE_claswp_work, - LAPACKE_clauum, - LAPACKE_clauum_work, - LAPACKE_cpbcon, - LAPACKE_cpbcon_work, - LAPACKE_cpbequ, - LAPACKE_cpbequ_work, - LAPACKE_cpbrfs, - LAPACKE_cpbrfs_work, - LAPACKE_cpbstf, - LAPACKE_cpbstf_work, - LAPACKE_cpbsv, - LAPACKE_cpbsv_work, - LAPACKE_cpbsvx, - LAPACKE_cpbsvx_work, - LAPACKE_cpbtrf, - LAPACKE_cpbtrf_work, - LAPACKE_cpbtrs, - LAPACKE_cpbtrs_work, - LAPACKE_cpftrf, - LAPACKE_cpftrf_work, - LAPACKE_cpftri, - LAPACKE_cpftri_work, - LAPACKE_cpftrs, - LAPACKE_cpftrs_work, - LAPACKE_cpocon, - LAPACKE_cpocon_work, - LAPACKE_cpoequ, - LAPACKE_cpoequ_work, - LAPACKE_cpoequb, - LAPACKE_cpoequb_work, - LAPACKE_cporfs, - LAPACKE_cporfs_work, - LAPACKE_cposv, - LAPACKE_cposv_work, - LAPACKE_cposvx, - LAPACKE_cposvx_work, - LAPACKE_cpotrf, - LAPACKE_cpotrf_work, - LAPACKE_cpotri, - LAPACKE_cpotri_work, - LAPACKE_cpotrs, - LAPACKE_cpotrs_work, - LAPACKE_cppcon, - LAPACKE_cppcon_work, - LAPACKE_cppequ, - LAPACKE_cppequ_work, - LAPACKE_cpprfs, - LAPACKE_cpprfs_work, - LAPACKE_cppsv, - LAPACKE_cppsv_work, - LAPACKE_cppsvx, - LAPACKE_cppsvx_work, - LAPACKE_cpptrf, - LAPACKE_cpptrf_work, - LAPACKE_cpptri, - LAPACKE_cpptri_work, - LAPACKE_cpptrs, - LAPACKE_cpptrs_work, - LAPACKE_cpstrf, - LAPACKE_cpstrf_work, - LAPACKE_cptcon, - LAPACKE_cptcon_work, - LAPACKE_cpteqr, - LAPACKE_cpteqr_work, - LAPACKE_cptrfs, - LAPACKE_cptrfs_work, - LAPACKE_cptsv, - LAPACKE_cptsv_work, - LAPACKE_cptsvx, - LAPACKE_cptsvx_work, - LAPACKE_cpttrf, - LAPACKE_cpttrf_work, - LAPACKE_cpttrs, - LAPACKE_cpttrs_work, - LAPACKE_cspcon, - LAPACKE_cspcon_work, - LAPACKE_csprfs, - LAPACKE_csprfs_work, - LAPACKE_cspsv, - LAPACKE_cspsv_work, - LAPACKE_cspsvx, - LAPACKE_cspsvx_work, - LAPACKE_csptrf, - LAPACKE_csptrf_work, - LAPACKE_csptri, - LAPACKE_csptri_work, - LAPACKE_csptrs, - LAPACKE_csptrs_work, - LAPACKE_cstedc, - LAPACKE_cstedc_work, - LAPACKE_cstegr, - LAPACKE_cstegr_work, - LAPACKE_cstein, - LAPACKE_cstein_work, - LAPACKE_cstemr, - LAPACKE_cstemr_work, - LAPACKE_csteqr, - LAPACKE_csteqr_work, - LAPACKE_csycon, - LAPACKE_csycon_work, - LAPACKE_csyconv, - LAPACKE_csyconv_work, - LAPACKE_csyequb, - LAPACKE_csyequb_work, - LAPACKE_csyrfs, - LAPACKE_csyrfs_work, - LAPACKE_csysv, - LAPACKE_csysv_rook, - LAPACKE_csysv_rook_work, - LAPACKE_csysv_work, - LAPACKE_csysvx, - LAPACKE_csysvx_work, - LAPACKE_csyswapr, - LAPACKE_csyswapr_work, - LAPACKE_csytrf, - LAPACKE_csytrf_work, - LAPACKE_csytri, - LAPACKE_csytri2, - LAPACKE_csytri2_work, - LAPACKE_csytri2x, - LAPACKE_csytri2x_work, - LAPACKE_csytri_work, - LAPACKE_csytrs, - LAPACKE_csytrs2, - LAPACKE_csytrs2_work, - LAPACKE_csytrs_work, - LAPACKE_ctbcon, - LAPACKE_ctbcon_work, - LAPACKE_ctbrfs, - LAPACKE_ctbrfs_work, - LAPACKE_ctbtrs, - LAPACKE_ctbtrs_work, - LAPACKE_ctfsm, - LAPACKE_ctfsm_work, - LAPACKE_ctftri, - LAPACKE_ctftri_work, - LAPACKE_ctfttp, - LAPACKE_ctfttp_work, - LAPACKE_ctfttr, - LAPACKE_ctfttr_work, - LAPACKE_ctgevc, - LAPACKE_ctgevc_work, - LAPACKE_ctgexc, - LAPACKE_ctgexc_work, - LAPACKE_ctgsen, - LAPACKE_ctgsen_work, - LAPACKE_ctgsja, - LAPACKE_ctgsja_work, - LAPACKE_ctgsna, - LAPACKE_ctgsna_work, - LAPACKE_ctgsyl, - LAPACKE_ctgsyl_work, - LAPACKE_ctpcon, - LAPACKE_ctpcon_work, - LAPACKE_ctpmqrt, - LAPACKE_ctpmqrt_work, - LAPACKE_ctpqrt, - LAPACKE_ctpqrt2, - LAPACKE_ctpqrt2_work, - LAPACKE_ctpqrt_work, - LAPACKE_ctprfb, - LAPACKE_ctprfb_work, - LAPACKE_ctprfs, - LAPACKE_ctprfs_work, - LAPACKE_ctptri, - LAPACKE_ctptri_work, - LAPACKE_ctptrs, - LAPACKE_ctptrs_work, - LAPACKE_ctpttf, - LAPACKE_ctpttf_work, - LAPACKE_ctpttr, - LAPACKE_ctpttr_work, - LAPACKE_ctrcon, - LAPACKE_ctrcon_work, - LAPACKE_ctrevc, - LAPACKE_ctrevc_work, - LAPACKE_ctrexc, - LAPACKE_ctrexc_work, - LAPACKE_ctrrfs, - LAPACKE_ctrrfs_work, - LAPACKE_ctrsen, - LAPACKE_ctrsen_work, - LAPACKE_ctrsna, - LAPACKE_ctrsna_work, - LAPACKE_ctrsyl, - LAPACKE_ctrsyl_work, - LAPACKE_ctrtri, - LAPACKE_ctrtri_work, - LAPACKE_ctrtrs, - LAPACKE_ctrtrs_work, - LAPACKE_ctrttf, - LAPACKE_ctrttf_work, - LAPACKE_ctrttp, - LAPACKE_ctrttp_work, - LAPACKE_ctzrzf, - LAPACKE_ctzrzf_work, - LAPACKE_cunbdb, - LAPACKE_cunbdb_work, - LAPACKE_cuncsd, - LAPACKE_cuncsd_work, - LAPACKE_cungbr, - LAPACKE_cungbr_work, - LAPACKE_cunghr, - LAPACKE_cunghr_work, - LAPACKE_cunglq, - LAPACKE_cunglq_work, - LAPACKE_cungql, - LAPACKE_cungql_work, - LAPACKE_cungqr, - LAPACKE_cungqr_work, - LAPACKE_cungrq, - LAPACKE_cungrq_work, - LAPACKE_cungtr, - LAPACKE_cungtr_work, - LAPACKE_cunmbr, - LAPACKE_cunmbr_work, - LAPACKE_cunmhr, - LAPACKE_cunmhr_work, - LAPACKE_cunmlq, - LAPACKE_cunmlq_work, - LAPACKE_cunmql, - LAPACKE_cunmql_work, - LAPACKE_cunmqr, - LAPACKE_cunmqr_work, - LAPACKE_cunmrq, - LAPACKE_cunmrq_work, - LAPACKE_cunmrz, - LAPACKE_cunmrz_work, - LAPACKE_cunmtr, - LAPACKE_cunmtr_work, - LAPACKE_cupgtr, - LAPACKE_cupgtr_work, - LAPACKE_cupmtr, - LAPACKE_cupmtr_work, - LAPACKE_csyr, - LAPACKE_csyr_work, - LAPACKE_clatms, - LAPACKE_clatms_work, - LAPACKE_clagge, - LAPACKE_clagge_work, - LAPACKE_claghe, - LAPACKE_claghe_work, - LAPACKE_clagsy, - LAPACKE_clagsy_work, - LAPACKE_cgejsv, - LAPACKE_cgejsv_work, - LAPACKE_cgesvdx, - LAPACKE_cgesvdx_work, - LAPACKE_cgesvj, - LAPACKE_cgesvj_work, - LAPACKE_cgetrf2, - LAPACKE_cgetrf2_work, - LAPACKE_cgges3, - LAPACKE_cgges3_work, - LAPACKE_cggev3, - LAPACKE_cggev3_work, - LAPACKE_cgghd3, - LAPACKE_cgghd3_work, - LAPACKE_cggsvd3, - LAPACKE_cggsvd3_work, - LAPACKE_cggsvp3, - LAPACKE_cggsvp3_work, - LAPACKE_chetrf_rook, - LAPACKE_chetrf_rook_work, - LAPACKE_chetrs_rook, - LAPACKE_chetrs_rook_work, - LAPACKE_clapmt, - LAPACKE_clapmt_work, - LAPACKE_clascl, - LAPACKE_clascl_work, - LAPACKE_cpotrf2, - LAPACKE_cpotrf2_work, - LAPACKE_csytrf_rook, - LAPACKE_csytrf_rook_work, - LAPACKE_csytrs_rook, - LAPACKE_csytrs_rook_work, - LAPACKE_cuncsd2by1, - LAPACKE_cuncsd2by1_work, - LAPACKE_cgelq, - LAPACKE_cgelq_work, - LAPACKE_cgemlq, - LAPACKE_cgemlq_work, - LAPACKE_cgemqr, - LAPACKE_cgemqr_work, - LAPACKE_cgeqr, - LAPACKE_cgeqr_work, - LAPACKE_cgetsls, - LAPACKE_cgetsls_work, - LAPACKE_chbev_2stage, - LAPACKE_chbev_2stage_work, - LAPACKE_chbevd_2stage, - LAPACKE_chbevd_2stage_work, - LAPACKE_chbevx_2stage, - LAPACKE_chbevx_2stage_work, - LAPACKE_checon_3, - LAPACKE_checon_3_work, - LAPACKE_cheev_2stage, - LAPACKE_cheev_2stage_work, - LAPACKE_cheevd_2stage, - LAPACKE_cheevd_2stage_work, - LAPACKE_cheevr_2stage, - LAPACKE_cheevr_2stage_work, - LAPACKE_cheevx_2stage, - LAPACKE_cheevx_2stage_work, - LAPACKE_chegv_2stage, - LAPACKE_chegv_2stage_work, - LAPACKE_chesv_aa, - LAPACKE_chesv_aa_work, - LAPACKE_chesv_rk, - LAPACKE_chesv_rk_work, - LAPACKE_chetrf_aa, - LAPACKE_chetrf_aa_work, - LAPACKE_chetrf_rk, - LAPACKE_chetrf_rk_work, - LAPACKE_chetri_3, - LAPACKE_chetri_3_work, - LAPACKE_chetrs_aa, - LAPACKE_chetrs_aa_work, - LAPACKE_chetrs_3, - LAPACKE_chetrs_3_work, - LAPACKE_csycon_3, - LAPACKE_csycon_3_work, - LAPACKE_csysv_aa, - LAPACKE_csysv_aa_work, - LAPACKE_csysv_rk, - LAPACKE_csysv_rk_work, - LAPACKE_csytrf_aa, - LAPACKE_csytrf_aa_work, - LAPACKE_csytrf_rk, - LAPACKE_csytrf_rk_work, - LAPACKE_csytri_3, - LAPACKE_csytri_3_work, - LAPACKE_csytrs_aa, - LAPACKE_csytrs_aa_work, - LAPACKE_csytrs_3, - LAPACKE_csytrs_3_work, - LAPACKE_chesv_aa_2stage, - LAPACKE_chesv_aa_2stage_work, - LAPACKE_chetrf_aa_2stage, - LAPACKE_chetrf_aa_2stage_work, - LAPACKE_chetrs_aa_2stage, - LAPACKE_chetrs_aa_2stage_work, - LAPACKE_clacrm, - LAPACKE_clacrm_work, - LAPACKE_clarcm, - LAPACKE_clarcm_work, - LAPACKE_classq, - LAPACKE_classq_work, - LAPACKE_csysv_aa_2stage, - LAPACKE_csysv_aa_2stage_work, - LAPACKE_csytrf_aa_2stage, - LAPACKE_csytrf_aa_2stage_work, - LAPACKE_csytrs_aa_2stage, - LAPACKE_csytrs_aa_2stage_work, -); -@lapackeobjsd = ( - LAPACKE_dgb_nancheck, - LAPACKE_dgb_trans, - LAPACKE_dge_nancheck, - LAPACKE_dge_trans, - LAPACKE_dgg_nancheck, - LAPACKE_dgg_trans, - LAPACKE_dgt_nancheck, - LAPACKE_dhs_nancheck, - LAPACKE_dhs_trans, - LAPACKE_d_nancheck, - LAPACKE_dpb_nancheck, - LAPACKE_dpb_trans, - LAPACKE_dpf_nancheck, - LAPACKE_dpf_trans, - LAPACKE_dpo_nancheck, - LAPACKE_dpo_trans, - LAPACKE_dpp_nancheck, - LAPACKE_dpp_trans, - LAPACKE_dpt_nancheck, - LAPACKE_dsb_nancheck, - LAPACKE_dsb_trans, - LAPACKE_dsp_nancheck, - LAPACKE_dsp_trans, - LAPACKE_dst_nancheck, - LAPACKE_dsy_nancheck, - LAPACKE_dsy_trans, - LAPACKE_dtb_nancheck, - LAPACKE_dtb_trans, - LAPACKE_dtf_nancheck, - LAPACKE_dtf_trans, - LAPACKE_dtp_nancheck, - LAPACKE_dtp_trans, - LAPACKE_dtr_nancheck, - LAPACKE_dtr_trans, - LAPACKE_dbbcsd, - LAPACKE_dbbcsd_work, - LAPACKE_dbdsdc, - LAPACKE_dbdsdc_work, - LAPACKE_dbdsqr, - LAPACKE_dbdsqr_work, - LAPACKE_ddisna, - LAPACKE_ddisna_work, - LAPACKE_dgbbrd, - LAPACKE_dgbbrd_work, - LAPACKE_dgbcon, - LAPACKE_dgbcon_work, - LAPACKE_dgbequ, - LAPACKE_dgbequ_work, - LAPACKE_dgbequb, - LAPACKE_dgbequb_work, - LAPACKE_dgbrfs, - LAPACKE_dgbrfs_work, - LAPACKE_dgbsv, - LAPACKE_dgbsv_work, - LAPACKE_dgbsvx, - LAPACKE_dgbsvx_work, - LAPACKE_dgbtrf, - LAPACKE_dgbtrf_work, - LAPACKE_dgbtrs, - LAPACKE_dgbtrs_work, - LAPACKE_dgebak, - LAPACKE_dgebak_work, - LAPACKE_dgebal, - LAPACKE_dgebal_work, - LAPACKE_dgebrd, - LAPACKE_dgebrd_work, - LAPACKE_dgecon, - LAPACKE_dgecon_work, - LAPACKE_dgeequ, - LAPACKE_dgeequ_work, - LAPACKE_dgeequb, - LAPACKE_dgeequb_work, - LAPACKE_dgees, - LAPACKE_dgees_work, - LAPACKE_dgeesx, - LAPACKE_dgeesx_work, - LAPACKE_dgeev, - LAPACKE_dgeev_work, - LAPACKE_dgeevx, - LAPACKE_dgeevx_work, - LAPACKE_dgehrd, - LAPACKE_dgehrd_work, - LAPACKE_dgejsv, - LAPACKE_dgejsv_work, - LAPACKE_dgelq2, - LAPACKE_dgelq2_work, - LAPACKE_dgelqf, - LAPACKE_dgelqf_work, - LAPACKE_dgels, - LAPACKE_dgels_work, - LAPACKE_dgelsd, - LAPACKE_dgelsd_work, - LAPACKE_dgelss, - LAPACKE_dgelss_work, - LAPACKE_dgelsy, - LAPACKE_dgelsy_work, - LAPACKE_dgemqrt, - LAPACKE_dgemqrt_work, - LAPACKE_dgeqlf, - LAPACKE_dgeqlf_work, - LAPACKE_dgeqp3, - LAPACKE_dgeqp3_work, - LAPACKE_dgeqr2, - LAPACKE_dgeqr2_work, - LAPACKE_dgeqrf, - LAPACKE_dgeqrf_work, - LAPACKE_dgeqrfp, - LAPACKE_dgeqrfp_work, - LAPACKE_dgeqrt, - LAPACKE_dgeqrt2, - LAPACKE_dgeqrt2_work, - LAPACKE_dgeqrt3, - LAPACKE_dgeqrt3_work, - LAPACKE_dgeqrt_work, - LAPACKE_dgerfs, - LAPACKE_dgerfs_work, - LAPACKE_dgerqf, - LAPACKE_dgerqf_work, - LAPACKE_dgesdd, - LAPACKE_dgesdd_work, - LAPACKE_dgesv, - LAPACKE_dgesv_work, - LAPACKE_dgesvd, - LAPACKE_dgesvd_work, - LAPACKE_dgesvj, - LAPACKE_dgesvj_work, - LAPACKE_dgesvx, - LAPACKE_dgesvx_work, - LAPACKE_dgetf2, - LAPACKE_dgetf2_work, - LAPACKE_dgetrf, - LAPACKE_dgetrf_work, - LAPACKE_dgetri, - LAPACKE_dgetri_work, - LAPACKE_dgetrs, - LAPACKE_dgetrs_work, - LAPACKE_dggbak, - LAPACKE_dggbak_work, - LAPACKE_dggbal, - LAPACKE_dggbal_work, - LAPACKE_dgges, - LAPACKE_dgges_work, - LAPACKE_dggesx, - LAPACKE_dggesx_work, - LAPACKE_dggev, - LAPACKE_dggev_work, - LAPACKE_dggevx, - LAPACKE_dggevx_work, - LAPACKE_dggglm, - LAPACKE_dggglm_work, - LAPACKE_dgghrd, - LAPACKE_dgghrd_work, - LAPACKE_dgglse, - LAPACKE_dgglse_work, - LAPACKE_dggqrf, - LAPACKE_dggqrf_work, - LAPACKE_dggrqf, - LAPACKE_dggrqf_work, - LAPACKE_dgtcon, - LAPACKE_dgtcon_work, - LAPACKE_dgtrfs, - LAPACKE_dgtrfs_work, - LAPACKE_dgtsv, - LAPACKE_dgtsv_work, - LAPACKE_dgtsvx, - LAPACKE_dgtsvx_work, - LAPACKE_dgttrf, - LAPACKE_dgttrf_work, - LAPACKE_dgttrs, - LAPACKE_dgttrs_work, - LAPACKE_dhgeqz, - LAPACKE_dhgeqz_work, - LAPACKE_dhsein, - LAPACKE_dhsein_work, - LAPACKE_dhseqr, - LAPACKE_dhseqr_work, - LAPACKE_dlacn2, - LAPACKE_dlacn2_work, - LAPACKE_dlacpy, - LAPACKE_dlacpy_work, - LAPACKE_dlag2s, - LAPACKE_dlag2s_work, - LAPACKE_dlamch, - LAPACKE_dlamch_work, - LAPACKE_dlange, - LAPACKE_dlange_work, - LAPACKE_dlansy, - LAPACKE_dlansy_work, - LAPACKE_dlantr, - LAPACKE_dlantr_work, - LAPACKE_dlapmr, - LAPACKE_dlapmr_work, - LAPACKE_dlapy2, - LAPACKE_dlapy2_work, - LAPACKE_dlapy3, - LAPACKE_dlapy3_work, - LAPACKE_dlarfb, - LAPACKE_dlarfb_work, - LAPACKE_dlarfg, - LAPACKE_dlarfg_work, - LAPACKE_dlarft, - LAPACKE_dlarft_work, - LAPACKE_dlarfx, - LAPACKE_dlarfx_work, - LAPACKE_dlarnv, - LAPACKE_dlarnv_work, - LAPACKE_dlartgp, - LAPACKE_dlartgp_work, - LAPACKE_dlartgs, - LAPACKE_dlartgs_work, - LAPACKE_dlaset, - LAPACKE_dlaset_work, - LAPACKE_dlasrt, - LAPACKE_dlasrt_work, - LAPACKE_dlaswp, - LAPACKE_dlaswp_work, - LAPACKE_dlauum, - LAPACKE_dlauum_work, - LAPACKE_dopgtr, - LAPACKE_dopgtr_work, - LAPACKE_dopmtr, - LAPACKE_dopmtr_work, - LAPACKE_dorbdb, - LAPACKE_dorbdb_work, - LAPACKE_dorcsd, - LAPACKE_dorcsd_work, - LAPACKE_dorgbr, - LAPACKE_dorgbr_work, - LAPACKE_dorghr, - LAPACKE_dorghr_work, - LAPACKE_dorglq, - LAPACKE_dorglq_work, - LAPACKE_dorgql, - LAPACKE_dorgql_work, - LAPACKE_dorgqr, - LAPACKE_dorgqr_work, - LAPACKE_dorgrq, - LAPACKE_dorgrq_work, - LAPACKE_dorgtr, - LAPACKE_dorgtr_work, - LAPACKE_dormbr, - LAPACKE_dormbr_work, - LAPACKE_dormhr, - LAPACKE_dormhr_work, - LAPACKE_dormlq, - LAPACKE_dormlq_work, - LAPACKE_dormql, - LAPACKE_dormql_work, - LAPACKE_dormqr, - LAPACKE_dormqr_work, - LAPACKE_dormrq, - LAPACKE_dormrq_work, - LAPACKE_dormrz, - LAPACKE_dormrz_work, - LAPACKE_dormtr, - LAPACKE_dormtr_work, - LAPACKE_dpbcon, - LAPACKE_dpbcon_work, - LAPACKE_dpbequ, - LAPACKE_dpbequ_work, - LAPACKE_dpbrfs, - LAPACKE_dpbrfs_work, - LAPACKE_dpbstf, - LAPACKE_dpbstf_work, - LAPACKE_dpbsv, - LAPACKE_dpbsv_work, - LAPACKE_dpbsvx, - LAPACKE_dpbsvx_work, - LAPACKE_dpbtrf, - LAPACKE_dpbtrf_work, - LAPACKE_dpbtrs, - LAPACKE_dpbtrs_work, - LAPACKE_dpftrf, - LAPACKE_dpftrf_work, - LAPACKE_dpftri, - LAPACKE_dpftri_work, - LAPACKE_dpftrs, - LAPACKE_dpftrs_work, - LAPACKE_dpocon, - LAPACKE_dpocon_work, - LAPACKE_dpoequ, - LAPACKE_dpoequ_work, - LAPACKE_dpoequb, - LAPACKE_dpoequb_work, - LAPACKE_dporfs, - LAPACKE_dporfs_work, - LAPACKE_dposv, - LAPACKE_dposv_work, - LAPACKE_dposvx, - LAPACKE_dposvx_work, - LAPACKE_dpotrf, - LAPACKE_dpotrf_work, - LAPACKE_dpotri, - LAPACKE_dpotri_work, - LAPACKE_dpotrs, - LAPACKE_dpotrs_work, - LAPACKE_dppcon, - LAPACKE_dppcon_work, - LAPACKE_dppequ, - LAPACKE_dppequ_work, - LAPACKE_dpprfs, - LAPACKE_dpprfs_work, - LAPACKE_dppsv, - LAPACKE_dppsv_work, - LAPACKE_dppsvx, - LAPACKE_dppsvx_work, - LAPACKE_dpptrf, - LAPACKE_dpptrf_work, - LAPACKE_dpptri, - LAPACKE_dpptri_work, - LAPACKE_dpptrs, - LAPACKE_dpptrs_work, - LAPACKE_dpstrf, - LAPACKE_dpstrf_work, - LAPACKE_dptcon, - LAPACKE_dptcon_work, - LAPACKE_dpteqr, - LAPACKE_dpteqr_work, - LAPACKE_dptrfs, - LAPACKE_dptrfs_work, - LAPACKE_dptsv, - LAPACKE_dptsv_work, - LAPACKE_dptsvx, - LAPACKE_dptsvx_work, - LAPACKE_dpttrf, - LAPACKE_dpttrf_work, - LAPACKE_dpttrs, - LAPACKE_dpttrs_work, - LAPACKE_dsbev, - LAPACKE_dsbev_work, - LAPACKE_dsbevd, - LAPACKE_dsbevd_work, - LAPACKE_dsbevx, - LAPACKE_dsbevx_work, - LAPACKE_dsbgst, - LAPACKE_dsbgst_work, - LAPACKE_dsbgv, - LAPACKE_dsbgv_work, - LAPACKE_dsbgvd, - LAPACKE_dsbgvd_work, - LAPACKE_dsbgvx, - LAPACKE_dsbgvx_work, - LAPACKE_dsbtrd, - LAPACKE_dsbtrd_work, - LAPACKE_dsfrk, - LAPACKE_dsfrk_work, - LAPACKE_dsgesv, - LAPACKE_dsgesv_work, - LAPACKE_dspcon, - LAPACKE_dspcon_work, - LAPACKE_dspev, - LAPACKE_dspev_work, - LAPACKE_dspevd, - LAPACKE_dspevd_work, - LAPACKE_dspevx, - LAPACKE_dspevx_work, - LAPACKE_dspgst, - LAPACKE_dspgst_work, - LAPACKE_dspgv, - LAPACKE_dspgv_work, - LAPACKE_dspgvd, - LAPACKE_dspgvd_work, - LAPACKE_dspgvx, - LAPACKE_dspgvx_work, - LAPACKE_dsposv, - LAPACKE_dsposv_work, - LAPACKE_dsprfs, - LAPACKE_dsprfs_work, - LAPACKE_dspsv, - LAPACKE_dspsv_work, - LAPACKE_dspsvx, - LAPACKE_dspsvx_work, - LAPACKE_dsptrd, - LAPACKE_dsptrd_work, - LAPACKE_dsptrf, - LAPACKE_dsptrf_work, - LAPACKE_dsptri, - LAPACKE_dsptri_work, - LAPACKE_dsptrs, - LAPACKE_dsptrs_work, - LAPACKE_dstebz, - LAPACKE_dstebz_work, - LAPACKE_dstedc, - LAPACKE_dstedc_work, - LAPACKE_dstegr, - LAPACKE_dstegr_work, - LAPACKE_dstein, - LAPACKE_dstein_work, - LAPACKE_dstemr, - LAPACKE_dstemr_work, - LAPACKE_dsteqr, - LAPACKE_dsteqr_work, - LAPACKE_dsterf, - LAPACKE_dsterf_work, - LAPACKE_dstev, - LAPACKE_dstev_work, - LAPACKE_dstevd, - LAPACKE_dstevd_work, - LAPACKE_dstevr, - LAPACKE_dstevr_work, - LAPACKE_dstevx, - LAPACKE_dstevx_work, - LAPACKE_dsycon, - LAPACKE_dsycon_work, - LAPACKE_dsyconv, - LAPACKE_dsyconv_work, - LAPACKE_dsyequb, - LAPACKE_dsyequb_work, - LAPACKE_dsyev, - LAPACKE_dsyev_work, - LAPACKE_dsyevd, - LAPACKE_dsyevd_work, - LAPACKE_dsyevr, - LAPACKE_dsyevr_work, - LAPACKE_dsyevx, - LAPACKE_dsyevx_work, - LAPACKE_dsygst, - LAPACKE_dsygst_work, - LAPACKE_dsygv, - LAPACKE_dsygv_work, - LAPACKE_dsygvd, - LAPACKE_dsygvd_work, - LAPACKE_dsygvx, - LAPACKE_dsygvx_work, - LAPACKE_dsyrfs, - LAPACKE_dsyrfs_work, - LAPACKE_dsysv, - LAPACKE_dsysv_rook, - LAPACKE_dsysv_rook_work, - LAPACKE_dsysv_work, - LAPACKE_dsysvx, - LAPACKE_dsysvx_work, - LAPACKE_dsyswapr, - LAPACKE_dsyswapr_work, - LAPACKE_dsytrd, - LAPACKE_dsytrd_work, - LAPACKE_dsytrf, - LAPACKE_dsytrf_work, - LAPACKE_dsytri, - LAPACKE_dsytri2, - LAPACKE_dsytri2_work, - LAPACKE_dsytri2x, - LAPACKE_dsytri2x_work, - LAPACKE_dsytri_work, - LAPACKE_dsytrs, - LAPACKE_dsytrs2, - LAPACKE_dsytrs2_work, - LAPACKE_dsytrs_work, - LAPACKE_dtbcon, - LAPACKE_dtbcon_work, - LAPACKE_dtbrfs, - LAPACKE_dtbrfs_work, - LAPACKE_dtbtrs, - LAPACKE_dtbtrs_work, - LAPACKE_dtfsm, - LAPACKE_dtfsm_work, - LAPACKE_dtftri, - LAPACKE_dtftri_work, - LAPACKE_dtfttp, - LAPACKE_dtfttp_work, - LAPACKE_dtfttr, - LAPACKE_dtfttr_work, - LAPACKE_dtgevc, - LAPACKE_dtgevc_work, - LAPACKE_dtgexc, - LAPACKE_dtgexc_work, - LAPACKE_dtgsen, - LAPACKE_dtgsen_work, - LAPACKE_dtgsja, - LAPACKE_dtgsja_work, - LAPACKE_dtgsna, - LAPACKE_dtgsna_work, - LAPACKE_dtgsyl, - LAPACKE_dtgsyl_work, - LAPACKE_dtpcon, - LAPACKE_dtpcon_work, - LAPACKE_dtpmqrt, - LAPACKE_dtpmqrt_work, - LAPACKE_dtpqrt, - LAPACKE_dtpqrt2, - LAPACKE_dtpqrt2_work, - LAPACKE_dtpqrt_work, - LAPACKE_dtprfb, - LAPACKE_dtprfb_work, - LAPACKE_dtprfs, - LAPACKE_dtprfs_work, - LAPACKE_dtptri, - LAPACKE_dtptri_work, - LAPACKE_dtptrs, - LAPACKE_dtptrs_work, - LAPACKE_dtpttf, - LAPACKE_dtpttf_work, - LAPACKE_dtpttr, - LAPACKE_dtpttr_work, - LAPACKE_dtrcon, - LAPACKE_dtrcon_work, - LAPACKE_dtrevc, - LAPACKE_dtrevc_work, - LAPACKE_dtrexc, - LAPACKE_dtrexc_work, - LAPACKE_dtrrfs, - LAPACKE_dtrrfs_work, - LAPACKE_dtrsen, - LAPACKE_dtrsen_work, - LAPACKE_dtrsna, - LAPACKE_dtrsna_work, - LAPACKE_dtrsyl, - LAPACKE_dtrsyl_work, - LAPACKE_dtrtri, - LAPACKE_dtrtri_work, - LAPACKE_dtrtrs, - LAPACKE_dtrtrs_work, - LAPACKE_dtrttf, - LAPACKE_dtrttf_work, - LAPACKE_dtrttp, - LAPACKE_dtrttp_work, - LAPACKE_dtzrzf, - LAPACKE_dtzrzf_work, - LAPACKE_dlatms, - LAPACKE_dlatms_work, - LAPACKE_dlagge, - LAPACKE_dlagge_work, - LAPACKE_dlagsy, - LAPACKE_dlagsy_work, - LAPACKE_dbdsvdx, - LAPACKE_dbdsvdx_work, - LAPACKE_dgesvdx, - LAPACKE_dgesvdx_work, - LAPACKE_dgetrf2, - LAPACKE_dgetrf2_work, - LAPACKE_dgges3, - LAPACKE_dgges3_work, - LAPACKE_dggev3, - LAPACKE_dggev3_work, - LAPACKE_dgghd3, - LAPACKE_dgghd3_work, - LAPACKE_dggsvd3, - LAPACKE_dggsvd3_work, - LAPACKE_dggsvp3, - LAPACKE_dggsvp3_work, - LAPACKE_dlapmt, - LAPACKE_dlapmt_work, - LAPACKE_dlascl, - LAPACKE_dlascl_work, - LAPACKE_dorcsd2by1, - LAPACKE_dorcsd2by1_work, - LAPACKE_dpotrf2, - LAPACKE_dpotrf2_work, - LAPACKE_dsytrf_rook, - LAPACKE_dsytrf_rook_work, - LAPACKE_dsytrs_rook, - LAPACKE_dsytrs_rook_work, - LAPACKE_dgelq, - LAPACKE_dgelq_work, - LAPACKE_dgemlq, - LAPACKE_dgemlq_work, - LAPACKE_dgemqr, - LAPACKE_dgemqr_work, - LAPACKE_dgeqr, - LAPACKE_dgeqr_work, - LAPACKE_dgetsls, - LAPACKE_dgetsls_work, - LAPACKE_dsbev_2stage, - LAPACKE_dsbev_2stage_work, - LAPACKE_dsbevd_2stage, - LAPACKE_dsbevd_2stage_work, - LAPACKE_dsbevx_2stage, - LAPACKE_dsbevx_2stage_work, - LAPACKE_dsycon_3, - LAPACKE_dsycon_3_work, - LAPACKE_dsyev_2stage, - LAPACKE_dsyev_2stage_work, - LAPACKE_dsyevd_2stage, - LAPACKE_dsyevd_2stage_work, - LAPACKE_dsyevr_2stage, - LAPACKE_dsyevr_2stage_work, - LAPACKE_dsyevx_2stage, - LAPACKE_dsyevx_2stage_work, - LAPACKE_dsygv_2stage, - LAPACKE_dsygv_2stage_work, - LAPACKE_dsysv_aa, - LAPACKE_dsysv_aa_work, - LAPACKE_dsysv_rk, - LAPACKE_dsysv_rk_work, - LAPACKE_dsytrf_aa, - LAPACKE_dsytrf_aa_work, - LAPACKE_dsytrf_rk, - LAPACKE_dsytrf_rk_work, - LAPACKE_dsytri_3, - LAPACKE_dsytri_3_work, - LAPACKE_dsytrs_aa, - LAPACKE_dsytrs_aa_work, - LAPACKE_dsytrs_3, - LAPACKE_dsytrs_3_work, - LAPACKE_dlassq, - LAPACKE_dlassq_work, - LAPACKE_dsysv_aa_2stage, - LAPACKE_dsysv_aa_2stage_work, - LAPACKE_dsytrf_aa_2stage, - LAPACKE_dsytrf_aa_2stage_work, - LAPACKE_dsytrs_aa_2stage, - LAPACKE_dsytrs_aa_2stage_work, - LAPACKE_dgesvdq, - LAPACKE_dgesvdq_work, - LAPACKE_slag2d, - LAPACKE_slag2d_work, -); -@lapackeobjss = ( - LAPACKE_sgb_nancheck, - LAPACKE_sgb_trans, - LAPACKE_sge_nancheck, - LAPACKE_sge_trans, - LAPACKE_sgg_nancheck, - LAPACKE_sgg_trans, - LAPACKE_sgt_nancheck, - LAPACKE_shs_nancheck, - LAPACKE_shs_trans, - LAPACKE_s_nancheck, - LAPACKE_spb_nancheck, - LAPACKE_spb_trans, - LAPACKE_spf_nancheck, - LAPACKE_spf_trans, - LAPACKE_spo_nancheck, - LAPACKE_spo_trans, - LAPACKE_spp_nancheck, - LAPACKE_spp_trans, - LAPACKE_spt_nancheck, - LAPACKE_ssb_nancheck, - LAPACKE_ssb_trans, - LAPACKE_ssp_nancheck, - LAPACKE_ssp_trans, - LAPACKE_sst_nancheck, - LAPACKE_ssy_nancheck, - LAPACKE_ssy_trans, - LAPACKE_stb_nancheck, - LAPACKE_stb_trans, - LAPACKE_stf_nancheck, - LAPACKE_stf_trans, - LAPACKE_stp_nancheck, - LAPACKE_stp_trans, - LAPACKE_str_nancheck, - LAPACKE_str_trans, - LAPACKE_sbbcsd, - LAPACKE_sbbcsd_work, - LAPACKE_sbdsdc, - LAPACKE_sbdsdc_work, - LAPACKE_sbdsqr, - LAPACKE_sbdsqr_work, - LAPACKE_sdisna, - LAPACKE_sdisna_work, - LAPACKE_sgbbrd, - LAPACKE_sgbbrd_work, - LAPACKE_sgbcon, - LAPACKE_sgbcon_work, - LAPACKE_sgbequ, - LAPACKE_sgbequ_work, - LAPACKE_sgbequb, - LAPACKE_sgbequb_work, - LAPACKE_sgbrfs, - LAPACKE_sgbrfs_work, - LAPACKE_sgbsv, - LAPACKE_sgbsv_work, - LAPACKE_sgbsvx, - LAPACKE_sgbsvx_work, - LAPACKE_sgbtrf, - LAPACKE_sgbtrf_work, - LAPACKE_sgbtrs, - LAPACKE_sgbtrs_work, - LAPACKE_sgebak, - LAPACKE_sgebak_work, - LAPACKE_sgebal, - LAPACKE_sgebal_work, - LAPACKE_sgebrd, - LAPACKE_sgebrd_work, - LAPACKE_sgecon, - LAPACKE_sgecon_work, - LAPACKE_sgeequ, - LAPACKE_sgeequ_work, - LAPACKE_sgeequb, - LAPACKE_sgeequb_work, - LAPACKE_sgees, - LAPACKE_sgees_work, - LAPACKE_sgeesx, - LAPACKE_sgeesx_work, - LAPACKE_sgeev, - LAPACKE_sgeev_work, - LAPACKE_sgeevx, - LAPACKE_sgeevx_work, - LAPACKE_sgehrd, - LAPACKE_sgehrd_work, - LAPACKE_sgejsv, - LAPACKE_sgejsv_work, - LAPACKE_sgelq2, - LAPACKE_sgelq2_work, - LAPACKE_sgelqf, - LAPACKE_sgelqf_work, - LAPACKE_sgels, - LAPACKE_sgels_work, - LAPACKE_sgelsd, - LAPACKE_sgelsd_work, - LAPACKE_sgelss, - LAPACKE_sgelss_work, - LAPACKE_sgelsy, - LAPACKE_sgelsy_work, - LAPACKE_sgemqrt, - LAPACKE_sgemqrt_work, - LAPACKE_sgeqlf, - LAPACKE_sgeqlf_work, - LAPACKE_sgeqp3, - LAPACKE_sgeqp3_work, - LAPACKE_sgeqr2, - LAPACKE_sgeqr2_work, - LAPACKE_sgeqrf, - LAPACKE_sgeqrf_work, - LAPACKE_sgeqrfp, - LAPACKE_sgeqrfp_work, - LAPACKE_sgeqrt, - LAPACKE_sgeqrt2, - LAPACKE_sgeqrt2_work, - LAPACKE_sgeqrt3, - LAPACKE_sgeqrt3_work, - LAPACKE_sgeqrt_work, - LAPACKE_sgerfs, - LAPACKE_sgerfs_work, - LAPACKE_sgerqf, - LAPACKE_sgerqf_work, - LAPACKE_sgesdd, - LAPACKE_sgesdd_work, - LAPACKE_sgesv, - LAPACKE_sgesv_work, - LAPACKE_sgesvd, - LAPACKE_sgesvd_work, - LAPACKE_sgesvj, - LAPACKE_sgesvj_work, - LAPACKE_sgesvx, - LAPACKE_sgesvx_work, - LAPACKE_sgetf2, - LAPACKE_sgetf2_work, - LAPACKE_sgetrf, - LAPACKE_sgetrf_work, - LAPACKE_sgetri, - LAPACKE_sgetri_work, - LAPACKE_sgetrs, - LAPACKE_sgetrs_work, - LAPACKE_sggbak, - LAPACKE_sggbak_work, - LAPACKE_sggbal, - LAPACKE_sggbal_work, - LAPACKE_sgges, - LAPACKE_sgges_work, - LAPACKE_sggesx, - LAPACKE_sggesx_work, - LAPACKE_sggev, - LAPACKE_sggev_work, - LAPACKE_sggevx, - LAPACKE_sggevx_work, - LAPACKE_sggglm, - LAPACKE_sggglm_work, - LAPACKE_sgghrd, - LAPACKE_sgghrd_work, - LAPACKE_sgglse, - LAPACKE_sgglse_work, - LAPACKE_sggqrf, - LAPACKE_sggqrf_work, - LAPACKE_sggrqf, - LAPACKE_sggrqf_work, - LAPACKE_sgtcon, - LAPACKE_sgtcon_work, - LAPACKE_sgtrfs, - LAPACKE_sgtrfs_work, - LAPACKE_sgtsv, - LAPACKE_sgtsv_work, - LAPACKE_sgtsvx, - LAPACKE_sgtsvx_work, - LAPACKE_sgttrf, - LAPACKE_sgttrf_work, - LAPACKE_sgttrs, - LAPACKE_sgttrs_work, - LAPACKE_shgeqz, - LAPACKE_shgeqz_work, - LAPACKE_shsein, - LAPACKE_shsein_work, - LAPACKE_shseqr, - LAPACKE_shseqr_work, - LAPACKE_slacn2, - LAPACKE_slacn2_work, - LAPACKE_slacpy, - LAPACKE_slacpy_work, - LAPACKE_slamch, - LAPACKE_slamch_work, - LAPACKE_slange, - LAPACKE_slange_work, - LAPACKE_slansy, - LAPACKE_slansy_work, - LAPACKE_slantr, - LAPACKE_slantr_work, - LAPACKE_slapmr, - LAPACKE_slapmr_work, - LAPACKE_slapy2, - LAPACKE_slapy2_work, - LAPACKE_slapy3, - LAPACKE_slapy3_work, - LAPACKE_slarfb, - LAPACKE_slarfb_work, - LAPACKE_slarfg, - LAPACKE_slarfg_work, - LAPACKE_slarft, - LAPACKE_slarft_work, - LAPACKE_slarfx, - LAPACKE_slarfx_work, - LAPACKE_slarnv, - LAPACKE_slarnv_work, - LAPACKE_slartgp, - LAPACKE_slartgp_work, - LAPACKE_slartgs, - LAPACKE_slartgs_work, - LAPACKE_slaset, - LAPACKE_slaset_work, - LAPACKE_slasrt, - LAPACKE_slasrt_work, - LAPACKE_slaswp, - LAPACKE_slaswp_work, - LAPACKE_slauum, - LAPACKE_slauum_work, - LAPACKE_sopgtr, - LAPACKE_sopgtr_work, - LAPACKE_sopmtr, - LAPACKE_sopmtr_work, - LAPACKE_sorbdb, - LAPACKE_sorbdb_work, - LAPACKE_sorcsd, - LAPACKE_sorcsd_work, - LAPACKE_sorgbr, - LAPACKE_sorgbr_work, - LAPACKE_sorghr, - LAPACKE_sorghr_work, - LAPACKE_sorglq, - LAPACKE_sorglq_work, - LAPACKE_sorgql, - LAPACKE_sorgql_work, - LAPACKE_sorgqr, - LAPACKE_sorgqr_work, - LAPACKE_sorgrq, - LAPACKE_sorgrq_work, - LAPACKE_sorgtr, - LAPACKE_sorgtr_work, - LAPACKE_sormbr, - LAPACKE_sormbr_work, - LAPACKE_sormhr, - LAPACKE_sormhr_work, - LAPACKE_sormlq, - LAPACKE_sormlq_work, - LAPACKE_sormql, - LAPACKE_sormql_work, - LAPACKE_sormqr, - LAPACKE_sormqr_work, - LAPACKE_sormrq, - LAPACKE_sormrq_work, - LAPACKE_sormrz, - LAPACKE_sormrz_work, - LAPACKE_sormtr, - LAPACKE_sormtr_work, - LAPACKE_spbcon, - LAPACKE_spbcon_work, - LAPACKE_spbequ, - LAPACKE_spbequ_work, - LAPACKE_spbrfs, - LAPACKE_spbrfs_work, - LAPACKE_spbstf, - LAPACKE_spbstf_work, - LAPACKE_spbsv, - LAPACKE_spbsv_work, - LAPACKE_spbsvx, - LAPACKE_spbsvx_work, - LAPACKE_spbtrf, - LAPACKE_spbtrf_work, - LAPACKE_spbtrs, - LAPACKE_spbtrs_work, - LAPACKE_spftrf, - LAPACKE_spftrf_work, - LAPACKE_spftri, - LAPACKE_spftri_work, - LAPACKE_spftrs, - LAPACKE_spftrs_work, - LAPACKE_spocon, - LAPACKE_spocon_work, - LAPACKE_spoequ, - LAPACKE_spoequ_work, - LAPACKE_spoequb, - LAPACKE_spoequb_work, - LAPACKE_sporfs, - LAPACKE_sporfs_work, - LAPACKE_sposv, - LAPACKE_sposv_work, - LAPACKE_sposvx, - LAPACKE_sposvx_work, - LAPACKE_spotrf, - LAPACKE_spotrf_work, - LAPACKE_spotri, - LAPACKE_spotri_work, - LAPACKE_spotrs, - LAPACKE_spotrs_work, - LAPACKE_sppcon, - LAPACKE_sppcon_work, - LAPACKE_sppequ, - LAPACKE_sppequ_work, - LAPACKE_spprfs, - LAPACKE_spprfs_work, - LAPACKE_sppsv, - LAPACKE_sppsv_work, - LAPACKE_sppsvx, - LAPACKE_sppsvx_work, - LAPACKE_spptrf, - LAPACKE_spptrf_work, - LAPACKE_spptri, - LAPACKE_spptri_work, - LAPACKE_spptrs, - LAPACKE_spptrs_work, - LAPACKE_spstrf, - LAPACKE_spstrf_work, - LAPACKE_sptcon, - LAPACKE_sptcon_work, - LAPACKE_spteqr, - LAPACKE_spteqr_work, - LAPACKE_sptrfs, - LAPACKE_sptrfs_work, - LAPACKE_sptsv, - LAPACKE_sptsv_work, - LAPACKE_sptsvx, - LAPACKE_sptsvx_work, - LAPACKE_spttrf, - LAPACKE_spttrf_work, - LAPACKE_spttrs, - LAPACKE_spttrs_work, - LAPACKE_ssbev, - LAPACKE_ssbev_work, - LAPACKE_ssbevd, - LAPACKE_ssbevd_work, - LAPACKE_ssbevx, - LAPACKE_ssbevx_work, - LAPACKE_ssbgst, - LAPACKE_ssbgst_work, - LAPACKE_ssbgv, - LAPACKE_ssbgv_work, - LAPACKE_ssbgvd, - LAPACKE_ssbgvd_work, - LAPACKE_ssbgvx, - LAPACKE_ssbgvx_work, - LAPACKE_ssbtrd, - LAPACKE_ssbtrd_work, - LAPACKE_ssfrk, - LAPACKE_ssfrk_work, - LAPACKE_sspcon, - LAPACKE_sspcon_work, - LAPACKE_sspev, - LAPACKE_sspev_work, - LAPACKE_sspevd, - LAPACKE_sspevd_work, - LAPACKE_sspevx, - LAPACKE_sspevx_work, - LAPACKE_sspgst, - LAPACKE_sspgst_work, - LAPACKE_sspgv, - LAPACKE_sspgv_work, - LAPACKE_sspgvd, - LAPACKE_sspgvd_work, - LAPACKE_sspgvx, - LAPACKE_sspgvx_work, - LAPACKE_ssprfs, - LAPACKE_ssprfs_work, - LAPACKE_sspsv, - LAPACKE_sspsv_work, - LAPACKE_sspsvx, - LAPACKE_sspsvx_work, - LAPACKE_ssptrd, - LAPACKE_ssptrd_work, - LAPACKE_ssptrf, - LAPACKE_ssptrf_work, - LAPACKE_ssptri, - LAPACKE_ssptri_work, - LAPACKE_ssptrs, - LAPACKE_ssptrs_work, - LAPACKE_sstebz, - LAPACKE_sstebz_work, - LAPACKE_sstedc, - LAPACKE_sstedc_work, - LAPACKE_sstegr, - LAPACKE_sstegr_work, - LAPACKE_sstein, - LAPACKE_sstein_work, - LAPACKE_sstemr, - LAPACKE_sstemr_work, - LAPACKE_ssteqr, - LAPACKE_ssteqr_work, - LAPACKE_ssterf, - LAPACKE_ssterf_work, - LAPACKE_sstev, - LAPACKE_sstev_work, - LAPACKE_sstevd, - LAPACKE_sstevd_work, - LAPACKE_sstevr, - LAPACKE_sstevr_work, - LAPACKE_sstevx, - LAPACKE_sstevx_work, - LAPACKE_ssycon, - LAPACKE_ssycon_work, - LAPACKE_ssyconv, - LAPACKE_ssyconv_work, - LAPACKE_ssyequb, - LAPACKE_ssyequb_work, - LAPACKE_ssyev, - LAPACKE_ssyev_work, - LAPACKE_ssyevd, - LAPACKE_ssyevd_work, - LAPACKE_ssyevr, - LAPACKE_ssyevr_work, - LAPACKE_ssyevx, - LAPACKE_ssyevx_work, - LAPACKE_ssygst, - LAPACKE_ssygst_work, - LAPACKE_ssygv, - LAPACKE_ssygv_work, - LAPACKE_ssygvd, - LAPACKE_ssygvd_work, - LAPACKE_ssygvx, - LAPACKE_ssygvx_work, - LAPACKE_ssyrfs, - LAPACKE_ssyrfs_work, - LAPACKE_ssysv, - LAPACKE_ssysv_rook, - LAPACKE_ssysv_rook_work, - LAPACKE_ssysv_work, - LAPACKE_ssysvx, - LAPACKE_ssysvx_work, - LAPACKE_ssyswapr, - LAPACKE_ssyswapr_work, - LAPACKE_ssytrd, - LAPACKE_ssytrd_work, - LAPACKE_ssytrf, - LAPACKE_ssytrf_work, - LAPACKE_ssytri, - LAPACKE_ssytri2, - LAPACKE_ssytri2_work, - LAPACKE_ssytri2x, - LAPACKE_ssytri2x_work, - LAPACKE_ssytri_work, - LAPACKE_ssytrs, - LAPACKE_ssytrs2, - LAPACKE_ssytrs2_work, - LAPACKE_ssytrs_work, - LAPACKE_stbcon, - LAPACKE_stbcon_work, - LAPACKE_stbrfs, - LAPACKE_stbrfs_work, - LAPACKE_stbtrs, - LAPACKE_stbtrs_work, - LAPACKE_stfsm, - LAPACKE_stfsm_work, - LAPACKE_stftri, - LAPACKE_stftri_work, - LAPACKE_stfttp, - LAPACKE_stfttp_work, - LAPACKE_stfttr, - LAPACKE_stfttr_work, - LAPACKE_stgevc, - LAPACKE_stgevc_work, - LAPACKE_stgexc, - LAPACKE_stgexc_work, - LAPACKE_stgsen, - LAPACKE_stgsen_work, - LAPACKE_stgsja, - LAPACKE_stgsja_work, - LAPACKE_stgsna, - LAPACKE_stgsna_work, - LAPACKE_stgsyl, - LAPACKE_stgsyl_work, - LAPACKE_stpcon, - LAPACKE_stpcon_work, - LAPACKE_stpmqrt, - LAPACKE_stpmqrt_work, - LAPACKE_stpqrt2, - LAPACKE_stpqrt2_work, - LAPACKE_stprfb, - LAPACKE_stprfb_work, - LAPACKE_stprfs, - LAPACKE_stprfs_work, - LAPACKE_stptri, - LAPACKE_stptri_work, - LAPACKE_stptrs, - LAPACKE_stptrs_work, - LAPACKE_stpttf, - LAPACKE_stpttf_work, - LAPACKE_stpttr, - LAPACKE_stpttr_work, - LAPACKE_strcon, - LAPACKE_strcon_work, - LAPACKE_strevc, - LAPACKE_strevc_work, - LAPACKE_strexc, - LAPACKE_strexc_work, - LAPACKE_strrfs, - LAPACKE_strrfs_work, - LAPACKE_strsen, - LAPACKE_strsen_work, - LAPACKE_strsna, - LAPACKE_strsna_work, - LAPACKE_strsyl, - LAPACKE_strsyl_work, - LAPACKE_strtri, - LAPACKE_strtri_work, - LAPACKE_strtrs, - LAPACKE_strtrs_work, - LAPACKE_strttf, - LAPACKE_strttf_work, - LAPACKE_strttp, - LAPACKE_strttp_work, - LAPACKE_stzrzf, - LAPACKE_stzrzf_work, - LAPACKE_slatms, - LAPACKE_slatms_work, - LAPACKE_slagge, - LAPACKE_slagge_work, - LAPACKE_slagsy, - LAPACKE_slagsy_work, - LAPACKE_sbdsvdx, - LAPACKE_sbdsvdx_work, - LAPACKE_sgesvdx, - LAPACKE_sgesvdx_work, - LAPACKE_sgetrf2, - LAPACKE_sgetrf2_work, - LAPACKE_sgges3, - LAPACKE_sgges3_work, - LAPACKE_sggev3, - LAPACKE_sggev3_work, - LAPACKE_sgghd3, - LAPACKE_sgghd3_work, - LAPACKE_sggsvd3, - LAPACKE_sggsvd3_work, - LAPACKE_sggsvp3, - LAPACKE_sggsvp3_work, - LAPACKE_slapmt, - LAPACKE_slapmt_work, - LAPACKE_slascl, - LAPACKE_slascl_work, - LAPACKE_sorcsd2by1, - LAPACKE_sorcsd2by1_work, - LAPACKE_spotrf2, - LAPACKE_spotrf2_work, - LAPACKE_ssytrf_rook, - LAPACKE_ssytrf_rook_work, - LAPACKE_ssytrs_rook, - LAPACKE_ssytrs_rook_work, - LAPACKE_stpqrt, - LAPACKE_stpqrt_work, - LAPACKE_sgelq, - LAPACKE_sgelq_work, - LAPACKE_sgemlq, - LAPACKE_sgemlq_work, - LAPACKE_sgemqr, - LAPACKE_sgemqr_work, - LAPACKE_sgeqr, - LAPACKE_sgeqr_work, - LAPACKE_sgetsls, - LAPACKE_sgetsls_work, - LAPACKE_ssbev_2stage, - LAPACKE_ssbev_2stage_work, - LAPACKE_ssbevd_2stage, - LAPACKE_ssbevd_2stage_work, - LAPACKE_ssbevx_2stage, - LAPACKE_ssbevx_2stage_work, - LAPACKE_ssycon_3, - LAPACKE_ssycon_3_work, - LAPACKE_ssyev_2stage, - LAPACKE_ssyev_2stage_work, - LAPACKE_ssyevd_2stage, - LAPACKE_ssyevd_2stage_work, - LAPACKE_ssyevr_2stage, - LAPACKE_ssyevr_2stage_work, - LAPACKE_ssyevx_2stage, - LAPACKE_ssyevx_2stage_work, - LAPACKE_ssygv_2stage, - LAPACKE_ssygv_2stage_work, - LAPACKE_ssysv_aa, - LAPACKE_ssysv_aa_work, - LAPACKE_ssysv_rk, - LAPACKE_ssysv_rk_work, - LAPACKE_ssytrf_aa, - LAPACKE_ssytrf_aa_work, - LAPACKE_ssytrf_rk, - LAPACKE_ssytrf_rk_work, - LAPACKE_ssytri_3, - LAPACKE_ssytri_3_work, - LAPACKE_ssytrs_aa, - LAPACKE_ssytrs_aa_work, - LAPACKE_ssytrs_3, - LAPACKE_ssytrs_3_work, - LAPACKE_slassq, - LAPACKE_slassq_work, - LAPACKE_ssysv_aa_2stage, - LAPACKE_ssysv_aa_2stage_work, - LAPACKE_ssytrf_aa_2stage, - LAPACKE_ssytrf_aa_2stage_work, - LAPACKE_ssytrs_aa_2stage, - LAPACKE_ssytrs_aa_2stage_work, - LAPACKE_sgesvdq, - LAPACKE_sgesvdq_work, -); -@lapackeobjsz = ( - LAPACKE_zgb_nancheck, - LAPACKE_zgb_trans, - LAPACKE_zge_nancheck, - LAPACKE_zge_trans, - LAPACKE_zgg_nancheck, - LAPACKE_zgg_trans, - LAPACKE_zgt_nancheck, - LAPACKE_zhb_nancheck, - LAPACKE_zhb_trans, - LAPACKE_zhe_nancheck, - LAPACKE_zhe_trans, - LAPACKE_zhp_nancheck, - LAPACKE_zhp_trans, - LAPACKE_zhs_nancheck, - LAPACKE_zhs_trans, - LAPACKE_z_nancheck, - LAPACKE_zpb_nancheck, - LAPACKE_zpb_trans, - LAPACKE_zpf_nancheck, - LAPACKE_zpf_trans, - LAPACKE_zpo_nancheck, - LAPACKE_zpo_trans, - LAPACKE_zpp_nancheck, - LAPACKE_zpp_trans, - LAPACKE_zpt_nancheck, - LAPACKE_zsp_nancheck, - LAPACKE_zsp_trans, - LAPACKE_zst_nancheck, - LAPACKE_zsy_nancheck, - LAPACKE_zsy_trans, - LAPACKE_ztb_nancheck, - LAPACKE_ztb_trans, - LAPACKE_ztf_nancheck, - LAPACKE_ztf_trans, - LAPACKE_ztp_nancheck, - LAPACKE_ztp_trans, - LAPACKE_ztr_nancheck, - LAPACKE_ztr_trans, - LAPACKE_zbbcsd, - LAPACKE_zbbcsd_work, - LAPACKE_zbdsqr, - LAPACKE_zbdsqr_work, - LAPACKE_zcgesv, - LAPACKE_zcgesv_work, - LAPACKE_zcposv, - LAPACKE_zcposv_work, - LAPACKE_zgbbrd, - LAPACKE_zgbbrd_work, - LAPACKE_zgbcon, - LAPACKE_zgbcon_work, - LAPACKE_zgbequ, - LAPACKE_zgbequ_work, - LAPACKE_zgbequb, - LAPACKE_zgbequb_work, - LAPACKE_zgbrfs, - LAPACKE_zgbrfs_work, - LAPACKE_zgbsv, - LAPACKE_zgbsv_work, - LAPACKE_zgbsvx, - LAPACKE_zgbsvx_work, - LAPACKE_zgbtrf, - LAPACKE_zgbtrf_work, - LAPACKE_zgbtrs, - LAPACKE_zgbtrs_work, - LAPACKE_zgebak, - LAPACKE_zgebak_work, - LAPACKE_zgebal, - LAPACKE_zgebal_work, - LAPACKE_zgebrd, - LAPACKE_zgebrd_work, - LAPACKE_zgecon, - LAPACKE_zgecon_work, - LAPACKE_zgeequ, - LAPACKE_zgeequ_work, - LAPACKE_zgeequb, - LAPACKE_zgeequb_work, - LAPACKE_zgees, - LAPACKE_zgees_work, - LAPACKE_zgeesx, - LAPACKE_zgeesx_work, - LAPACKE_zgeev, - LAPACKE_zgeev_work, - LAPACKE_zgeevx, - LAPACKE_zgeevx_work, - LAPACKE_zgehrd, - LAPACKE_zgehrd_work, - LAPACKE_zgelq2, - LAPACKE_zgelq2_work, - LAPACKE_zgelqf, - LAPACKE_zgelqf_work, - LAPACKE_zgels, - LAPACKE_zgels_work, - LAPACKE_zgelsd, - LAPACKE_zgelsd_work, - LAPACKE_zgelss, - LAPACKE_zgelss_work, - LAPACKE_zgelsy, - LAPACKE_zgelsy_work, - LAPACKE_zgemqrt, - LAPACKE_zgemqrt_work, - LAPACKE_zgeqlf, - LAPACKE_zgeqlf_work, - LAPACKE_zgeqp3, - LAPACKE_zgeqp3_work, - LAPACKE_zgeqr2, - LAPACKE_zgeqr2_work, - LAPACKE_zgeqrf, - LAPACKE_zgeqrf_work, - LAPACKE_zgeqrfp, - LAPACKE_zgeqrfp_work, - LAPACKE_zgeqrt, - LAPACKE_zgeqrt2, - LAPACKE_zgeqrt2_work, - LAPACKE_zgeqrt3, - LAPACKE_zgeqrt3_work, - LAPACKE_zgeqrt_work, - LAPACKE_zgerfs, - LAPACKE_zgerfs_work, - LAPACKE_zgerqf, - LAPACKE_zgerqf_work, - LAPACKE_zgesdd, - LAPACKE_zgesdd_work, - LAPACKE_zgesv, - LAPACKE_zgesv_work, - LAPACKE_zgesvd, - LAPACKE_zgesvd_work, - LAPACKE_zgesvx, - LAPACKE_zgesvx_work, - LAPACKE_zgetf2, - LAPACKE_zgetf2_work, - LAPACKE_zgetrf, - LAPACKE_zgetrf_work, - LAPACKE_zgetri, - LAPACKE_zgetri_work, - LAPACKE_zgetrs, - LAPACKE_zgetrs_work, - LAPACKE_zggbak, - LAPACKE_zggbak_work, - LAPACKE_zggbal, - LAPACKE_zggbal_work, - LAPACKE_zgges, - LAPACKE_zgges_work, - LAPACKE_zggesx, - LAPACKE_zggesx_work, - LAPACKE_zggev, - LAPACKE_zggev_work, - LAPACKE_zggevx, - LAPACKE_zggevx_work, - LAPACKE_zggglm, - LAPACKE_zggglm_work, - LAPACKE_zgghrd, - LAPACKE_zgghrd_work, - LAPACKE_zgglse, - LAPACKE_zgglse_work, - LAPACKE_zggqrf, - LAPACKE_zggqrf_work, - LAPACKE_zggrqf, - LAPACKE_zggrqf_work, - LAPACKE_zgtcon, - LAPACKE_zgtcon_work, - LAPACKE_zgtrfs, - LAPACKE_zgtrfs_work, - LAPACKE_zgtsv, - LAPACKE_zgtsv_work, - LAPACKE_zgtsvx, - LAPACKE_zgtsvx_work, - LAPACKE_zgttrf, - LAPACKE_zgttrf_work, - LAPACKE_zgttrs, - LAPACKE_zgttrs_work, - LAPACKE_zhbev, - LAPACKE_zhbev_work, - LAPACKE_zhbevd, - LAPACKE_zhbevd_work, - LAPACKE_zhbevx, - LAPACKE_zhbevx_work, - LAPACKE_zhbgst, - LAPACKE_zhbgst_work, - LAPACKE_zhbgv, - LAPACKE_zhbgv_work, - LAPACKE_zhbgvd, - LAPACKE_zhbgvd_work, - LAPACKE_zhbgvx, - LAPACKE_zhbgvx_work, - LAPACKE_zhbtrd, - LAPACKE_zhbtrd_work, - LAPACKE_zhecon, - LAPACKE_zhecon_work, - LAPACKE_zheequb, - LAPACKE_zheequb_work, - LAPACKE_zheev, - LAPACKE_zheev_work, - LAPACKE_zheevd, - LAPACKE_zheevd_work, - LAPACKE_zheevr, - LAPACKE_zheevr_work, - LAPACKE_zheevx, - LAPACKE_zheevx_work, - LAPACKE_zhegst, - LAPACKE_zhegst_work, - LAPACKE_zhegv, - LAPACKE_zhegv_work, - LAPACKE_zhegvd, - LAPACKE_zhegvd_work, - LAPACKE_zhegvx, - LAPACKE_zhegvx_work, - LAPACKE_zherfs, - LAPACKE_zherfs_work, - LAPACKE_zhesv, - LAPACKE_zhesv_work, - LAPACKE_zhesvx, - LAPACKE_zhesvx_work, - LAPACKE_zheswapr, - LAPACKE_zheswapr_work, - LAPACKE_zhetrd, - LAPACKE_zhetrd_work, - LAPACKE_zhetrf, - LAPACKE_zhetrf_work, - LAPACKE_zhetri, - LAPACKE_zhetri2, - LAPACKE_zhetri2_work, - LAPACKE_zhetri2x, - LAPACKE_zhetri2x_work, - LAPACKE_zhetri_work, - LAPACKE_zhetrs, - LAPACKE_zhetrs2, - LAPACKE_zhetrs2_work, - LAPACKE_zhetrs_work, - LAPACKE_zhfrk, - LAPACKE_zhfrk_work, - LAPACKE_zhgeqz, - LAPACKE_zhgeqz_work, - LAPACKE_zhpcon, - LAPACKE_zhpcon_work, - LAPACKE_zhpev, - LAPACKE_zhpev_work, - LAPACKE_zhpevd, - LAPACKE_zhpevd_work, - LAPACKE_zhpevx, - LAPACKE_zhpevx_work, - LAPACKE_zhpgst, - LAPACKE_zhpgst_work, - LAPACKE_zhpgv, - LAPACKE_zhpgv_work, - LAPACKE_zhpgvd, - LAPACKE_zhpgvd_work, - LAPACKE_zhpgvx, - LAPACKE_zhpgvx_work, - LAPACKE_zhprfs, - LAPACKE_zhprfs_work, - LAPACKE_zhpsv, - LAPACKE_zhpsv_work, - LAPACKE_zhpsvx, - LAPACKE_zhpsvx_work, - LAPACKE_zhptrd, - LAPACKE_zhptrd_work, - LAPACKE_zhptrf, - LAPACKE_zhptrf_work, - LAPACKE_zhptri, - LAPACKE_zhptri_work, - LAPACKE_zhptrs, - LAPACKE_zhptrs_work, - LAPACKE_zhsein, - LAPACKE_zhsein_work, - LAPACKE_zhseqr, - LAPACKE_zhseqr_work, - LAPACKE_zlacgv, - LAPACKE_zlacgv_work, - LAPACKE_zlacn2, - LAPACKE_zlacn2_work, - LAPACKE_zlacp2, - LAPACKE_zlacp2_work, - LAPACKE_zlacpy, - LAPACKE_zlacpy_work, - LAPACKE_zlag2c, - LAPACKE_zlag2c_work, - LAPACKE_zlange, - LAPACKE_zlange_work, - LAPACKE_zlanhe, - LAPACKE_zlanhe_work, - LAPACKE_zlansy, - LAPACKE_zlansy_work, - LAPACKE_zlantr, - LAPACKE_zlantr_work, - LAPACKE_zlapmr, - LAPACKE_zlapmr_work, - LAPACKE_zlarfb, - LAPACKE_zlarfb_work, - LAPACKE_zlarfg, - LAPACKE_zlarfg_work, - LAPACKE_zlarft, - LAPACKE_zlarft_work, - LAPACKE_zlarfx, - LAPACKE_zlarfx_work, - LAPACKE_zlarnv, - LAPACKE_zlarnv_work, - LAPACKE_zlaset, - LAPACKE_zlaset_work, - LAPACKE_zlaswp, - LAPACKE_zlaswp_work, - LAPACKE_zlauum, - LAPACKE_zlauum_work, - LAPACKE_zpbcon, - LAPACKE_zpbcon_work, - LAPACKE_zpbequ, - LAPACKE_zpbequ_work, - LAPACKE_zpbrfs, - LAPACKE_zpbrfs_work, - LAPACKE_zpbstf, - LAPACKE_zpbstf_work, - LAPACKE_zpbsv, - LAPACKE_zpbsv_work, - LAPACKE_zpbsvx, - LAPACKE_zpbsvx_work, - LAPACKE_zpbtrf, - LAPACKE_zpbtrf_work, - LAPACKE_zpbtrs, - LAPACKE_zpbtrs_work, - LAPACKE_zpftrf, - LAPACKE_zpftrf_work, - LAPACKE_zpftri, - LAPACKE_zpftri_work, - LAPACKE_zpftrs, - LAPACKE_zpftrs_work, - LAPACKE_zpocon, - LAPACKE_zpocon_work, - LAPACKE_zpoequ, - LAPACKE_zpoequ_work, - LAPACKE_zpoequb, - LAPACKE_zpoequb_work, - LAPACKE_zporfs, - LAPACKE_zporfs_work, - LAPACKE_zposv, - LAPACKE_zposv_work, - LAPACKE_zposvx, - LAPACKE_zposvx_work, - LAPACKE_zpotrf, - LAPACKE_zpotrf_work, - LAPACKE_zpotri, - LAPACKE_zpotri_work, - LAPACKE_zpotrs, - LAPACKE_zpotrs_work, - LAPACKE_zppcon, - LAPACKE_zppcon_work, - LAPACKE_zppequ, - LAPACKE_zppequ_work, - LAPACKE_zpprfs, - LAPACKE_zpprfs_work, - LAPACKE_zppsv, - LAPACKE_zppsv_work, - LAPACKE_zppsvx, - LAPACKE_zppsvx_work, - LAPACKE_zpptrf, - LAPACKE_zpptrf_work, - LAPACKE_zpptri, - LAPACKE_zpptri_work, - LAPACKE_zpptrs, - LAPACKE_zpptrs_work, - LAPACKE_zpstrf, - LAPACKE_zpstrf_work, - LAPACKE_zptcon, - LAPACKE_zptcon_work, - LAPACKE_zpteqr, - LAPACKE_zpteqr_work, - LAPACKE_zptrfs, - LAPACKE_zptrfs_work, - LAPACKE_zptsv, - LAPACKE_zptsv_work, - LAPACKE_zptsvx, - LAPACKE_zptsvx_work, - LAPACKE_zpttrf, - LAPACKE_zpttrf_work, - LAPACKE_zpttrs, - LAPACKE_zpttrs_work, - LAPACKE_zspcon, - LAPACKE_zspcon_work, - LAPACKE_zsprfs, - LAPACKE_zsprfs_work, - LAPACKE_zspsv, - LAPACKE_zspsv_work, - LAPACKE_zspsvx, - LAPACKE_zspsvx_work, - LAPACKE_zsptrf, - LAPACKE_zsptrf_work, - LAPACKE_zsptri, - LAPACKE_zsptri_work, - LAPACKE_zsptrs, - LAPACKE_zsptrs_work, - LAPACKE_zstedc, - LAPACKE_zstedc_work, - LAPACKE_zstegr, - LAPACKE_zstegr_work, - LAPACKE_zstein, - LAPACKE_zstein_work, - LAPACKE_zstemr, - LAPACKE_zstemr_work, - LAPACKE_zsteqr, - LAPACKE_zsteqr_work, - LAPACKE_zsycon, - LAPACKE_zsycon_work, - LAPACKE_zsyconv, - LAPACKE_zsyconv_work, - LAPACKE_zsyequb, - LAPACKE_zsyequb_work, - LAPACKE_zsyrfs, - LAPACKE_zsyrfs_work, - LAPACKE_zsysv, - LAPACKE_zsysv_rook, - LAPACKE_zsysv_rook_work, - LAPACKE_zsysv_work, - LAPACKE_zsysvx, - LAPACKE_zsysvx_work, - LAPACKE_zsyswapr, - LAPACKE_zsyswapr_work, - LAPACKE_zsytrf, - LAPACKE_zsytrf_work, - LAPACKE_zsytri, - LAPACKE_zsytri2, - LAPACKE_zsytri2_work, - LAPACKE_zsytri2x, - LAPACKE_zsytri2x_work, - LAPACKE_zsytri_work, - LAPACKE_zsytrs, - LAPACKE_zsytrs2, - LAPACKE_zsytrs2_work, - LAPACKE_zsytrs_work, - LAPACKE_ztbcon, - LAPACKE_ztbcon_work, - LAPACKE_ztbrfs, - LAPACKE_ztbrfs_work, - LAPACKE_ztbtrs, - LAPACKE_ztbtrs_work, - LAPACKE_ztfsm, - LAPACKE_ztfsm_work, - LAPACKE_ztftri, - LAPACKE_ztftri_work, - LAPACKE_ztfttp, - LAPACKE_ztfttp_work, - LAPACKE_ztfttr, - LAPACKE_ztfttr_work, - LAPACKE_ztgevc, - LAPACKE_ztgevc_work, - LAPACKE_ztgexc, - LAPACKE_ztgexc_work, - LAPACKE_ztgsen, - LAPACKE_ztgsen_work, - LAPACKE_ztgsja, - LAPACKE_ztgsja_work, - LAPACKE_ztgsna, - LAPACKE_ztgsna_work, - LAPACKE_ztgsyl, - LAPACKE_ztgsyl_work, - LAPACKE_ztpcon, - LAPACKE_ztpcon_work, - LAPACKE_ztpmqrt, - LAPACKE_ztpmqrt_work, - LAPACKE_ztpqrt, - LAPACKE_ztpqrt2, - LAPACKE_ztpqrt2_work, - LAPACKE_ztpqrt_work, - LAPACKE_ztprfb, - LAPACKE_ztprfb_work, - LAPACKE_ztprfs, - LAPACKE_ztprfs_work, - LAPACKE_ztptri, - LAPACKE_ztptri_work, - LAPACKE_ztptrs, - LAPACKE_ztptrs_work, - LAPACKE_ztpttf, - LAPACKE_ztpttf_work, - LAPACKE_ztpttr, - LAPACKE_ztpttr_work, - LAPACKE_ztrcon, - LAPACKE_ztrcon_work, - LAPACKE_ztrevc, - LAPACKE_ztrevc_work, - LAPACKE_ztrexc, - LAPACKE_ztrexc_work, - LAPACKE_ztrrfs, - LAPACKE_ztrrfs_work, - LAPACKE_ztrsen, - LAPACKE_ztrsen_work, - LAPACKE_ztrsna, - LAPACKE_ztrsna_work, - LAPACKE_ztrsyl, - LAPACKE_ztrsyl_work, - LAPACKE_ztrtri, - LAPACKE_ztrtri_work, - LAPACKE_ztrtrs, - LAPACKE_ztrtrs_work, - LAPACKE_ztrttf, - LAPACKE_ztrttf_work, - LAPACKE_ztrttp, - LAPACKE_ztrttp_work, - LAPACKE_ztzrzf, - LAPACKE_ztzrzf_work, - LAPACKE_zunbdb, - LAPACKE_zunbdb_work, - LAPACKE_zuncsd, - LAPACKE_zuncsd_work, - LAPACKE_zungbr, - LAPACKE_zungbr_work, - LAPACKE_zunghr, - LAPACKE_zunghr_work, - LAPACKE_zunglq, - LAPACKE_zunglq_work, - LAPACKE_zungql, - LAPACKE_zungql_work, - LAPACKE_zungqr, - LAPACKE_zungqr_work, - LAPACKE_zungrq, - LAPACKE_zungrq_work, - LAPACKE_zungtr, - LAPACKE_zungtr_work, - LAPACKE_zunmbr, - LAPACKE_zunmbr_work, - LAPACKE_zunmhr, - LAPACKE_zunmhr_work, - LAPACKE_zunmlq, - LAPACKE_zunmlq_work, - LAPACKE_zunmql, - LAPACKE_zunmql_work, - LAPACKE_zunmqr, - LAPACKE_zunmqr_work, - LAPACKE_zunmrq, - LAPACKE_zunmrq_work, - LAPACKE_zunmrz, - LAPACKE_zunmrz_work, - LAPACKE_zunmtr, - LAPACKE_zunmtr_work, - LAPACKE_zupgtr, - LAPACKE_zupgtr_work, - LAPACKE_zupmtr, - LAPACKE_zupmtr_work, - LAPACKE_zsyr, - LAPACKE_zsyr_work, - ## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` - ## Not exported: requires LAPACKE_EXTENDED to be set and depends on the - ## corresponding LAPACK extended precision routines. - #LAPACKE_cgbrfsx, - #LAPACKE_cporfsx, - #LAPACKE_dgerfsx, - #LAPACKE_sgbrfsx, - #LAPACKE_ssyrfsx, - #LAPACKE_zherfsx, - #LAPACKE_cgbrfsx_work, - #LAPACKE_cporfsx_work, - #LAPACKE_dgerfsx_work, - #LAPACKE_sgbrfsx_work, - #LAPACKE_ssyrfsx_work, - #LAPACKE_zherfsx_work, - #LAPACKE_cgerfsx, - #LAPACKE_csyrfsx, - #LAPACKE_dporfsx, - #LAPACKE_sgerfsx, - #LAPACKE_zgbrfsx, - #LAPACKE_zporfsx, - #LAPACKE_cgerfsx_work, - #LAPACKE_csyrfsx_work, - #LAPACKE_dporfsx_work, - #LAPACKE_sgerfsx_work, - #LAPACKE_zgbrfsx_work, - #LAPACKE_zporfsx_work, - #LAPACKE_cherfsx, - #LAPACKE_dgbrfsx, - #LAPACKE_dsyrfsx, - #LAPACKE_sporfsx, - #LAPACKE_zgerfsx, - #LAPACKE_zsyrfsx, - #LAPACKE_cherfsx_work, - #LAPACKE_dgbrfsx_work, - #LAPACKE_dsyrfsx_work, - #LAPACKE_sporfsx_work, - #LAPACKE_zgerfsx_work, - #LAPACKE_zsyrfsx_work, - #LAPACKE_cgbsvxx, - #LAPACKE_cposvxx, - #LAPACKE_dgesvxx, - #LAPACKE_sgbsvxx, - #LAPACKE_ssysvxx, - #LAPACKE_zhesvxx, - #LAPACKE_cgbsvxx_work, - #LAPACKE_cposvxx_work, - #LAPACKE_dgesvxx_work, - #LAPACKE_sgbsvxx_work, - #LAPACKE_ssysvxx_work, - #LAPACKE_zhesvxx_work, - #LAPACKE_cgesvxx, - #LAPACKE_csysvxx, - #LAPACKE_dposvxx, - #LAPACKE_sgesvxx, - #LAPACKE_zgbsvxx, - #LAPACKE_zposvxx, - #LAPACKE_cgesvxx_work, - #LAPACKE_csysvxx_work, - #LAPACKE_dposvxx_work, - #LAPACKE_sgesvxx_work, - #LAPACKE_zgbsvxx_work, - #LAPACKE_zposvxx_work, - #LAPACKE_chesvxx, - #LAPACKE_dgbsvxx, - #LAPACKE_dsysvxx, - #LAPACKE_sposvxx, - #LAPACKE_zgesvxx, - #LAPACKE_zsysvxx, - #LAPACKE_chesvxx_work, - #LAPACKE_dgbsvxx_work, - #LAPACKE_dsysvxx_work, - #LAPACKE_sposvxx_work, - #LAPACKE_zgesvxx_work, - #LAPACKE_zsysvxx_work, - - ## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` - ## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg - ## (see `lapack-3.4.1/TESTING/MATGEN`). - LAPACKE_zlatms, - LAPACKE_zlatms_work, - LAPACKE_zlagge, - LAPACKE_zlagge_work, - LAPACKE_zlaghe, - LAPACKE_zlaghe_work, - LAPACKE_zlagsy, - LAPACKE_zlagsy_work, - ## new function from lapack-3.6.0 - LAPACKE_zgejsv, - LAPACKE_zgejsv_work, - LAPACKE_zgesvdx, - LAPACKE_zgesvdx_work, - LAPACKE_zgesvj, - LAPACKE_zgesvj_work, - LAPACKE_zgetrf2, - LAPACKE_zgetrf2_work, - LAPACKE_zgges3, - LAPACKE_zgges3_work, - LAPACKE_zggev3, - LAPACKE_zggev3_work, - LAPACKE_zgghd3, - LAPACKE_zgghd3_work, - LAPACKE_zggsvd3, - LAPACKE_zggsvd3_work, - LAPACKE_zggsvp3, - LAPACKE_zggsvp3_work, - LAPACKE_zhetrf_rook, - LAPACKE_zhetrf_rook_work, - LAPACKE_zhetrs_rook, - LAPACKE_zhetrs_rook_work, - LAPACKE_zlapmt, - LAPACKE_zlapmt_work, - LAPACKE_zlascl, - LAPACKE_zlascl_work, - LAPACKE_zpotrf2, - LAPACKE_zpotrf2_work, - LAPACKE_zsytrf_rook, - LAPACKE_zsytrf_rook_work, - LAPACKE_zsytrs_rook, - LAPACKE_zsytrs_rook_work, - LAPACKE_zuncsd2by1, - LAPACKE_zuncsd2by1_work, - - ## new function from lapack-3.7.0 - LAPACKE_zgelq, - LAPACKE_zgelq_work, - LAPACKE_zgemlq, - LAPACKE_zgemlq_work, - LAPACKE_zgemqr, - LAPACKE_zgemqr_work, - LAPACKE_zgeqr, - LAPACKE_zgeqr_work, - LAPACKE_zgetsls, - LAPACKE_zgetsls_work, - LAPACKE_zhbev_2stage, - LAPACKE_zhbev_2stage_work, - LAPACKE_zhbevd_2stage, - LAPACKE_zhbevd_2stage_work, - LAPACKE_zhbevx_2stage, - LAPACKE_zhbevx_2stage_work, - LAPACKE_zhecon_3, - LAPACKE_zhecon_3_work, - LAPACKE_zheev_2stage, - LAPACKE_zheev_2stage_work, - LAPACKE_zheevd_2stage, - LAPACKE_zheevd_2stage_work, - LAPACKE_zheevr_2stage, - LAPACKE_zheevr_2stage_work, - LAPACKE_zheevx_2stage, - LAPACKE_zheevx_2stage_work, - LAPACKE_zhegv_2stage, - LAPACKE_zhegv_2stage_work, - LAPACKE_zhesv_aa, - LAPACKE_zhesv_aa_work, - LAPACKE_zhesv_rk, - LAPACKE_zhesv_rk_work, - LAPACKE_zhetrf_aa, - LAPACKE_zhetrf_aa_work, - LAPACKE_zhetrf_rk, - LAPACKE_zhetrf_rk_work, - LAPACKE_zhetri_3, - LAPACKE_zhetri_3_work, - LAPACKE_zhetrs_aa, - LAPACKE_zhetrs_aa_work, - LAPACKE_zhetrs_3, - LAPACKE_zhetrs_3_work, - LAPACKE_zsycon_3, - LAPACKE_zsycon_3_work, - LAPACKE_zsysv_aa, - LAPACKE_zsysv_aa_work, - LAPACKE_zsysv_rk, - LAPACKE_zsysv_rk_work, - LAPACKE_zsytrf_aa, - LAPACKE_zsytrf_aa_work, - LAPACKE_zsytrf_rk, - LAPACKE_zsytrf_rk_work, - LAPACKE_zsytri_3, - LAPACKE_zsytri_3_work, - LAPACKE_zsytrs_aa, - LAPACKE_zsytrs_aa_work, - LAPACKE_zsytrs_3, - LAPACKE_zsytrs_3_work, - - ## new function from lapack-3.8.0 - LAPACKE_zhesv_aa_2stage, - LAPACKE_zhesv_aa_2stage_work, - LAPACKE_zhetrf_aa_2stage, - LAPACKE_zhetrf_aa_2stage_work, - LAPACKE_zhetrs_aa_2stage, - LAPACKE_zhetrs_aa_2stage_work, - LAPACKE_zlacrm, - LAPACKE_zlacrm_work, - LAPACKE_zlarcm, - LAPACKE_zlarcm_work, - LAPACKE_zlassq, - LAPACKE_zlassq_work, - LAPACKE_zsysv_aa_2stage, - LAPACKE_zsysv_aa_2stage_work, - LAPACKE_zsytrf_aa_2stage, - LAPACKE_zsytrf_aa_2stage_work, - LAPACKE_zsytrs_aa_2stage, - LAPACKE_zsytrs_aa_2stage_work, - # new functions from 3.9.0 - LAPACKE_zgesvdq, + " + +lapacke_deprecated_objsc=" + LAPACKE_cggsvp + LAPACKE_cggsvp_work + LAPACKE_cggsvd + LAPACKE_cggsvd_work + LAPACKE_cgeqpf + LAPACKE_cgeqpf_work +" + +lapacke_deprecated_objsd=" + LAPACKE_dggsvp + LAPACKE_dggsvp_work + LAPACKE_dggsvd + LAPACKE_dggsvd_work + LAPACKE_dgeqpf + LAPACKE_dgeqpf_work +" + +lapacke_deprecated_objss=" + LAPACKE_sggsvp + LAPACKE_sggsvp_work + LAPACKE_sggsvd + LAPACKE_sggsvd_work + LAPACKE_sgeqpf + LAPACKE_sgeqpf_work +" + +lapacke_deprecated_objsz=" + LAPACKE_zggsvp + LAPACKE_zggsvp_work + LAPACKE_zggsvd + LAPACKE_zggsvd_work + LAPACKE_zgeqpf + LAPACKE_zgeqpf_work +" + +# LAPACK C interface routines. +# +# This list is prepared in a similar manner to @lapackobjs2, however the +# functions all begin with an uppercase prefix (with the exception of the +# make_complex_* routines). +# +# The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not +# exported since the respective LAPACK routines are not built by default. + +# @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` +lapackeobjs=" + LAPACKE_lsame + LAPACKE_ilaver + LAPACKE_xerbla + lapack_make_complex_float + lapack_make_complex_double + LAPACKE_get_nancheck + LAPACKE_set_nancheck +" + +lapackeobjsc=" + LAPACKE_cgb_nancheck + LAPACKE_cgb_trans + LAPACKE_cge_nancheck + LAPACKE_cge_trans + LAPACKE_cgg_nancheck + LAPACKE_cgg_trans + LAPACKE_cgt_nancheck + LAPACKE_chb_nancheck + LAPACKE_chb_trans + LAPACKE_che_nancheck + LAPACKE_che_trans + LAPACKE_chp_nancheck + LAPACKE_chp_trans + LAPACKE_chs_nancheck + LAPACKE_chs_trans + LAPACKE_c_nancheck + LAPACKE_cpb_nancheck + LAPACKE_cpb_trans + LAPACKE_cpf_nancheck + LAPACKE_cpf_trans + LAPACKE_cpo_nancheck + LAPACKE_cpo_trans + LAPACKE_cpp_nancheck + LAPACKE_cpp_trans + LAPACKE_cpt_nancheck + LAPACKE_csp_nancheck + LAPACKE_csp_trans + LAPACKE_cst_nancheck + LAPACKE_csy_nancheck + LAPACKE_csy_trans + LAPACKE_ctb_nancheck + LAPACKE_ctb_trans + LAPACKE_ctf_nancheck + LAPACKE_ctf_trans + LAPACKE_ctp_nancheck + LAPACKE_ctp_trans + LAPACKE_ctr_nancheck + LAPACKE_ctr_trans + LAPACKE_cbbcsd + LAPACKE_cbbcsd_work + LAPACKE_cbdsqr + LAPACKE_cbdsqr_work + LAPACKE_cgbbrd + LAPACKE_cgbbrd_work + LAPACKE_cgbcon + LAPACKE_cgbcon_work + LAPACKE_cgbequ + LAPACKE_cgbequ_work + LAPACKE_cgbequb + LAPACKE_cgbequb_work + LAPACKE_cgbrfs + LAPACKE_cgbrfs_work + LAPACKE_cgbsv + LAPACKE_cgbsv_work + LAPACKE_cgbsvx + LAPACKE_cgbsvx_work + LAPACKE_cgbtrf + LAPACKE_cgbtrf_work + LAPACKE_cgbtrs + LAPACKE_cgbtrs_work + LAPACKE_cgebak + LAPACKE_cgebak_work + LAPACKE_cgebal + LAPACKE_cgebal_work + LAPACKE_cgebrd + LAPACKE_cgebrd_work + LAPACKE_cgecon + LAPACKE_cgecon_work + LAPACKE_cgeequ + LAPACKE_cgeequ_work + LAPACKE_cgeequb + LAPACKE_cgeequb_work + LAPACKE_cgees + LAPACKE_cgees_work + LAPACKE_cgeesx + LAPACKE_cgeesx_work + LAPACKE_cgeev + LAPACKE_cgeev_work + LAPACKE_cgeevx + LAPACKE_cgeevx_work + LAPACKE_cgehrd + LAPACKE_cgehrd_work + LAPACKE_cgelq2 + LAPACKE_cgelq2_work + LAPACKE_cgelqf + LAPACKE_cgelqf_work + LAPACKE_cgels + LAPACKE_cgels_work + LAPACKE_cgelsd + LAPACKE_cgelsd_work + LAPACKE_cgelss + LAPACKE_cgelss_work + LAPACKE_cgelsy + LAPACKE_cgelsy_work + LAPACKE_cgemqrt + LAPACKE_cgemqrt_work + LAPACKE_cgeqlf + LAPACKE_cgeqlf_work + LAPACKE_cgeqp3 + LAPACKE_cgeqp3_work + LAPACKE_cgeqr2 + LAPACKE_cgeqr2_work + LAPACKE_cgeqrf + LAPACKE_cgeqrf_work + LAPACKE_cgeqrfp + LAPACKE_cgeqrfp_work + LAPACKE_cgeqrt + LAPACKE_cgeqrt2 + LAPACKE_cgeqrt2_work + LAPACKE_cgeqrt3 + LAPACKE_cgeqrt3_work + LAPACKE_cgeqrt_work + LAPACKE_cgerfs + LAPACKE_cgerfs_work + LAPACKE_cgerqf + LAPACKE_cgerqf_work + LAPACKE_cgesdd + LAPACKE_cgesdd_work + LAPACKE_cgesv + LAPACKE_cgesv_work + LAPACKE_cgesvd + LAPACKE_cgesvd_work + LAPACKE_cgesvx + LAPACKE_cgesvx_work + LAPACKE_cgetf2 + LAPACKE_cgetf2_work + LAPACKE_cgetrf + LAPACKE_cgetrf_work + LAPACKE_cgetri + LAPACKE_cgetri_work + LAPACKE_cgetrs + LAPACKE_cgetrs_work + LAPACKE_cggbak + LAPACKE_cggbak_work + LAPACKE_cggbal + LAPACKE_cggbal_work + LAPACKE_cgges + LAPACKE_cgges_work + LAPACKE_cggesx + LAPACKE_cggesx_work + LAPACKE_cggev + LAPACKE_cggev_work + LAPACKE_cggevx + LAPACKE_cggevx_work + LAPACKE_cggglm + LAPACKE_cggglm_work + LAPACKE_cgghrd + LAPACKE_cgghrd_work + LAPACKE_cgglse + LAPACKE_cgglse_work + LAPACKE_cggqrf + LAPACKE_cggqrf_work + LAPACKE_cggrqf + LAPACKE_cggrqf_work + LAPACKE_cgtcon + LAPACKE_cgtcon_work + LAPACKE_cgtrfs + LAPACKE_cgtrfs_work + LAPACKE_cgtsv + LAPACKE_cgtsv_work + LAPACKE_cgtsvx + LAPACKE_cgtsvx_work + LAPACKE_cgttrf + LAPACKE_cgttrf_work + LAPACKE_cgttrs + LAPACKE_cgttrs_work + LAPACKE_chbev + LAPACKE_chbev_work + LAPACKE_chbevd + LAPACKE_chbevd_work + LAPACKE_chbevx + LAPACKE_chbevx_work + LAPACKE_chbgst + LAPACKE_chbgst_work + LAPACKE_chbgv + LAPACKE_chbgv_work + LAPACKE_chbgvd + LAPACKE_chbgvd_work + LAPACKE_chbgvx + LAPACKE_chbgvx_work + LAPACKE_chbtrd + LAPACKE_chbtrd_work + LAPACKE_checon + LAPACKE_checon_work + LAPACKE_cheequb + LAPACKE_cheequb_work + LAPACKE_cheev + LAPACKE_cheev_work + LAPACKE_cheevd + LAPACKE_cheevd_work + LAPACKE_cheevr + LAPACKE_cheevr_work + LAPACKE_cheevx + LAPACKE_cheevx_work + LAPACKE_chegst + LAPACKE_chegst_work + LAPACKE_chegv + LAPACKE_chegv_work + LAPACKE_chegvd + LAPACKE_chegvd_work + LAPACKE_chegvx + LAPACKE_chegvx_work + LAPACKE_cherfs + LAPACKE_cherfs_work + LAPACKE_chesv + LAPACKE_chesv_work + LAPACKE_chesvx + LAPACKE_chesvx_work + LAPACKE_cheswapr + LAPACKE_cheswapr_work + LAPACKE_chetrd + LAPACKE_chetrd_work + LAPACKE_chetrf + LAPACKE_chetrf_work + LAPACKE_chetri + LAPACKE_chetri2 + LAPACKE_chetri2_work + LAPACKE_chetri2x + LAPACKE_chetri2x_work + LAPACKE_chetri_work + LAPACKE_chetrs + LAPACKE_chetrs2 + LAPACKE_chetrs2_work + LAPACKE_chetrs_work + LAPACKE_chfrk + LAPACKE_chfrk_work + LAPACKE_chgeqz + LAPACKE_chgeqz_work + LAPACKE_chpcon + LAPACKE_chpcon_work + LAPACKE_chpev + LAPACKE_chpev_work + LAPACKE_chpevd + LAPACKE_chpevd_work + LAPACKE_chpevx + LAPACKE_chpevx_work + LAPACKE_chpgst + LAPACKE_chpgst_work + LAPACKE_chpgv + LAPACKE_chpgv_work + LAPACKE_chpgvd + LAPACKE_chpgvd_work + LAPACKE_chpgvx + LAPACKE_chpgvx_work + LAPACKE_chprfs + LAPACKE_chprfs_work + LAPACKE_chpsv + LAPACKE_chpsv_work + LAPACKE_chpsvx + LAPACKE_chpsvx_work + LAPACKE_chptrd + LAPACKE_chptrd_work + LAPACKE_chptrf + LAPACKE_chptrf_work + LAPACKE_chptri + LAPACKE_chptri_work + LAPACKE_chptrs + LAPACKE_chptrs_work + LAPACKE_chsein + LAPACKE_chsein_work + LAPACKE_chseqr + LAPACKE_chseqr_work + LAPACKE_clacgv + LAPACKE_clacgv_work + LAPACKE_clacn2 + LAPACKE_clacn2_work + LAPACKE_clacp2 + LAPACKE_clacp2_work + LAPACKE_clacpy + LAPACKE_clacpy_work + LAPACKE_clag2z + LAPACKE_clag2z_work + LAPACKE_clange + LAPACKE_clange_work + LAPACKE_clanhe + LAPACKE_clanhe_work + LAPACKE_clansy + LAPACKE_clansy_work + LAPACKE_clantr + LAPACKE_clantr_work + LAPACKE_clapmr + LAPACKE_clapmr_work + LAPACKE_clarfb + LAPACKE_clarfb_work + LAPACKE_clarfg + LAPACKE_clarfg_work + LAPACKE_clarft + LAPACKE_clarft_work + LAPACKE_clarfx + LAPACKE_clarfx_work + LAPACKE_clarnv + LAPACKE_clarnv_work + LAPACKE_claset + LAPACKE_claset_work + LAPACKE_claswp + LAPACKE_claswp_work + LAPACKE_clauum + LAPACKE_clauum_work + LAPACKE_cpbcon + LAPACKE_cpbcon_work + LAPACKE_cpbequ + LAPACKE_cpbequ_work + LAPACKE_cpbrfs + LAPACKE_cpbrfs_work + LAPACKE_cpbstf + LAPACKE_cpbstf_work + LAPACKE_cpbsv + LAPACKE_cpbsv_work + LAPACKE_cpbsvx + LAPACKE_cpbsvx_work + LAPACKE_cpbtrf + LAPACKE_cpbtrf_work + LAPACKE_cpbtrs + LAPACKE_cpbtrs_work + LAPACKE_cpftrf + LAPACKE_cpftrf_work + LAPACKE_cpftri + LAPACKE_cpftri_work + LAPACKE_cpftrs + LAPACKE_cpftrs_work + LAPACKE_cpocon + LAPACKE_cpocon_work + LAPACKE_cpoequ + LAPACKE_cpoequ_work + LAPACKE_cpoequb + LAPACKE_cpoequb_work + LAPACKE_cporfs + LAPACKE_cporfs_work + LAPACKE_cposv + LAPACKE_cposv_work + LAPACKE_cposvx + LAPACKE_cposvx_work + LAPACKE_cpotrf + LAPACKE_cpotrf_work + LAPACKE_cpotri + LAPACKE_cpotri_work + LAPACKE_cpotrs + LAPACKE_cpotrs_work + LAPACKE_cppcon + LAPACKE_cppcon_work + LAPACKE_cppequ + LAPACKE_cppequ_work + LAPACKE_cpprfs + LAPACKE_cpprfs_work + LAPACKE_cppsv + LAPACKE_cppsv_work + LAPACKE_cppsvx + LAPACKE_cppsvx_work + LAPACKE_cpptrf + LAPACKE_cpptrf_work + LAPACKE_cpptri + LAPACKE_cpptri_work + LAPACKE_cpptrs + LAPACKE_cpptrs_work + LAPACKE_cpstrf + LAPACKE_cpstrf_work + LAPACKE_cptcon + LAPACKE_cptcon_work + LAPACKE_cpteqr + LAPACKE_cpteqr_work + LAPACKE_cptrfs + LAPACKE_cptrfs_work + LAPACKE_cptsv + LAPACKE_cptsv_work + LAPACKE_cptsvx + LAPACKE_cptsvx_work + LAPACKE_cpttrf + LAPACKE_cpttrf_work + LAPACKE_cpttrs + LAPACKE_cpttrs_work + LAPACKE_cspcon + LAPACKE_cspcon_work + LAPACKE_csprfs + LAPACKE_csprfs_work + LAPACKE_cspsv + LAPACKE_cspsv_work + LAPACKE_cspsvx + LAPACKE_cspsvx_work + LAPACKE_csptrf + LAPACKE_csptrf_work + LAPACKE_csptri + LAPACKE_csptri_work + LAPACKE_csptrs + LAPACKE_csptrs_work + LAPACKE_cstedc + LAPACKE_cstedc_work + LAPACKE_cstegr + LAPACKE_cstegr_work + LAPACKE_cstein + LAPACKE_cstein_work + LAPACKE_cstemr + LAPACKE_cstemr_work + LAPACKE_csteqr + LAPACKE_csteqr_work + LAPACKE_csycon + LAPACKE_csycon_work + LAPACKE_csyconv + LAPACKE_csyconv_work + LAPACKE_csyequb + LAPACKE_csyequb_work + LAPACKE_csyrfs + LAPACKE_csyrfs_work + LAPACKE_csysv + LAPACKE_csysv_rook + LAPACKE_csysv_rook_work + LAPACKE_csysv_work + LAPACKE_csysvx + LAPACKE_csysvx_work + LAPACKE_csyswapr + LAPACKE_csyswapr_work + LAPACKE_csytrf + LAPACKE_csytrf_work + LAPACKE_csytri + LAPACKE_csytri2 + LAPACKE_csytri2_work + LAPACKE_csytri2x + LAPACKE_csytri2x_work + LAPACKE_csytri_work + LAPACKE_csytrs + LAPACKE_csytrs2 + LAPACKE_csytrs2_work + LAPACKE_csytrs_work + LAPACKE_ctbcon + LAPACKE_ctbcon_work + LAPACKE_ctbrfs + LAPACKE_ctbrfs_work + LAPACKE_ctbtrs + LAPACKE_ctbtrs_work + LAPACKE_ctfsm + LAPACKE_ctfsm_work + LAPACKE_ctftri + LAPACKE_ctftri_work + LAPACKE_ctfttp + LAPACKE_ctfttp_work + LAPACKE_ctfttr + LAPACKE_ctfttr_work + LAPACKE_ctgevc + LAPACKE_ctgevc_work + LAPACKE_ctgexc + LAPACKE_ctgexc_work + LAPACKE_ctgsen + LAPACKE_ctgsen_work + LAPACKE_ctgsja + LAPACKE_ctgsja_work + LAPACKE_ctgsna + LAPACKE_ctgsna_work + LAPACKE_ctgsyl + LAPACKE_ctgsyl_work + LAPACKE_ctpcon + LAPACKE_ctpcon_work + LAPACKE_ctpmqrt + LAPACKE_ctpmqrt_work + LAPACKE_ctpqrt + LAPACKE_ctpqrt2 + LAPACKE_ctpqrt2_work + LAPACKE_ctpqrt_work + LAPACKE_ctprfb + LAPACKE_ctprfb_work + LAPACKE_ctprfs + LAPACKE_ctprfs_work + LAPACKE_ctptri + LAPACKE_ctptri_work + LAPACKE_ctptrs + LAPACKE_ctptrs_work + LAPACKE_ctpttf + LAPACKE_ctpttf_work + LAPACKE_ctpttr + LAPACKE_ctpttr_work + LAPACKE_ctrcon + LAPACKE_ctrcon_work + LAPACKE_ctrevc + LAPACKE_ctrevc_work + LAPACKE_ctrexc + LAPACKE_ctrexc_work + LAPACKE_ctrrfs + LAPACKE_ctrrfs_work + LAPACKE_ctrsen + LAPACKE_ctrsen_work + LAPACKE_ctrsna + LAPACKE_ctrsna_work + LAPACKE_ctrsyl + LAPACKE_ctrsyl_work + LAPACKE_ctrtri + LAPACKE_ctrtri_work + LAPACKE_ctrtrs + LAPACKE_ctrtrs_work + LAPACKE_ctrttf + LAPACKE_ctrttf_work + LAPACKE_ctrttp + LAPACKE_ctrttp_work + LAPACKE_ctzrzf + LAPACKE_ctzrzf_work + LAPACKE_cunbdb + LAPACKE_cunbdb_work + LAPACKE_cuncsd + LAPACKE_cuncsd_work + LAPACKE_cungbr + LAPACKE_cungbr_work + LAPACKE_cunghr + LAPACKE_cunghr_work + LAPACKE_cunglq + LAPACKE_cunglq_work + LAPACKE_cungql + LAPACKE_cungql_work + LAPACKE_cungqr + LAPACKE_cungqr_work + LAPACKE_cungrq + LAPACKE_cungrq_work + LAPACKE_cungtr + LAPACKE_cungtr_work + LAPACKE_cunmbr + LAPACKE_cunmbr_work + LAPACKE_cunmhr + LAPACKE_cunmhr_work + LAPACKE_cunmlq + LAPACKE_cunmlq_work + LAPACKE_cunmql + LAPACKE_cunmql_work + LAPACKE_cunmqr + LAPACKE_cunmqr_work + LAPACKE_cunmrq + LAPACKE_cunmrq_work + LAPACKE_cunmrz + LAPACKE_cunmrz_work + LAPACKE_cunmtr + LAPACKE_cunmtr_work + LAPACKE_cupgtr + LAPACKE_cupgtr_work + LAPACKE_cupmtr + LAPACKE_cupmtr_work + LAPACKE_csyr + LAPACKE_csyr_work + LAPACKE_clatms + LAPACKE_clatms_work + LAPACKE_clagge + LAPACKE_clagge_work + LAPACKE_claghe + LAPACKE_claghe_work + LAPACKE_clagsy + LAPACKE_clagsy_work + LAPACKE_cgejsv + LAPACKE_cgejsv_work + LAPACKE_cgesvdx + LAPACKE_cgesvdx_work + LAPACKE_cgesvj + LAPACKE_cgesvj_work + LAPACKE_cgetrf2 + LAPACKE_cgetrf2_work + LAPACKE_cgges3 + LAPACKE_cgges3_work + LAPACKE_cggev3 + LAPACKE_cggev3_work + LAPACKE_cgghd3 + LAPACKE_cgghd3_work + LAPACKE_cggsvd3 + LAPACKE_cggsvd3_work + LAPACKE_cggsvp3 + LAPACKE_cggsvp3_work + LAPACKE_chetrf_rook + LAPACKE_chetrf_rook_work + LAPACKE_chetrs_rook + LAPACKE_chetrs_rook_work + LAPACKE_clapmt + LAPACKE_clapmt_work + LAPACKE_clascl + LAPACKE_clascl_work + LAPACKE_cpotrf2 + LAPACKE_cpotrf2_work + LAPACKE_csytrf_rook + LAPACKE_csytrf_rook_work + LAPACKE_csytrs_rook + LAPACKE_csytrs_rook_work + LAPACKE_cuncsd2by1 + LAPACKE_cuncsd2by1_work + LAPACKE_cgelq + LAPACKE_cgelq_work + LAPACKE_cgemlq + LAPACKE_cgemlq_work + LAPACKE_cgemqr + LAPACKE_cgemqr_work + LAPACKE_cgeqr + LAPACKE_cgeqr_work + LAPACKE_cgetsls + LAPACKE_cgetsls_work + LAPACKE_chbev_2stage + LAPACKE_chbev_2stage_work + LAPACKE_chbevd_2stage + LAPACKE_chbevd_2stage_work + LAPACKE_chbevx_2stage + LAPACKE_chbevx_2stage_work + LAPACKE_checon_3 + LAPACKE_checon_3_work + LAPACKE_cheev_2stage + LAPACKE_cheev_2stage_work + LAPACKE_cheevd_2stage + LAPACKE_cheevd_2stage_work + LAPACKE_cheevr_2stage + LAPACKE_cheevr_2stage_work + LAPACKE_cheevx_2stage + LAPACKE_cheevx_2stage_work + LAPACKE_chegv_2stage + LAPACKE_chegv_2stage_work + LAPACKE_chesv_aa + LAPACKE_chesv_aa_work + LAPACKE_chesv_rk + LAPACKE_chesv_rk_work + LAPACKE_chetrf_aa + LAPACKE_chetrf_aa_work + LAPACKE_chetrf_rk + LAPACKE_chetrf_rk_work + LAPACKE_chetri_3 + LAPACKE_chetri_3_work + LAPACKE_chetrs_aa + LAPACKE_chetrs_aa_work + LAPACKE_chetrs_3 + LAPACKE_chetrs_3_work + LAPACKE_csycon_3 + LAPACKE_csycon_3_work + LAPACKE_csysv_aa + LAPACKE_csysv_aa_work + LAPACKE_csysv_rk + LAPACKE_csysv_rk_work + LAPACKE_csytrf_aa + LAPACKE_csytrf_aa_work + LAPACKE_csytrf_rk + LAPACKE_csytrf_rk_work + LAPACKE_csytri_3 + LAPACKE_csytri_3_work + LAPACKE_csytrs_aa + LAPACKE_csytrs_aa_work + LAPACKE_csytrs_3 + LAPACKE_csytrs_3_work + LAPACKE_chesv_aa_2stage + LAPACKE_chesv_aa_2stage_work + LAPACKE_chetrf_aa_2stage + LAPACKE_chetrf_aa_2stage_work + LAPACKE_chetrs_aa_2stage + LAPACKE_chetrs_aa_2stage_work + LAPACKE_clacrm + LAPACKE_clacrm_work + LAPACKE_clarcm + LAPACKE_clarcm_work + LAPACKE_classq + LAPACKE_classq_work + LAPACKE_csysv_aa_2stage + LAPACKE_csysv_aa_2stage_work + LAPACKE_csytrf_aa_2stage + LAPACKE_csytrf_aa_2stage_work + LAPACKE_csytrs_aa_2stage + LAPACKE_csytrs_aa_2stage_work + LAPACKE_cgesvdq + LAPACKE_cgesvdq_work + LAPACKE_cgetsqrhrt + LAPACKE_cgetsqrhrt_work + LAPACKE_cungtsqr_row + LAPACKE_cungtsqr_row_work +" + +lapackeobjsd=" + LAPACKE_dgb_nancheck + LAPACKE_dgb_trans + LAPACKE_dge_nancheck + LAPACKE_dge_trans + LAPACKE_dgg_nancheck + LAPACKE_dgg_trans + LAPACKE_dgt_nancheck + LAPACKE_dhs_nancheck + LAPACKE_dhs_trans + LAPACKE_d_nancheck + LAPACKE_dpb_nancheck + LAPACKE_dpb_trans + LAPACKE_dpf_nancheck + LAPACKE_dpf_trans + LAPACKE_dpo_nancheck + LAPACKE_dpo_trans + LAPACKE_dpp_nancheck + LAPACKE_dpp_trans + LAPACKE_dpt_nancheck + LAPACKE_dsb_nancheck + LAPACKE_dsb_trans + LAPACKE_dsp_nancheck + LAPACKE_dsp_trans + LAPACKE_dst_nancheck + LAPACKE_dsy_nancheck + LAPACKE_dsy_trans + LAPACKE_dtb_nancheck + LAPACKE_dtb_trans + LAPACKE_dtf_nancheck + LAPACKE_dtf_trans + LAPACKE_dtp_nancheck + LAPACKE_dtp_trans + LAPACKE_dtr_nancheck + LAPACKE_dtr_trans + LAPACKE_dbbcsd + LAPACKE_dbbcsd_work + LAPACKE_dbdsdc + LAPACKE_dbdsdc_work + LAPACKE_dbdsqr + LAPACKE_dbdsqr_work + LAPACKE_ddisna + LAPACKE_ddisna_work + LAPACKE_dgbbrd + LAPACKE_dgbbrd_work + LAPACKE_dgbcon + LAPACKE_dgbcon_work + LAPACKE_dgbequ + LAPACKE_dgbequ_work + LAPACKE_dgbequb + LAPACKE_dgbequb_work + LAPACKE_dgbrfs + LAPACKE_dgbrfs_work + LAPACKE_dgbsv + LAPACKE_dgbsv_work + LAPACKE_dgbsvx + LAPACKE_dgbsvx_work + LAPACKE_dgbtrf + LAPACKE_dgbtrf_work + LAPACKE_dgbtrs + LAPACKE_dgbtrs_work + LAPACKE_dgebak + LAPACKE_dgebak_work + LAPACKE_dgebal + LAPACKE_dgebal_work + LAPACKE_dgebrd + LAPACKE_dgebrd_work + LAPACKE_dgecon + LAPACKE_dgecon_work + LAPACKE_dgeequ + LAPACKE_dgeequ_work + LAPACKE_dgeequb + LAPACKE_dgeequb_work + LAPACKE_dgees + LAPACKE_dgees_work + LAPACKE_dgeesx + LAPACKE_dgeesx_work + LAPACKE_dgeev + LAPACKE_dgeev_work + LAPACKE_dgeevx + LAPACKE_dgeevx_work + LAPACKE_dgehrd + LAPACKE_dgehrd_work + LAPACKE_dgejsv + LAPACKE_dgejsv_work + LAPACKE_dgelq2 + LAPACKE_dgelq2_work + LAPACKE_dgelqf + LAPACKE_dgelqf_work + LAPACKE_dgels + LAPACKE_dgels_work + LAPACKE_dgelsd + LAPACKE_dgelsd_work + LAPACKE_dgelss + LAPACKE_dgelss_work + LAPACKE_dgelsy + LAPACKE_dgelsy_work + LAPACKE_dgemqrt + LAPACKE_dgemqrt_work + LAPACKE_dgeqlf + LAPACKE_dgeqlf_work + LAPACKE_dgeqp3 + LAPACKE_dgeqp3_work + LAPACKE_dgeqr2 + LAPACKE_dgeqr2_work + LAPACKE_dgeqrf + LAPACKE_dgeqrf_work + LAPACKE_dgeqrfp + LAPACKE_dgeqrfp_work + LAPACKE_dgeqrt + LAPACKE_dgeqrt2 + LAPACKE_dgeqrt2_work + LAPACKE_dgeqrt3 + LAPACKE_dgeqrt3_work + LAPACKE_dgeqrt_work + LAPACKE_dgerfs + LAPACKE_dgerfs_work + LAPACKE_dgerqf + LAPACKE_dgerqf_work + LAPACKE_dgesdd + LAPACKE_dgesdd_work + LAPACKE_dgesv + LAPACKE_dgesv_work + LAPACKE_dgesvd + LAPACKE_dgesvd_work + LAPACKE_dgesvj + LAPACKE_dgesvj_work + LAPACKE_dgesvx + LAPACKE_dgesvx_work + LAPACKE_dgetf2 + LAPACKE_dgetf2_work + LAPACKE_dgetrf + LAPACKE_dgetrf_work + LAPACKE_dgetri + LAPACKE_dgetri_work + LAPACKE_dgetrs + LAPACKE_dgetrs_work + LAPACKE_dggbak + LAPACKE_dggbak_work + LAPACKE_dggbal + LAPACKE_dggbal_work + LAPACKE_dgges + LAPACKE_dgges_work + LAPACKE_dggesx + LAPACKE_dggesx_work + LAPACKE_dggev + LAPACKE_dggev_work + LAPACKE_dggevx + LAPACKE_dggevx_work + LAPACKE_dggglm + LAPACKE_dggglm_work + LAPACKE_dgghrd + LAPACKE_dgghrd_work + LAPACKE_dgglse + LAPACKE_dgglse_work + LAPACKE_dggqrf + LAPACKE_dggqrf_work + LAPACKE_dggrqf + LAPACKE_dggrqf_work + LAPACKE_dgtcon + LAPACKE_dgtcon_work + LAPACKE_dgtrfs + LAPACKE_dgtrfs_work + LAPACKE_dgtsv + LAPACKE_dgtsv_work + LAPACKE_dgtsvx + LAPACKE_dgtsvx_work + LAPACKE_dgttrf + LAPACKE_dgttrf_work + LAPACKE_dgttrs + LAPACKE_dgttrs_work + LAPACKE_dhgeqz + LAPACKE_dhgeqz_work + LAPACKE_dhsein + LAPACKE_dhsein_work + LAPACKE_dhseqr + LAPACKE_dhseqr_work + LAPACKE_dlacn2 + LAPACKE_dlacn2_work + LAPACKE_dlacpy + LAPACKE_dlacpy_work + LAPACKE_dlag2s + LAPACKE_dlag2s_work + LAPACKE_dlamch + LAPACKE_dlamch_work + LAPACKE_dlange + LAPACKE_dlange_work + LAPACKE_dlansy + LAPACKE_dlansy_work + LAPACKE_dlantr + LAPACKE_dlantr_work + LAPACKE_dlapmr + LAPACKE_dlapmr_work + LAPACKE_dlapy2 + LAPACKE_dlapy2_work + LAPACKE_dlapy3 + LAPACKE_dlapy3_work + LAPACKE_dlarfb + LAPACKE_dlarfb_work + LAPACKE_dlarfg + LAPACKE_dlarfg_work + LAPACKE_dlarft + LAPACKE_dlarft_work + LAPACKE_dlarfx + LAPACKE_dlarfx_work + LAPACKE_dlarnv + LAPACKE_dlarnv_work + LAPACKE_dlartgp + LAPACKE_dlartgp_work + LAPACKE_dlartgs + LAPACKE_dlartgs_work + LAPACKE_dlaset + LAPACKE_dlaset_work + LAPACKE_dlasrt + LAPACKE_dlasrt_work + LAPACKE_dlaswp + LAPACKE_dlaswp_work + LAPACKE_dlauum + LAPACKE_dlauum_work + LAPACKE_dopgtr + LAPACKE_dopgtr_work + LAPACKE_dopmtr + LAPACKE_dopmtr_work + LAPACKE_dorbdb + LAPACKE_dorbdb_work + LAPACKE_dorcsd + LAPACKE_dorcsd_work + LAPACKE_dorgbr + LAPACKE_dorgbr_work + LAPACKE_dorghr + LAPACKE_dorghr_work + LAPACKE_dorglq + LAPACKE_dorglq_work + LAPACKE_dorgql + LAPACKE_dorgql_work + LAPACKE_dorgqr + LAPACKE_dorgqr_work + LAPACKE_dorgrq + LAPACKE_dorgrq_work + LAPACKE_dorgtr + LAPACKE_dorgtr_work + LAPACKE_dormbr + LAPACKE_dormbr_work + LAPACKE_dormhr + LAPACKE_dormhr_work + LAPACKE_dormlq + LAPACKE_dormlq_work + LAPACKE_dormql + LAPACKE_dormql_work + LAPACKE_dormqr + LAPACKE_dormqr_work + LAPACKE_dormrq + LAPACKE_dormrq_work + LAPACKE_dormrz + LAPACKE_dormrz_work + LAPACKE_dormtr + LAPACKE_dormtr_work + LAPACKE_dpbcon + LAPACKE_dpbcon_work + LAPACKE_dpbequ + LAPACKE_dpbequ_work + LAPACKE_dpbrfs + LAPACKE_dpbrfs_work + LAPACKE_dpbstf + LAPACKE_dpbstf_work + LAPACKE_dpbsv + LAPACKE_dpbsv_work + LAPACKE_dpbsvx + LAPACKE_dpbsvx_work + LAPACKE_dpbtrf + LAPACKE_dpbtrf_work + LAPACKE_dpbtrs + LAPACKE_dpbtrs_work + LAPACKE_dpftrf + LAPACKE_dpftrf_work + LAPACKE_dpftri + LAPACKE_dpftri_work + LAPACKE_dpftrs + LAPACKE_dpftrs_work + LAPACKE_dpocon + LAPACKE_dpocon_work + LAPACKE_dpoequ + LAPACKE_dpoequ_work + LAPACKE_dpoequb + LAPACKE_dpoequb_work + LAPACKE_dporfs + LAPACKE_dporfs_work + LAPACKE_dposv + LAPACKE_dposv_work + LAPACKE_dposvx + LAPACKE_dposvx_work + LAPACKE_dpotrf + LAPACKE_dpotrf_work + LAPACKE_dpotri + LAPACKE_dpotri_work + LAPACKE_dpotrs + LAPACKE_dpotrs_work + LAPACKE_dppcon + LAPACKE_dppcon_work + LAPACKE_dppequ + LAPACKE_dppequ_work + LAPACKE_dpprfs + LAPACKE_dpprfs_work + LAPACKE_dppsv + LAPACKE_dppsv_work + LAPACKE_dppsvx + LAPACKE_dppsvx_work + LAPACKE_dpptrf + LAPACKE_dpptrf_work + LAPACKE_dpptri + LAPACKE_dpptri_work + LAPACKE_dpptrs + LAPACKE_dpptrs_work + LAPACKE_dpstrf + LAPACKE_dpstrf_work + LAPACKE_dptcon + LAPACKE_dptcon_work + LAPACKE_dpteqr + LAPACKE_dpteqr_work + LAPACKE_dptrfs + LAPACKE_dptrfs_work + LAPACKE_dptsv + LAPACKE_dptsv_work + LAPACKE_dptsvx + LAPACKE_dptsvx_work + LAPACKE_dpttrf + LAPACKE_dpttrf_work + LAPACKE_dpttrs + LAPACKE_dpttrs_work + LAPACKE_dsbev + LAPACKE_dsbev_work + LAPACKE_dsbevd + LAPACKE_dsbevd_work + LAPACKE_dsbevx + LAPACKE_dsbevx_work + LAPACKE_dsbgst + LAPACKE_dsbgst_work + LAPACKE_dsbgv + LAPACKE_dsbgv_work + LAPACKE_dsbgvd + LAPACKE_dsbgvd_work + LAPACKE_dsbgvx + LAPACKE_dsbgvx_work + LAPACKE_dsbtrd + LAPACKE_dsbtrd_work + LAPACKE_dsfrk + LAPACKE_dsfrk_work + LAPACKE_dsgesv + LAPACKE_dsgesv_work + LAPACKE_dspcon + LAPACKE_dspcon_work + LAPACKE_dspev + LAPACKE_dspev_work + LAPACKE_dspevd + LAPACKE_dspevd_work + LAPACKE_dspevx + LAPACKE_dspevx_work + LAPACKE_dspgst + LAPACKE_dspgst_work + LAPACKE_dspgv + LAPACKE_dspgv_work + LAPACKE_dspgvd + LAPACKE_dspgvd_work + LAPACKE_dspgvx + LAPACKE_dspgvx_work + LAPACKE_dsposv + LAPACKE_dsposv_work + LAPACKE_dsprfs + LAPACKE_dsprfs_work + LAPACKE_dspsv + LAPACKE_dspsv_work + LAPACKE_dspsvx + LAPACKE_dspsvx_work + LAPACKE_dsptrd + LAPACKE_dsptrd_work + LAPACKE_dsptrf + LAPACKE_dsptrf_work + LAPACKE_dsptri + LAPACKE_dsptri_work + LAPACKE_dsptrs + LAPACKE_dsptrs_work + LAPACKE_dstebz + LAPACKE_dstebz_work + LAPACKE_dstedc + LAPACKE_dstedc_work + LAPACKE_dstegr + LAPACKE_dstegr_work + LAPACKE_dstein + LAPACKE_dstein_work + LAPACKE_dstemr + LAPACKE_dstemr_work + LAPACKE_dsteqr + LAPACKE_dsteqr_work + LAPACKE_dsterf + LAPACKE_dsterf_work + LAPACKE_dstev + LAPACKE_dstev_work + LAPACKE_dstevd + LAPACKE_dstevd_work + LAPACKE_dstevr + LAPACKE_dstevr_work + LAPACKE_dstevx + LAPACKE_dstevx_work + LAPACKE_dsycon + LAPACKE_dsycon_work + LAPACKE_dsyconv + LAPACKE_dsyconv_work + LAPACKE_dsyequb + LAPACKE_dsyequb_work + LAPACKE_dsyev + LAPACKE_dsyev_work + LAPACKE_dsyevd + LAPACKE_dsyevd_work + LAPACKE_dsyevr + LAPACKE_dsyevr_work + LAPACKE_dsyevx + LAPACKE_dsyevx_work + LAPACKE_dsygst + LAPACKE_dsygst_work + LAPACKE_dsygv + LAPACKE_dsygv_work + LAPACKE_dsygvd + LAPACKE_dsygvd_work + LAPACKE_dsygvx + LAPACKE_dsygvx_work + LAPACKE_dsyrfs + LAPACKE_dsyrfs_work + LAPACKE_dsysv + LAPACKE_dsysv_rook + LAPACKE_dsysv_rook_work + LAPACKE_dsysv_work + LAPACKE_dsysvx + LAPACKE_dsysvx_work + LAPACKE_dsyswapr + LAPACKE_dsyswapr_work + LAPACKE_dsytrd + LAPACKE_dsytrd_work + LAPACKE_dsytrf + LAPACKE_dsytrf_work + LAPACKE_dsytri + LAPACKE_dsytri2 + LAPACKE_dsytri2_work + LAPACKE_dsytri2x + LAPACKE_dsytri2x_work + LAPACKE_dsytri_work + LAPACKE_dsytrs + LAPACKE_dsytrs2 + LAPACKE_dsytrs2_work + LAPACKE_dsytrs_work + LAPACKE_dtbcon + LAPACKE_dtbcon_work + LAPACKE_dtbrfs + LAPACKE_dtbrfs_work + LAPACKE_dtbtrs + LAPACKE_dtbtrs_work + LAPACKE_dtfsm + LAPACKE_dtfsm_work + LAPACKE_dtftri + LAPACKE_dtftri_work + LAPACKE_dtfttp + LAPACKE_dtfttp_work + LAPACKE_dtfttr + LAPACKE_dtfttr_work + LAPACKE_dtgevc + LAPACKE_dtgevc_work + LAPACKE_dtgexc + LAPACKE_dtgexc_work + LAPACKE_dtgsen + LAPACKE_dtgsen_work + LAPACKE_dtgsja + LAPACKE_dtgsja_work + LAPACKE_dtgsna + LAPACKE_dtgsna_work + LAPACKE_dtgsyl + LAPACKE_dtgsyl_work + LAPACKE_dtpcon + LAPACKE_dtpcon_work + LAPACKE_dtpmqrt + LAPACKE_dtpmqrt_work + LAPACKE_dtpqrt + LAPACKE_dtpqrt2 + LAPACKE_dtpqrt2_work + LAPACKE_dtpqrt_work + LAPACKE_dtprfb + LAPACKE_dtprfb_work + LAPACKE_dtprfs + LAPACKE_dtprfs_work + LAPACKE_dtptri + LAPACKE_dtptri_work + LAPACKE_dtptrs + LAPACKE_dtptrs_work + LAPACKE_dtpttf + LAPACKE_dtpttf_work + LAPACKE_dtpttr + LAPACKE_dtpttr_work + LAPACKE_dtrcon + LAPACKE_dtrcon_work + LAPACKE_dtrevc + LAPACKE_dtrevc_work + LAPACKE_dtrexc + LAPACKE_dtrexc_work + LAPACKE_dtrrfs + LAPACKE_dtrrfs_work + LAPACKE_dtrsen + LAPACKE_dtrsen_work + LAPACKE_dtrsna + LAPACKE_dtrsna_work + LAPACKE_dtrsyl + LAPACKE_dtrsyl_work + LAPACKE_dtrtri + LAPACKE_dtrtri_work + LAPACKE_dtrtrs + LAPACKE_dtrtrs_work + LAPACKE_dtrttf + LAPACKE_dtrttf_work + LAPACKE_dtrttp + LAPACKE_dtrttp_work + LAPACKE_dtzrzf + LAPACKE_dtzrzf_work + LAPACKE_dlatms + LAPACKE_dlatms_work + LAPACKE_dlagge + LAPACKE_dlagge_work + LAPACKE_dlagsy + LAPACKE_dlagsy_work + LAPACKE_dbdsvdx + LAPACKE_dbdsvdx_work + LAPACKE_dgesvdx + LAPACKE_dgesvdx_work + LAPACKE_dgetrf2 + LAPACKE_dgetrf2_work + LAPACKE_dgges3 + LAPACKE_dgges3_work + LAPACKE_dggev3 + LAPACKE_dggev3_work + LAPACKE_dgghd3 + LAPACKE_dgghd3_work + LAPACKE_dggsvd3 + LAPACKE_dggsvd3_work + LAPACKE_dggsvp3 + LAPACKE_dggsvp3_work + LAPACKE_dlapmt + LAPACKE_dlapmt_work + LAPACKE_dlascl + LAPACKE_dlascl_work + LAPACKE_dorcsd2by1 + LAPACKE_dorcsd2by1_work + LAPACKE_dpotrf2 + LAPACKE_dpotrf2_work + LAPACKE_dsytrf_rook + LAPACKE_dsytrf_rook_work + LAPACKE_dsytrs_rook + LAPACKE_dsytrs_rook_work + LAPACKE_dgelq + LAPACKE_dgelq_work + LAPACKE_dgemlq + LAPACKE_dgemlq_work + LAPACKE_dgemqr + LAPACKE_dgemqr_work + LAPACKE_dgeqr + LAPACKE_dgeqr_work + LAPACKE_dgetsls + LAPACKE_dgetsls_work + LAPACKE_dsbev_2stage + LAPACKE_dsbev_2stage_work + LAPACKE_dsbevd_2stage + LAPACKE_dsbevd_2stage_work + LAPACKE_dsbevx_2stage + LAPACKE_dsbevx_2stage_work + LAPACKE_dsycon_3 + LAPACKE_dsycon_3_work + LAPACKE_dsyev_2stage + LAPACKE_dsyev_2stage_work + LAPACKE_dsyevd_2stage + LAPACKE_dsyevd_2stage_work + LAPACKE_dsyevr_2stage + LAPACKE_dsyevr_2stage_work + LAPACKE_dsyevx_2stage + LAPACKE_dsyevx_2stage_work + LAPACKE_dsygv_2stage + LAPACKE_dsygv_2stage_work + LAPACKE_dsysv_aa + LAPACKE_dsysv_aa_work + LAPACKE_dsysv_rk + LAPACKE_dsysv_rk_work + LAPACKE_dsytrf_aa + LAPACKE_dsytrf_aa_work + LAPACKE_dsytrf_rk + LAPACKE_dsytrf_rk_work + LAPACKE_dsytri_3 + LAPACKE_dsytri_3_work + LAPACKE_dsytrs_aa + LAPACKE_dsytrs_aa_work + LAPACKE_dsytrs_3 + LAPACKE_dsytrs_3_work + LAPACKE_dlassq + LAPACKE_dlassq_work + LAPACKE_dsysv_aa_2stage + LAPACKE_dsysv_aa_2stage_work + LAPACKE_dsytrf_aa_2stage + LAPACKE_dsytrf_aa_2stage_work + LAPACKE_dsytrs_aa_2stage + LAPACKE_dsytrs_aa_2stage_work + LAPACKE_dgesvdq + LAPACKE_dgesvdq_work + LAPACKE_slag2d + LAPACKE_slag2d_work + LAPACKE_dgetsqrhrt + LAPACKE_dgetsqrhrt_work + LAPACKE_dorgtsqr_row + LAPACKE_dorgtsqr_row_work +" + +lapackeobjss=" + LAPACKE_sgb_nancheck + LAPACKE_sgb_trans + LAPACKE_sge_nancheck + LAPACKE_sge_trans + LAPACKE_sgg_nancheck + LAPACKE_sgg_trans + LAPACKE_sgt_nancheck + LAPACKE_shs_nancheck + LAPACKE_shs_trans + LAPACKE_s_nancheck + LAPACKE_spb_nancheck + LAPACKE_spb_trans + LAPACKE_spf_nancheck + LAPACKE_spf_trans + LAPACKE_spo_nancheck + LAPACKE_spo_trans + LAPACKE_spp_nancheck + LAPACKE_spp_trans + LAPACKE_spt_nancheck + LAPACKE_ssb_nancheck + LAPACKE_ssb_trans + LAPACKE_ssp_nancheck + LAPACKE_ssp_trans + LAPACKE_sst_nancheck + LAPACKE_ssy_nancheck + LAPACKE_ssy_trans + LAPACKE_stb_nancheck + LAPACKE_stb_trans + LAPACKE_stf_nancheck + LAPACKE_stf_trans + LAPACKE_stp_nancheck + LAPACKE_stp_trans + LAPACKE_str_nancheck + LAPACKE_str_trans + LAPACKE_sbbcsd + LAPACKE_sbbcsd_work + LAPACKE_sbdsdc + LAPACKE_sbdsdc_work + LAPACKE_sbdsqr + LAPACKE_sbdsqr_work + LAPACKE_sdisna + LAPACKE_sdisna_work + LAPACKE_sgbbrd + LAPACKE_sgbbrd_work + LAPACKE_sgbcon + LAPACKE_sgbcon_work + LAPACKE_sgbequ + LAPACKE_sgbequ_work + LAPACKE_sgbequb + LAPACKE_sgbequb_work + LAPACKE_sgbrfs + LAPACKE_sgbrfs_work + LAPACKE_sgbsv + LAPACKE_sgbsv_work + LAPACKE_sgbsvx + LAPACKE_sgbsvx_work + LAPACKE_sgbtrf + LAPACKE_sgbtrf_work + LAPACKE_sgbtrs + LAPACKE_sgbtrs_work + LAPACKE_sgebak + LAPACKE_sgebak_work + LAPACKE_sgebal + LAPACKE_sgebal_work + LAPACKE_sgebrd + LAPACKE_sgebrd_work + LAPACKE_sgecon + LAPACKE_sgecon_work + LAPACKE_sgeequ + LAPACKE_sgeequ_work + LAPACKE_sgeequb + LAPACKE_sgeequb_work + LAPACKE_sgees + LAPACKE_sgees_work + LAPACKE_sgeesx + LAPACKE_sgeesx_work + LAPACKE_sgeev + LAPACKE_sgeev_work + LAPACKE_sgeevx + LAPACKE_sgeevx_work + LAPACKE_sgehrd + LAPACKE_sgehrd_work + LAPACKE_sgejsv + LAPACKE_sgejsv_work + LAPACKE_sgelq2 + LAPACKE_sgelq2_work + LAPACKE_sgelqf + LAPACKE_sgelqf_work + LAPACKE_sgels + LAPACKE_sgels_work + LAPACKE_sgelsd + LAPACKE_sgelsd_work + LAPACKE_sgelss + LAPACKE_sgelss_work + LAPACKE_sgelsy + LAPACKE_sgelsy_work + LAPACKE_sgemqrt + LAPACKE_sgemqrt_work + LAPACKE_sgeqlf + LAPACKE_sgeqlf_work + LAPACKE_sgeqp3 + LAPACKE_sgeqp3_work + LAPACKE_sgeqr2 + LAPACKE_sgeqr2_work + LAPACKE_sgeqrf + LAPACKE_sgeqrf_work + LAPACKE_sgeqrfp + LAPACKE_sgeqrfp_work + LAPACKE_sgeqrt + LAPACKE_sgeqrt2 + LAPACKE_sgeqrt2_work + LAPACKE_sgeqrt3 + LAPACKE_sgeqrt3_work + LAPACKE_sgeqrt_work + LAPACKE_sgerfs + LAPACKE_sgerfs_work + LAPACKE_sgerqf + LAPACKE_sgerqf_work + LAPACKE_sgesdd + LAPACKE_sgesdd_work + LAPACKE_sgesv + LAPACKE_sgesv_work + LAPACKE_sgesvd + LAPACKE_sgesvd_work + LAPACKE_sgesvj + LAPACKE_sgesvj_work + LAPACKE_sgesvx + LAPACKE_sgesvx_work + LAPACKE_sgetf2 + LAPACKE_sgetf2_work + LAPACKE_sgetrf + LAPACKE_sgetrf_work + LAPACKE_sgetri + LAPACKE_sgetri_work + LAPACKE_sgetrs + LAPACKE_sgetrs_work + LAPACKE_sggbak + LAPACKE_sggbak_work + LAPACKE_sggbal + LAPACKE_sggbal_work + LAPACKE_sgges + LAPACKE_sgges_work + LAPACKE_sggesx + LAPACKE_sggesx_work + LAPACKE_sggev + LAPACKE_sggev_work + LAPACKE_sggevx + LAPACKE_sggevx_work + LAPACKE_sggglm + LAPACKE_sggglm_work + LAPACKE_sgghrd + LAPACKE_sgghrd_work + LAPACKE_sgglse + LAPACKE_sgglse_work + LAPACKE_sggqrf + LAPACKE_sggqrf_work + LAPACKE_sggrqf + LAPACKE_sggrqf_work + LAPACKE_sgtcon + LAPACKE_sgtcon_work + LAPACKE_sgtrfs + LAPACKE_sgtrfs_work + LAPACKE_sgtsv + LAPACKE_sgtsv_work + LAPACKE_sgtsvx + LAPACKE_sgtsvx_work + LAPACKE_sgttrf + LAPACKE_sgttrf_work + LAPACKE_sgttrs + LAPACKE_sgttrs_work + LAPACKE_shgeqz + LAPACKE_shgeqz_work + LAPACKE_shsein + LAPACKE_shsein_work + LAPACKE_shseqr + LAPACKE_shseqr_work + LAPACKE_slacn2 + LAPACKE_slacn2_work + LAPACKE_slacpy + LAPACKE_slacpy_work + LAPACKE_slamch + LAPACKE_slamch_work + LAPACKE_slange + LAPACKE_slange_work + LAPACKE_slansy + LAPACKE_slansy_work + LAPACKE_slantr + LAPACKE_slantr_work + LAPACKE_slapmr + LAPACKE_slapmr_work + LAPACKE_slapy2 + LAPACKE_slapy2_work + LAPACKE_slapy3 + LAPACKE_slapy3_work + LAPACKE_slarfb + LAPACKE_slarfb_work + LAPACKE_slarfg + LAPACKE_slarfg_work + LAPACKE_slarft + LAPACKE_slarft_work + LAPACKE_slarfx + LAPACKE_slarfx_work + LAPACKE_slarnv + LAPACKE_slarnv_work + LAPACKE_slartgp + LAPACKE_slartgp_work + LAPACKE_slartgs + LAPACKE_slartgs_work + LAPACKE_slaset + LAPACKE_slaset_work + LAPACKE_slasrt + LAPACKE_slasrt_work + LAPACKE_slaswp + LAPACKE_slaswp_work + LAPACKE_slauum + LAPACKE_slauum_work + LAPACKE_sopgtr + LAPACKE_sopgtr_work + LAPACKE_sopmtr + LAPACKE_sopmtr_work + LAPACKE_sorbdb + LAPACKE_sorbdb_work + LAPACKE_sorcsd + LAPACKE_sorcsd_work + LAPACKE_sorgbr + LAPACKE_sorgbr_work + LAPACKE_sorghr + LAPACKE_sorghr_work + LAPACKE_sorglq + LAPACKE_sorglq_work + LAPACKE_sorgql + LAPACKE_sorgql_work + LAPACKE_sorgqr + LAPACKE_sorgqr_work + LAPACKE_sorgrq + LAPACKE_sorgrq_work + LAPACKE_sorgtr + LAPACKE_sorgtr_work + LAPACKE_sormbr + LAPACKE_sormbr_work + LAPACKE_sormhr + LAPACKE_sormhr_work + LAPACKE_sormlq + LAPACKE_sormlq_work + LAPACKE_sormql + LAPACKE_sormql_work + LAPACKE_sormqr + LAPACKE_sormqr_work + LAPACKE_sormrq + LAPACKE_sormrq_work + LAPACKE_sormrz + LAPACKE_sormrz_work + LAPACKE_sormtr + LAPACKE_sormtr_work + LAPACKE_spbcon + LAPACKE_spbcon_work + LAPACKE_spbequ + LAPACKE_spbequ_work + LAPACKE_spbrfs + LAPACKE_spbrfs_work + LAPACKE_spbstf + LAPACKE_spbstf_work + LAPACKE_spbsv + LAPACKE_spbsv_work + LAPACKE_spbsvx + LAPACKE_spbsvx_work + LAPACKE_spbtrf + LAPACKE_spbtrf_work + LAPACKE_spbtrs + LAPACKE_spbtrs_work + LAPACKE_spftrf + LAPACKE_spftrf_work + LAPACKE_spftri + LAPACKE_spftri_work + LAPACKE_spftrs + LAPACKE_spftrs_work + LAPACKE_spocon + LAPACKE_spocon_work + LAPACKE_spoequ + LAPACKE_spoequ_work + LAPACKE_spoequb + LAPACKE_spoequb_work + LAPACKE_sporfs + LAPACKE_sporfs_work + LAPACKE_sposv + LAPACKE_sposv_work + LAPACKE_sposvx + LAPACKE_sposvx_work + LAPACKE_spotrf + LAPACKE_spotrf_work + LAPACKE_spotri + LAPACKE_spotri_work + LAPACKE_spotrs + LAPACKE_spotrs_work + LAPACKE_sppcon + LAPACKE_sppcon_work + LAPACKE_sppequ + LAPACKE_sppequ_work + LAPACKE_spprfs + LAPACKE_spprfs_work + LAPACKE_sppsv + LAPACKE_sppsv_work + LAPACKE_sppsvx + LAPACKE_sppsvx_work + LAPACKE_spptrf + LAPACKE_spptrf_work + LAPACKE_spptri + LAPACKE_spptri_work + LAPACKE_spptrs + LAPACKE_spptrs_work + LAPACKE_spstrf + LAPACKE_spstrf_work + LAPACKE_sptcon + LAPACKE_sptcon_work + LAPACKE_spteqr + LAPACKE_spteqr_work + LAPACKE_sptrfs + LAPACKE_sptrfs_work + LAPACKE_sptsv + LAPACKE_sptsv_work + LAPACKE_sptsvx + LAPACKE_sptsvx_work + LAPACKE_spttrf + LAPACKE_spttrf_work + LAPACKE_spttrs + LAPACKE_spttrs_work + LAPACKE_ssbev + LAPACKE_ssbev_work + LAPACKE_ssbevd + LAPACKE_ssbevd_work + LAPACKE_ssbevx + LAPACKE_ssbevx_work + LAPACKE_ssbgst + LAPACKE_ssbgst_work + LAPACKE_ssbgv + LAPACKE_ssbgv_work + LAPACKE_ssbgvd + LAPACKE_ssbgvd_work + LAPACKE_ssbgvx + LAPACKE_ssbgvx_work + LAPACKE_ssbtrd + LAPACKE_ssbtrd_work + LAPACKE_ssfrk + LAPACKE_ssfrk_work + LAPACKE_sspcon + LAPACKE_sspcon_work + LAPACKE_sspev + LAPACKE_sspev_work + LAPACKE_sspevd + LAPACKE_sspevd_work + LAPACKE_sspevx + LAPACKE_sspevx_work + LAPACKE_sspgst + LAPACKE_sspgst_work + LAPACKE_sspgv + LAPACKE_sspgv_work + LAPACKE_sspgvd + LAPACKE_sspgvd_work + LAPACKE_sspgvx + LAPACKE_sspgvx_work + LAPACKE_ssprfs + LAPACKE_ssprfs_work + LAPACKE_sspsv + LAPACKE_sspsv_work + LAPACKE_sspsvx + LAPACKE_sspsvx_work + LAPACKE_ssptrd + LAPACKE_ssptrd_work + LAPACKE_ssptrf + LAPACKE_ssptrf_work + LAPACKE_ssptri + LAPACKE_ssptri_work + LAPACKE_ssptrs + LAPACKE_ssptrs_work + LAPACKE_sstebz + LAPACKE_sstebz_work + LAPACKE_sstedc + LAPACKE_sstedc_work + LAPACKE_sstegr + LAPACKE_sstegr_work + LAPACKE_sstein + LAPACKE_sstein_work + LAPACKE_sstemr + LAPACKE_sstemr_work + LAPACKE_ssteqr + LAPACKE_ssteqr_work + LAPACKE_ssterf + LAPACKE_ssterf_work + LAPACKE_sstev + LAPACKE_sstev_work + LAPACKE_sstevd + LAPACKE_sstevd_work + LAPACKE_sstevr + LAPACKE_sstevr_work + LAPACKE_sstevx + LAPACKE_sstevx_work + LAPACKE_ssycon + LAPACKE_ssycon_work + LAPACKE_ssyconv + LAPACKE_ssyconv_work + LAPACKE_ssyequb + LAPACKE_ssyequb_work + LAPACKE_ssyev + LAPACKE_ssyev_work + LAPACKE_ssyevd + LAPACKE_ssyevd_work + LAPACKE_ssyevr + LAPACKE_ssyevr_work + LAPACKE_ssyevx + LAPACKE_ssyevx_work + LAPACKE_ssygst + LAPACKE_ssygst_work + LAPACKE_ssygv + LAPACKE_ssygv_work + LAPACKE_ssygvd + LAPACKE_ssygvd_work + LAPACKE_ssygvx + LAPACKE_ssygvx_work + LAPACKE_ssyrfs + LAPACKE_ssyrfs_work + LAPACKE_ssysv + LAPACKE_ssysv_rook + LAPACKE_ssysv_rook_work + LAPACKE_ssysv_work + LAPACKE_ssysvx + LAPACKE_ssysvx_work + LAPACKE_ssyswapr + LAPACKE_ssyswapr_work + LAPACKE_ssytrd + LAPACKE_ssytrd_work + LAPACKE_ssytrf + LAPACKE_ssytrf_work + LAPACKE_ssytri + LAPACKE_ssytri2 + LAPACKE_ssytri2_work + LAPACKE_ssytri2x + LAPACKE_ssytri2x_work + LAPACKE_ssytri_work + LAPACKE_ssytrs + LAPACKE_ssytrs2 + LAPACKE_ssytrs2_work + LAPACKE_ssytrs_work + LAPACKE_stbcon + LAPACKE_stbcon_work + LAPACKE_stbrfs + LAPACKE_stbrfs_work + LAPACKE_stbtrs + LAPACKE_stbtrs_work + LAPACKE_stfsm + LAPACKE_stfsm_work + LAPACKE_stftri + LAPACKE_stftri_work + LAPACKE_stfttp + LAPACKE_stfttp_work + LAPACKE_stfttr + LAPACKE_stfttr_work + LAPACKE_stgevc + LAPACKE_stgevc_work + LAPACKE_stgexc + LAPACKE_stgexc_work + LAPACKE_stgsen + LAPACKE_stgsen_work + LAPACKE_stgsja + LAPACKE_stgsja_work + LAPACKE_stgsna + LAPACKE_stgsna_work + LAPACKE_stgsyl + LAPACKE_stgsyl_work + LAPACKE_stpcon + LAPACKE_stpcon_work + LAPACKE_stpmqrt + LAPACKE_stpmqrt_work + LAPACKE_stpqrt2 + LAPACKE_stpqrt2_work + LAPACKE_stprfb + LAPACKE_stprfb_work + LAPACKE_stprfs + LAPACKE_stprfs_work + LAPACKE_stptri + LAPACKE_stptri_work + LAPACKE_stptrs + LAPACKE_stptrs_work + LAPACKE_stpttf + LAPACKE_stpttf_work + LAPACKE_stpttr + LAPACKE_stpttr_work + LAPACKE_strcon + LAPACKE_strcon_work + LAPACKE_strevc + LAPACKE_strevc_work + LAPACKE_strexc + LAPACKE_strexc_work + LAPACKE_strrfs + LAPACKE_strrfs_work + LAPACKE_strsen + LAPACKE_strsen_work + LAPACKE_strsna + LAPACKE_strsna_work + LAPACKE_strsyl + LAPACKE_strsyl_work + LAPACKE_strtri + LAPACKE_strtri_work + LAPACKE_strtrs + LAPACKE_strtrs_work + LAPACKE_strttf + LAPACKE_strttf_work + LAPACKE_strttp + LAPACKE_strttp_work + LAPACKE_stzrzf + LAPACKE_stzrzf_work + LAPACKE_slatms + LAPACKE_slatms_work + LAPACKE_slagge + LAPACKE_slagge_work + LAPACKE_slagsy + LAPACKE_slagsy_work + LAPACKE_sbdsvdx + LAPACKE_sbdsvdx_work + LAPACKE_sgesvdx + LAPACKE_sgesvdx_work + LAPACKE_sgetrf2 + LAPACKE_sgetrf2_work + LAPACKE_sgges3 + LAPACKE_sgges3_work + LAPACKE_sggev3 + LAPACKE_sggev3_work + LAPACKE_sgghd3 + LAPACKE_sgghd3_work + LAPACKE_sggsvd3 + LAPACKE_sggsvd3_work + LAPACKE_sggsvp3 + LAPACKE_sggsvp3_work + LAPACKE_slapmt + LAPACKE_slapmt_work + LAPACKE_slascl + LAPACKE_slascl_work + LAPACKE_sorcsd2by1 + LAPACKE_sorcsd2by1_work + LAPACKE_spotrf2 + LAPACKE_spotrf2_work + LAPACKE_ssytrf_rook + LAPACKE_ssytrf_rook_work + LAPACKE_ssytrs_rook + LAPACKE_ssytrs_rook_work + LAPACKE_stpqrt + LAPACKE_stpqrt_work + LAPACKE_sgelq + LAPACKE_sgelq_work + LAPACKE_sgemlq + LAPACKE_sgemlq_work + LAPACKE_sgemqr + LAPACKE_sgemqr_work + LAPACKE_sgeqr + LAPACKE_sgeqr_work + LAPACKE_sgetsls + LAPACKE_sgetsls_work + LAPACKE_ssbev_2stage + LAPACKE_ssbev_2stage_work + LAPACKE_ssbevd_2stage + LAPACKE_ssbevd_2stage_work + LAPACKE_ssbevx_2stage + LAPACKE_ssbevx_2stage_work + LAPACKE_ssycon_3 + LAPACKE_ssycon_3_work + LAPACKE_ssyev_2stage + LAPACKE_ssyev_2stage_work + LAPACKE_ssyevd_2stage + LAPACKE_ssyevd_2stage_work + LAPACKE_ssyevr_2stage + LAPACKE_ssyevr_2stage_work + LAPACKE_ssyevx_2stage + LAPACKE_ssyevx_2stage_work + LAPACKE_ssygv_2stage + LAPACKE_ssygv_2stage_work + LAPACKE_ssysv_aa + LAPACKE_ssysv_aa_work + LAPACKE_ssysv_rk + LAPACKE_ssysv_rk_work + LAPACKE_ssytrf_aa + LAPACKE_ssytrf_aa_work + LAPACKE_ssytrf_rk + LAPACKE_ssytrf_rk_work + LAPACKE_ssytri_3 + LAPACKE_ssytri_3_work + LAPACKE_ssytrs_aa + LAPACKE_ssytrs_aa_work + LAPACKE_ssytrs_3 + LAPACKE_ssytrs_3_work + LAPACKE_slassq + LAPACKE_slassq_work + LAPACKE_ssysv_aa_2stage + LAPACKE_ssysv_aa_2stage_work + LAPACKE_ssytrf_aa_2stage + LAPACKE_ssytrf_aa_2stage_work + LAPACKE_ssytrs_aa_2stage + LAPACKE_ssytrs_aa_2stage_work + LAPACKE_sgesvdq + LAPACKE_sgesvdq_work + LAPACKE_sgetsqrhrt + LAPACKE_sgetsqrhrt_work + LAPACKE_sorgtsqr_row + LAPACKE_sorgtsqr_row_work +" + +lapackeobjsz=" + LAPACKE_zgb_nancheck + LAPACKE_zgb_trans + LAPACKE_zge_nancheck + LAPACKE_zge_trans + LAPACKE_zgg_nancheck + LAPACKE_zgg_trans + LAPACKE_zgt_nancheck + LAPACKE_zhb_nancheck + LAPACKE_zhb_trans + LAPACKE_zhe_nancheck + LAPACKE_zhe_trans + LAPACKE_zhp_nancheck + LAPACKE_zhp_trans + LAPACKE_zhs_nancheck + LAPACKE_zhs_trans + LAPACKE_z_nancheck + LAPACKE_zpb_nancheck + LAPACKE_zpb_trans + LAPACKE_zpf_nancheck + LAPACKE_zpf_trans + LAPACKE_zpo_nancheck + LAPACKE_zpo_trans + LAPACKE_zpp_nancheck + LAPACKE_zpp_trans + LAPACKE_zpt_nancheck + LAPACKE_zsp_nancheck + LAPACKE_zsp_trans + LAPACKE_zst_nancheck + LAPACKE_zsy_nancheck + LAPACKE_zsy_trans + LAPACKE_ztb_nancheck + LAPACKE_ztb_trans + LAPACKE_ztf_nancheck + LAPACKE_ztf_trans + LAPACKE_ztp_nancheck + LAPACKE_ztp_trans + LAPACKE_ztr_nancheck + LAPACKE_ztr_trans + LAPACKE_zbbcsd + LAPACKE_zbbcsd_work + LAPACKE_zbdsqr + LAPACKE_zbdsqr_work + LAPACKE_zcgesv + LAPACKE_zcgesv_work + LAPACKE_zcposv + LAPACKE_zcposv_work + LAPACKE_zgbbrd + LAPACKE_zgbbrd_work + LAPACKE_zgbcon + LAPACKE_zgbcon_work + LAPACKE_zgbequ + LAPACKE_zgbequ_work + LAPACKE_zgbequb + LAPACKE_zgbequb_work + LAPACKE_zgbrfs + LAPACKE_zgbrfs_work + LAPACKE_zgbsv + LAPACKE_zgbsv_work + LAPACKE_zgbsvx + LAPACKE_zgbsvx_work + LAPACKE_zgbtrf + LAPACKE_zgbtrf_work + LAPACKE_zgbtrs + LAPACKE_zgbtrs_work + LAPACKE_zgebak + LAPACKE_zgebak_work + LAPACKE_zgebal + LAPACKE_zgebal_work + LAPACKE_zgebrd + LAPACKE_zgebrd_work + LAPACKE_zgecon + LAPACKE_zgecon_work + LAPACKE_zgeequ + LAPACKE_zgeequ_work + LAPACKE_zgeequb + LAPACKE_zgeequb_work + LAPACKE_zgees + LAPACKE_zgees_work + LAPACKE_zgeesx + LAPACKE_zgeesx_work + LAPACKE_zgeev + LAPACKE_zgeev_work + LAPACKE_zgeevx + LAPACKE_zgeevx_work + LAPACKE_zgehrd + LAPACKE_zgehrd_work + LAPACKE_zgelq2 + LAPACKE_zgelq2_work + LAPACKE_zgelqf + LAPACKE_zgelqf_work + LAPACKE_zgels + LAPACKE_zgels_work + LAPACKE_zgelsd + LAPACKE_zgelsd_work + LAPACKE_zgelss + LAPACKE_zgelss_work + LAPACKE_zgelsy + LAPACKE_zgelsy_work + LAPACKE_zgemqrt + LAPACKE_zgemqrt_work + LAPACKE_zgeqlf + LAPACKE_zgeqlf_work + LAPACKE_zgeqp3 + LAPACKE_zgeqp3_work + LAPACKE_zgeqr2 + LAPACKE_zgeqr2_work + LAPACKE_zgeqrf + LAPACKE_zgeqrf_work + LAPACKE_zgeqrfp + LAPACKE_zgeqrfp_work + LAPACKE_zgeqrt + LAPACKE_zgeqrt2 + LAPACKE_zgeqrt2_work + LAPACKE_zgeqrt3 + LAPACKE_zgeqrt3_work + LAPACKE_zgeqrt_work + LAPACKE_zgerfs + LAPACKE_zgerfs_work + LAPACKE_zgerqf + LAPACKE_zgerqf_work + LAPACKE_zgesdd + LAPACKE_zgesdd_work + LAPACKE_zgesv + LAPACKE_zgesv_work + LAPACKE_zgesvd + LAPACKE_zgesvd_work + LAPACKE_zgesvx + LAPACKE_zgesvx_work + LAPACKE_zgetf2 + LAPACKE_zgetf2_work + LAPACKE_zgetrf + LAPACKE_zgetrf_work + LAPACKE_zgetri + LAPACKE_zgetri_work + LAPACKE_zgetrs + LAPACKE_zgetrs_work + LAPACKE_zggbak + LAPACKE_zggbak_work + LAPACKE_zggbal + LAPACKE_zggbal_work + LAPACKE_zgges + LAPACKE_zgges_work + LAPACKE_zggesx + LAPACKE_zggesx_work + LAPACKE_zggev + LAPACKE_zggev_work + LAPACKE_zggevx + LAPACKE_zggevx_work + LAPACKE_zggglm + LAPACKE_zggglm_work + LAPACKE_zgghrd + LAPACKE_zgghrd_work + LAPACKE_zgglse + LAPACKE_zgglse_work + LAPACKE_zggqrf + LAPACKE_zggqrf_work + LAPACKE_zggrqf + LAPACKE_zggrqf_work + LAPACKE_zgtcon + LAPACKE_zgtcon_work + LAPACKE_zgtrfs + LAPACKE_zgtrfs_work + LAPACKE_zgtsv + LAPACKE_zgtsv_work + LAPACKE_zgtsvx + LAPACKE_zgtsvx_work + LAPACKE_zgttrf + LAPACKE_zgttrf_work + LAPACKE_zgttrs + LAPACKE_zgttrs_work + LAPACKE_zhbev + LAPACKE_zhbev_work + LAPACKE_zhbevd + LAPACKE_zhbevd_work + LAPACKE_zhbevx + LAPACKE_zhbevx_work + LAPACKE_zhbgst + LAPACKE_zhbgst_work + LAPACKE_zhbgv + LAPACKE_zhbgv_work + LAPACKE_zhbgvd + LAPACKE_zhbgvd_work + LAPACKE_zhbgvx + LAPACKE_zhbgvx_work + LAPACKE_zhbtrd + LAPACKE_zhbtrd_work + LAPACKE_zhecon + LAPACKE_zhecon_work + LAPACKE_zheequb + LAPACKE_zheequb_work + LAPACKE_zheev + LAPACKE_zheev_work + LAPACKE_zheevd + LAPACKE_zheevd_work + LAPACKE_zheevr + LAPACKE_zheevr_work + LAPACKE_zheevx + LAPACKE_zheevx_work + LAPACKE_zhegst + LAPACKE_zhegst_work + LAPACKE_zhegv + LAPACKE_zhegv_work + LAPACKE_zhegvd + LAPACKE_zhegvd_work + LAPACKE_zhegvx + LAPACKE_zhegvx_work + LAPACKE_zherfs + LAPACKE_zherfs_work + LAPACKE_zhesv + LAPACKE_zhesv_work + LAPACKE_zhesvx + LAPACKE_zhesvx_work + LAPACKE_zheswapr + LAPACKE_zheswapr_work + LAPACKE_zhetrd + LAPACKE_zhetrd_work + LAPACKE_zhetrf + LAPACKE_zhetrf_work + LAPACKE_zhetri + LAPACKE_zhetri2 + LAPACKE_zhetri2_work + LAPACKE_zhetri2x + LAPACKE_zhetri2x_work + LAPACKE_zhetri_work + LAPACKE_zhetrs + LAPACKE_zhetrs2 + LAPACKE_zhetrs2_work + LAPACKE_zhetrs_work + LAPACKE_zhfrk + LAPACKE_zhfrk_work + LAPACKE_zhgeqz + LAPACKE_zhgeqz_work + LAPACKE_zhpcon + LAPACKE_zhpcon_work + LAPACKE_zhpev + LAPACKE_zhpev_work + LAPACKE_zhpevd + LAPACKE_zhpevd_work + LAPACKE_zhpevx + LAPACKE_zhpevx_work + LAPACKE_zhpgst + LAPACKE_zhpgst_work + LAPACKE_zhpgv + LAPACKE_zhpgv_work + LAPACKE_zhpgvd + LAPACKE_zhpgvd_work + LAPACKE_zhpgvx + LAPACKE_zhpgvx_work + LAPACKE_zhprfs + LAPACKE_zhprfs_work + LAPACKE_zhpsv + LAPACKE_zhpsv_work + LAPACKE_zhpsvx + LAPACKE_zhpsvx_work + LAPACKE_zhptrd + LAPACKE_zhptrd_work + LAPACKE_zhptrf + LAPACKE_zhptrf_work + LAPACKE_zhptri + LAPACKE_zhptri_work + LAPACKE_zhptrs + LAPACKE_zhptrs_work + LAPACKE_zhsein + LAPACKE_zhsein_work + LAPACKE_zhseqr + LAPACKE_zhseqr_work + LAPACKE_zlacgv + LAPACKE_zlacgv_work + LAPACKE_zlacn2 + LAPACKE_zlacn2_work + LAPACKE_zlacp2 + LAPACKE_zlacp2_work + LAPACKE_zlacpy + LAPACKE_zlacpy_work + LAPACKE_zlag2c + LAPACKE_zlag2c_work + LAPACKE_zlange + LAPACKE_zlange_work + LAPACKE_zlanhe + LAPACKE_zlanhe_work + LAPACKE_zlansy + LAPACKE_zlansy_work + LAPACKE_zlantr + LAPACKE_zlantr_work + LAPACKE_zlapmr + LAPACKE_zlapmr_work + LAPACKE_zlarfb + LAPACKE_zlarfb_work + LAPACKE_zlarfg + LAPACKE_zlarfg_work + LAPACKE_zlarft + LAPACKE_zlarft_work + LAPACKE_zlarfx + LAPACKE_zlarfx_work + LAPACKE_zlarnv + LAPACKE_zlarnv_work + LAPACKE_zlaset + LAPACKE_zlaset_work + LAPACKE_zlaswp + LAPACKE_zlaswp_work + LAPACKE_zlauum + LAPACKE_zlauum_work + LAPACKE_zpbcon + LAPACKE_zpbcon_work + LAPACKE_zpbequ + LAPACKE_zpbequ_work + LAPACKE_zpbrfs + LAPACKE_zpbrfs_work + LAPACKE_zpbstf + LAPACKE_zpbstf_work + LAPACKE_zpbsv + LAPACKE_zpbsv_work + LAPACKE_zpbsvx + LAPACKE_zpbsvx_work + LAPACKE_zpbtrf + LAPACKE_zpbtrf_work + LAPACKE_zpbtrs + LAPACKE_zpbtrs_work + LAPACKE_zpftrf + LAPACKE_zpftrf_work + LAPACKE_zpftri + LAPACKE_zpftri_work + LAPACKE_zpftrs + LAPACKE_zpftrs_work + LAPACKE_zpocon + LAPACKE_zpocon_work + LAPACKE_zpoequ + LAPACKE_zpoequ_work + LAPACKE_zpoequb + LAPACKE_zpoequb_work + LAPACKE_zporfs + LAPACKE_zporfs_work + LAPACKE_zposv + LAPACKE_zposv_work + LAPACKE_zposvx + LAPACKE_zposvx_work + LAPACKE_zpotrf + LAPACKE_zpotrf_work + LAPACKE_zpotri + LAPACKE_zpotri_work + LAPACKE_zpotrs + LAPACKE_zpotrs_work + LAPACKE_zppcon + LAPACKE_zppcon_work + LAPACKE_zppequ + LAPACKE_zppequ_work + LAPACKE_zpprfs + LAPACKE_zpprfs_work + LAPACKE_zppsv + LAPACKE_zppsv_work + LAPACKE_zppsvx + LAPACKE_zppsvx_work + LAPACKE_zpptrf + LAPACKE_zpptrf_work + LAPACKE_zpptri + LAPACKE_zpptri_work + LAPACKE_zpptrs + LAPACKE_zpptrs_work + LAPACKE_zpstrf + LAPACKE_zpstrf_work + LAPACKE_zptcon + LAPACKE_zptcon_work + LAPACKE_zpteqr + LAPACKE_zpteqr_work + LAPACKE_zptrfs + LAPACKE_zptrfs_work + LAPACKE_zptsv + LAPACKE_zptsv_work + LAPACKE_zptsvx + LAPACKE_zptsvx_work + LAPACKE_zpttrf + LAPACKE_zpttrf_work + LAPACKE_zpttrs + LAPACKE_zpttrs_work + LAPACKE_zspcon + LAPACKE_zspcon_work + LAPACKE_zsprfs + LAPACKE_zsprfs_work + LAPACKE_zspsv + LAPACKE_zspsv_work + LAPACKE_zspsvx + LAPACKE_zspsvx_work + LAPACKE_zsptrf + LAPACKE_zsptrf_work + LAPACKE_zsptri + LAPACKE_zsptri_work + LAPACKE_zsptrs + LAPACKE_zsptrs_work + LAPACKE_zstedc + LAPACKE_zstedc_work + LAPACKE_zstegr + LAPACKE_zstegr_work + LAPACKE_zstein + LAPACKE_zstein_work + LAPACKE_zstemr + LAPACKE_zstemr_work + LAPACKE_zsteqr + LAPACKE_zsteqr_work + LAPACKE_zsycon + LAPACKE_zsycon_work + LAPACKE_zsyconv + LAPACKE_zsyconv_work + LAPACKE_zsyequb + LAPACKE_zsyequb_work + LAPACKE_zsyrfs + LAPACKE_zsyrfs_work + LAPACKE_zsysv + LAPACKE_zsysv_rook + LAPACKE_zsysv_rook_work + LAPACKE_zsysv_work + LAPACKE_zsysvx + LAPACKE_zsysvx_work + LAPACKE_zsyswapr + LAPACKE_zsyswapr_work + LAPACKE_zsytrf + LAPACKE_zsytrf_work + LAPACKE_zsytri + LAPACKE_zsytri2 + LAPACKE_zsytri2_work + LAPACKE_zsytri2x + LAPACKE_zsytri2x_work + LAPACKE_zsytri_work + LAPACKE_zsytrs + LAPACKE_zsytrs2 + LAPACKE_zsytrs2_work + LAPACKE_zsytrs_work + LAPACKE_ztbcon + LAPACKE_ztbcon_work + LAPACKE_ztbrfs + LAPACKE_ztbrfs_work + LAPACKE_ztbtrs + LAPACKE_ztbtrs_work + LAPACKE_ztfsm + LAPACKE_ztfsm_work + LAPACKE_ztftri + LAPACKE_ztftri_work + LAPACKE_ztfttp + LAPACKE_ztfttp_work + LAPACKE_ztfttr + LAPACKE_ztfttr_work + LAPACKE_ztgevc + LAPACKE_ztgevc_work + LAPACKE_ztgexc + LAPACKE_ztgexc_work + LAPACKE_ztgsen + LAPACKE_ztgsen_work + LAPACKE_ztgsja + LAPACKE_ztgsja_work + LAPACKE_ztgsna + LAPACKE_ztgsna_work + LAPACKE_ztgsyl + LAPACKE_ztgsyl_work + LAPACKE_ztpcon + LAPACKE_ztpcon_work + LAPACKE_ztpmqrt + LAPACKE_ztpmqrt_work + LAPACKE_ztpqrt + LAPACKE_ztpqrt2 + LAPACKE_ztpqrt2_work + LAPACKE_ztpqrt_work + LAPACKE_ztprfb + LAPACKE_ztprfb_work + LAPACKE_ztprfs + LAPACKE_ztprfs_work + LAPACKE_ztptri + LAPACKE_ztptri_work + LAPACKE_ztptrs + LAPACKE_ztptrs_work + LAPACKE_ztpttf + LAPACKE_ztpttf_work + LAPACKE_ztpttr + LAPACKE_ztpttr_work + LAPACKE_ztrcon + LAPACKE_ztrcon_work + LAPACKE_ztrevc + LAPACKE_ztrevc_work + LAPACKE_ztrexc + LAPACKE_ztrexc_work + LAPACKE_ztrrfs + LAPACKE_ztrrfs_work + LAPACKE_ztrsen + LAPACKE_ztrsen_work + LAPACKE_ztrsna + LAPACKE_ztrsna_work + LAPACKE_ztrsyl + LAPACKE_ztrsyl_work + LAPACKE_ztrtri + LAPACKE_ztrtri_work + LAPACKE_ztrtrs + LAPACKE_ztrtrs_work + LAPACKE_ztrttf + LAPACKE_ztrttf_work + LAPACKE_ztrttp + LAPACKE_ztrttp_work + LAPACKE_ztzrzf + LAPACKE_ztzrzf_work + LAPACKE_zunbdb + LAPACKE_zunbdb_work + LAPACKE_zuncsd + LAPACKE_zuncsd_work + LAPACKE_zungbr + LAPACKE_zungbr_work + LAPACKE_zunghr + LAPACKE_zunghr_work + LAPACKE_zunglq + LAPACKE_zunglq_work + LAPACKE_zungql + LAPACKE_zungql_work + LAPACKE_zungqr + LAPACKE_zungqr_work + LAPACKE_zungrq + LAPACKE_zungrq_work + LAPACKE_zungtr + LAPACKE_zungtr_work + LAPACKE_zunmbr + LAPACKE_zunmbr_work + LAPACKE_zunmhr + LAPACKE_zunmhr_work + LAPACKE_zunmlq + LAPACKE_zunmlq_work + LAPACKE_zunmql + LAPACKE_zunmql_work + LAPACKE_zunmqr + LAPACKE_zunmqr_work + LAPACKE_zunmrq + LAPACKE_zunmrq_work + LAPACKE_zunmrz + LAPACKE_zunmrz_work + LAPACKE_zunmtr + LAPACKE_zunmtr_work + LAPACKE_zupgtr + LAPACKE_zupgtr_work + LAPACKE_zupmtr + LAPACKE_zupmtr_work + LAPACKE_zsyr + LAPACKE_zsyr_work + LAPACKE_zlatms + LAPACKE_zlatms_work + LAPACKE_zlagge + LAPACKE_zlagge_work + LAPACKE_zlaghe + LAPACKE_zlaghe_work + LAPACKE_zlagsy + LAPACKE_zlagsy_work + LAPACKE_zgejsv + LAPACKE_zgejsv_work + LAPACKE_zgesvdx + LAPACKE_zgesvdx_work + LAPACKE_zgesvj + LAPACKE_zgesvj_work + LAPACKE_zgetrf2 + LAPACKE_zgetrf2_work + LAPACKE_zgges3 + LAPACKE_zgges3_work + LAPACKE_zggev3 + LAPACKE_zggev3_work + LAPACKE_zgghd3 + LAPACKE_zgghd3_work + LAPACKE_zggsvd3 + LAPACKE_zggsvd3_work + LAPACKE_zggsvp3 + LAPACKE_zggsvp3_work + LAPACKE_zhetrf_rook + LAPACKE_zhetrf_rook_work + LAPACKE_zhetrs_rook + LAPACKE_zhetrs_rook_work + LAPACKE_zlapmt + LAPACKE_zlapmt_work + LAPACKE_zlascl + LAPACKE_zlascl_work + LAPACKE_zpotrf2 + LAPACKE_zpotrf2_work + LAPACKE_zsytrf_rook + LAPACKE_zsytrf_rook_work + LAPACKE_zsytrs_rook + LAPACKE_zsytrs_rook_work + LAPACKE_zuncsd2by1 + LAPACKE_zuncsd2by1_work + LAPACKE_zgelq + LAPACKE_zgelq_work + LAPACKE_zgemlq + LAPACKE_zgemlq_work + LAPACKE_zgemqr + LAPACKE_zgemqr_work + LAPACKE_zgeqr + LAPACKE_zgeqr_work + LAPACKE_zgetsls + LAPACKE_zgetsls_work + LAPACKE_zhbev_2stage + LAPACKE_zhbev_2stage_work + LAPACKE_zhbevd_2stage + LAPACKE_zhbevd_2stage_work + LAPACKE_zhbevx_2stage + LAPACKE_zhbevx_2stage_work + LAPACKE_zhecon_3 + LAPACKE_zhecon_3_work + LAPACKE_zheev_2stage + LAPACKE_zheev_2stage_work + LAPACKE_zheevd_2stage + LAPACKE_zheevd_2stage_work + LAPACKE_zheevr_2stage + LAPACKE_zheevr_2stage_work + LAPACKE_zheevx_2stage + LAPACKE_zheevx_2stage_work + LAPACKE_zhegv_2stage + LAPACKE_zhegv_2stage_work + LAPACKE_zhesv_aa + LAPACKE_zhesv_aa_work + LAPACKE_zhesv_rk + LAPACKE_zhesv_rk_work + LAPACKE_zhetrf_aa + LAPACKE_zhetrf_aa_work + LAPACKE_zhetrf_rk + LAPACKE_zhetrf_rk_work + LAPACKE_zhetri_3 + LAPACKE_zhetri_3_work + LAPACKE_zhetrs_aa + LAPACKE_zhetrs_aa_work + LAPACKE_zhetrs_3 + LAPACKE_zhetrs_3_work + LAPACKE_zsycon_3 + LAPACKE_zsycon_3_work + LAPACKE_zsysv_aa + LAPACKE_zsysv_aa_work + LAPACKE_zsysv_rk + LAPACKE_zsysv_rk_work + LAPACKE_zsytrf_aa + LAPACKE_zsytrf_aa_work + LAPACKE_zsytrf_rk + LAPACKE_zsytrf_rk_work + LAPACKE_zsytri_3 + LAPACKE_zsytri_3_work + LAPACKE_zsytrs_aa + LAPACKE_zsytrs_aa_work + LAPACKE_zsytrs_3 + LAPACKE_zsytrs_3_work + LAPACKE_zhesv_aa_2stage + LAPACKE_zhesv_aa_2stage_work + LAPACKE_zhetrf_aa_2stage + LAPACKE_zhetrf_aa_2stage_work + LAPACKE_zhetrs_aa_2stage + LAPACKE_zhetrs_aa_2stage_work + LAPACKE_zlacrm + LAPACKE_zlacrm_work + LAPACKE_zlarcm + LAPACKE_zlarcm_work + LAPACKE_zlassq + LAPACKE_zlassq_work + LAPACKE_zsysv_aa_2stage + LAPACKE_zsysv_aa_2stage_work + LAPACKE_zsytrf_aa_2stage + LAPACKE_zsytrf_aa_2stage_work + LAPACKE_zsytrs_aa_2stage + LAPACKE_zsytrs_aa_2stage_work + LAPACKE_zgesvdq LAPACKE_zgesvdq_work -); + LAPACKE_zgetsqrhrt + LAPACKE_zgetsqrhrt_work + LAPACKE_zungtsqr_row + LAPACKE_zungtsqr_row_work +" +## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` +## Not exported: requires LAPACKE_EXTENDED to be set and depends on the +## corresponding LAPACK extended precision routines. +#LAPACKE_cgbrfsx, +#LAPACKE_cporfsx, +#LAPACKE_dgerfsx, +#LAPACKE_sgbrfsx, +#LAPACKE_ssyrfsx, +#LAPACKE_zherfsx, +#LAPACKE_cgbrfsx_work, +#LAPACKE_cporfsx_work, +#LAPACKE_dgerfsx_work, +#LAPACKE_sgbrfsx_work, +#LAPACKE_ssyrfsx_work, +#LAPACKE_zherfsx_work, +#LAPACKE_cgerfsx, +#LAPACKE_csyrfsx, +#LAPACKE_dporfsx, +#LAPACKE_sgerfsx, +#LAPACKE_zgbrfsx, +#LAPACKE_zporfsx, +#LAPACKE_cgerfsx_work, +#LAPACKE_csyrfsx_work, +#LAPACKE_dporfsx_work, +#LAPACKE_sgerfsx_work, +#LAPACKE_zgbrfsx_work, +#LAPACKE_zporfsx_work, +#LAPACKE_cherfsx, +#LAPACKE_dgbrfsx, +#LAPACKE_dsyrfsx, +#LAPACKE_sporfsx, +#LAPACKE_zgerfsx, +#LAPACKE_zsyrfsx, +#LAPACKE_cherfsx_work, +#LAPACKE_dgbrfsx_work, +#LAPACKE_dsyrfsx_work, +#LAPACKE_sporfsx_work, +#LAPACKE_zgerfsx_work, +#LAPACKE_zsyrfsx_work, +#LAPACKE_cgbsvxx, +#LAPACKE_cposvxx, +#LAPACKE_dgesvxx, +#LAPACKE_sgbsvxx, +#LAPACKE_ssysvxx, +#LAPACKE_zhesvxx, +#LAPACKE_cgbsvxx_work, +#LAPACKE_cposvxx_work, +#LAPACKE_dgesvxx_work, +#LAPACKE_sgbsvxx_work, +#LAPACKE_ssysvxx_work, +#LAPACKE_zhesvxx_work, +#LAPACKE_cgesvxx, +#LAPACKE_csysvxx, +#LAPACKE_dposvxx, +#LAPACKE_sgesvxx, +#LAPACKE_zgbsvxx, +#LAPACKE_zposvxx, +#LAPACKE_cgesvxx_work, +#LAPACKE_csysvxx_work, +#LAPACKE_dposvxx_work, +#LAPACKE_sgesvxx_work, +#LAPACKE_zgbsvxx_work, +#LAPACKE_zposvxx_work, +#LAPACKE_chesvxx, +#LAPACKE_dgbsvxx, +#LAPACKE_dsysvxx, +#LAPACKE_sposvxx, +#LAPACKE_zgesvxx, +#LAPACKE_zsysvxx, +#LAPACKE_chesvxx_work, +#LAPACKE_dgbsvxx_work, +#LAPACKE_dsysvxx_work, +#LAPACKE_sposvxx_work, +#LAPACKE_zgesvxx_work, +#LAPACKE_zsysvxx_work, + +## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` +## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg +## (see `lapack-3.4.1/TESTING/MATGEN`). #These function may need 2 underscores. -@lapack_embeded_underscore_objs=( - xerbla_array, chla_transtype, - ); -@lapack_embeded_underscore_objs_s=( - slasyf_rook, - ssytf2_rook, ssytrf_rook, ssytrs_rook, - ssytri_rook, ssycon_rook, ssysv_rook, - slasyf_rk, ssyconvf_rook, ssytf2_rk, - ssytrf_rk, ssytrs_3, ssytri_3, - ssytri_3x, ssycon_3, ssysv_rk, - slasyf_aa, ssysv_aa, ssytrf_aa, - ssytrs_aa, ssytrd_2stage, ssytrd_sy2sb, - ssytrd_sb2st, ssb2st_kernels, ssyevd_2stage, - ssyev_2stage, ssyevx_2stage, ssyevr_2stage, - ssbev_2stage, ssbevx_2stage, ssbevd_2stage, - ssygv_2stage, - ssysv_aa_2stage, ssytrf_aa_2stage, - ssytrs_aa_2stage, - slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col, -); -@lapack_embeded_underscore_objs_c=( - chetf2_rook, chetrf_rook, chetri_rook, - chetrs_rook, checon_rook, chesv_rook, - clahef_rook, clasyf_rook, - csytf2_rook, csytrf_rook, csytrs_rook, - csytri_rook, csycon_rook, csysv_rook, - chetf2_rk, - chetrf_rk, chetri_3, chetri_3x, - chetrs_3, checon_3, chesv_rk, - chesv_aa, chetrf_aa, chetrs_aa, - clahef_aa, clahef_rk, clasyf_rk, - clasyf_aa, csytf2_rk, csytrf_rk, - csytrf_aa, csytrs_3, csytrs_aa, - csytri_3, csytri_3x, csycon_3, - csysv_rk, csysv_aa, csyconvf_rook, - chetrd_2stage, chetrd_he2hb, chetrd_hb2st, - chb2st_kernels, cheevd_2stage, cheev_2stage, - cheevx_2stage, cheevr_2stage, chbev_2stage, - chbevx_2stage, chbevd_2stage, chegv_2stage, - chesv_aa_2stage, - chetrf_aa_2stage, chetrs_aa_2stage, - csysv_aa_2stage, csytrf_aa_2stage, - csytrs_aa_2stage, - claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col, -); -@lapack_embeded_underscore_objs_d=( - dlasyf_rook, - dsytf2_rook, dsytrf_rook, dsytrs_rook, - dsytri_rook, dsycon_rook, dsysv_rook, - dlasyf_rk, dsyconvf_rook, - dsytf2_rk, dsytrf_rk, dsytrs_3, - dsytri_3, dsytri_3x, dsycon_3, - dsysv_rk, dlasyf_aa, dsysv_aa, - dsytrf_aa, dsytrs_aa, dsytrd_2stage, - dsytrd_sy2sb, dsytrd_sb2st, dsb2st_kernels, - dsyevd_2stage, dsyev_2stage, dsyevx_2stage, - dsyevr_2stage, dsbev_2stage, dsbevx_2stage, - dsbevd_2stage, dsygv_2stage, - dsysv_aa_2stage, - dsytrf_aa_2stage, dsytrs_aa_2stage, - dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col, -); -@lapack_embeded_underscore_objs_z=( - zhetf2_rook, zhetrf_rook, zhetri_rook, - zhetrs_rook, zhecon_rook, zhesv_rook, - zlahef_rook, zlasyf_rook, - zsytf2_rook, zsytrf_rook, zsytrs_rook, - zsytri_rook, zsycon_rook, zsysv_rook, - zhetf2_rk, zhetrf_rk, zhetri_3, - zhetri_3x, zhetrs_3, zhecon_3, - zhesv_rk, zhesv_aa, zhetrf_aa, - zhetrs_aa, zlahef_aa, zlahef_rk, - zlasyf_rk, zlasyf_aa, zsyconvf_rook, - zsytrs_aa, zsytf2_rk, zsytrf_rk, - zsytrf_aa, zsytrs_3, zsytri_3, - zsytri_3x, zsycon_3, zsysv_rk, - zsysv_aa, zhetrd_2stage, zhetrd_he2hb, - zhetrd_hb2st, zhb2st_kernels, zheevd_2stage, - zheev_2stage, zheevx_2stage, zheevr_2stage, - zhbev_2stage, zhbevx_2stage, zhbevd_2stage, - zhegv_2stage, - zhesv_aa_2stage, zhetrf_aa_2stage, - zhetrs_aa_2stage, zsysv_aa_2stage, - zsytrf_aa_2stage, zsytrs_aa_2stage, - zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col -); - - -use File::Spec; -use File::Basename; -my $dirname = File::Spec->catfile(dirname(dirname(File::Spec->rel2abs(__FILE__))), "lapack-netlib"); - -if ($ARGV[12] == 1) { - @blasobjs = (@blasobjs, @bfblasobjs); - @cblasobjs = (@cblasobjs, @bfcblasobjs); -} -if ($ARGV[13] == 1) { - @blasobjs = (@blasobjs, @blasobjss); - @cblasobjs = (@cblasobjs, @cblasobjss); - @lapackobjs = (@lapackobjs, @lapackobjss); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2s); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objss); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objss); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_s); - @lapackeobjs = (@lapackeobjs, @lapackeobjss); -} -if ($ARGV[14] == 1) { - @blasobjs = (@blasobjs, @blasobjsd); - @cblasobjs = (@cblasobjs, @cblasobjsd); - @lapackobjs = (@lapackobjs, @lapackobjsd); - if ($ARGV[13] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); - } - @lapackobjs2 = (@lapackobjs2, @lapackobjs2d, @lapackobjs2dz); - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsd); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsd); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_d); - @lapackeobjs = (@lapackeobjs, @lapackeobjsd); -} -if ($ARGV[15] == 1) { - @blasobjs = (@blasobjs, @blasobjsc); - @cblasobjs = (@cblasobjs, @cblasobjsc); - @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsc); - @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsc); - @lapackobjs = (@lapackobjs, @lapackobjsc); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2c, @lapackobjs2zc); - if ($ARGV[13] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); - } - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsc); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsc); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_c); - @lapackeobjs = (@lapackeobjs, @lapackeobjsc); -} -if ($ARGV[16] == 1) { - @blasobjs = (@blasobjs, @blasobjsz); - @cblasobjs = (@cblasobjs, @cblasobjsz); - @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsz); - @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsz); - @lapackobjs = (@lapackobjs, @lapackobjsz); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2z); - if ($ARGV[15] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2zc); - } - if ($ARGV[14] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2dz); - } - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsz); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsz); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_z); - @lapackeobjs = (@lapackeobjs, @lapackeobjsz); -} -if ($ARGV[8] == 1) { +lapack_embeded_underscore_objs=" + xerbla_array chla_transtype + " +lapack_embeded_underscore_objs_s=" + slasyf_rook + ssytf2_rook ssytrf_rook ssytrs_rook + ssytri_rook ssycon_rook ssysv_rook + slasyf_rk ssyconvf_rook ssytf2_rk + ssytrf_rk ssytrs_3 ssytri_3 + ssytri_3x ssycon_3 ssysv_rk + slasyf_aa ssysv_aa ssytrf_aa + ssytrs_aa ssytrd_2stage ssytrd_sy2sb + ssytrd_sb2st ssb2st_kernels ssyevd_2stage + ssyev_2stage ssyevx_2stage ssyevr_2stage + ssbev_2stage ssbevx_2stage ssbevd_2stage + ssygv_2stage + ssysv_aa_2stage ssytrf_aa_2stage + ssytrs_aa_2stage + slaorhr_col_getrfnp slaorhr_col_getrfnp2 sorhr_col +" +lapack_embeded_underscore_objs_c=" + chetf2_rook chetrf_rook chetri_rook + chetrs_rook checon_rook chesv_rook + clahef_rook clasyf_rook + csytf2_rook csytrf_rook csytrs_rook + csytri_rook csycon_rook csysv_rook + chetf2_rk + chetrf_rk chetri_3 chetri_3x + chetrs_3 checon_3 chesv_rk + chesv_aa chetrf_aa chetrs_aa + clahef_aa clahef_rk clasyf_rk + clasyf_aa csytf2_rk csytrf_rk + csytrf_aa csytrs_3 csytrs_aa + csytri_3 csytri_3x csycon_3 + csysv_rk csysv_aa csyconvf_rook + chetrd_2stage chetrd_he2hb chetrd_hb2st + chb2st_kernels cheevd_2stage cheev_2stage + cheevx_2stage cheevr_2stage chbev_2stage + chbevx_2stage chbevd_2stage chegv_2stage + chesv_aa_2stage + chetrf_aa_2stage chetrs_aa_2stage + csysv_aa_2stage csytrf_aa_2stage + csytrs_aa_2stage + claunhr_col_getrfnp claunhr_col_getrfnp2 cunhr_col +" +lapack_embeded_underscore_objs_d=" + dlasyf_rook + dsytf2_rook dsytrf_rook dsytrs_rook + dsytri_rook dsycon_rook dsysv_rook + dlasyf_rk dsyconvf_rook + dsytf2_rk dsytrf_rk dsytrs_3 + dsytri_3 dsytri_3x dsycon_3 + dsysv_rk dlasyf_aa dsysv_aa + dsytrf_aa dsytrs_aa dsytrd_2stage + dsytrd_sy2sb dsytrd_sb2st dsb2st_kernels + dsyevd_2stage dsyev_2stage dsyevx_2stage + dsyevr_2stage dsbev_2stage dsbevx_2stage + dsbevd_2stage dsygv_2stage + dsysv_aa_2stage + dsytrf_aa_2stage dsytrs_aa_2stage + dlaorhr_col_getrfnp dlaorhr_col_getrfnp2 dorhr_col +" +lapack_embeded_underscore_objs_z=" + zhetf2_rook zhetrf_rook zhetri_rook + zhetrs_rook zhecon_rook zhesv_rook + zlahef_rook zlasyf_rook + zsytf2_rook zsytrf_rook zsytrs_rook + zsytri_rook zsycon_rook zsysv_rook + zhetf2_rk zhetrf_rk zhetri_3 + zhetri_3x zhetrs_3 zhecon_3 + zhesv_rk zhesv_aa zhetrf_aa + zhetrs_aa zlahef_aa zlahef_rk + zlasyf_rk zlasyf_aa zsyconvf_rook + zsytrs_aa zsytf2_rk zsytrf_rk + zsytrf_aa zsytrs_3 zsytri_3 + zsytri_3x zsycon_3 zsysv_rk + zsysv_aa zhetrd_2stage zhetrd_he2hb + zhetrd_hb2st zhb2st_kernels zheevd_2stage + zheev_2stage zheevx_2stage zheevr_2stage + zhbev_2stage zhbevx_2stage zhbevd_2stage + zhegv_2stage + zhesv_aa_2stage zhetrf_aa_2stage + zhetrs_aa_2stage zsysv_aa_2stage + zsytrf_aa_2stage zsytrs_aa_2stage + zlaunhr_col_getrfnp zlaunhr_col_getrfnp2 zunhr_col +" + +dirname=`pwd -P`/../lapack-netlib + +p1=$1 +p2=$2 +p3=$3 +p4=$4 +p5=$5 +p6=$6 +p7=$7 +p8=$8 +p9=$9 +shift +p10=$9 +shift +p11=$9 +shift +p12=$9 +shift +p13=$9 +shift +p14=$9 +shift +p15=$9 +shift +p16=$9 +shift +p17=$9 + +if [ $p13 -eq 1 ]; then + blasobjs="$blasobjs $bfblasobjs" + cblasobjs="$cblasobjs $bfcblasobjs" +fi + +if [ $p14 -eq 1 ]; then + blasobjs="$blasobjs $blasobjss" + cblasobjs="$cblasobjs $cblasobjss" + lapackobjs="$lapackobjs $lapackobjss" + lapackobjs2="$lapackobjs2 $lapackobjs2s" + lapackobjs2="$lapackobjs2 $lapackobjs2sc" + lapackobjs2="$lapackobjs2 $lapackobjs2ds" + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objss" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objss" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_s" + lapackeobjs="$lapackeobjs $lapackeobjss" +fi + +if [ $p15 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsd" + cblasobjs="$cblasobjs $cblasobjsd" + lapackobjs="$lapackobjs $lapackobjsd" + if [ $p14 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2ds" + fi + lapackobjs2="$lapackobjs2 $lapackobjs2d $lapackobjs2dz" + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsd" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsd" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_d" + lapackeobjs="$lapackeobjs $lapackeobjsd" +fi + +if [ $p16 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsc" + cblasobjs="$cblasobjs $cblasobjsc" + gemm3mobjs="$gemm3mobjs $gemm3mobjsc" + cblasgemm3mobjs="$cblasgemm3mobjs $cblasgemm3mobjsc" + lapackobjs="$lapackobjs $lapackobjsc" + lapackobjs2="$lapackobjs2 $lapackobjs2c $lapackobjs2zc" + if [ $p14 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2sc" + fi + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsc" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsc" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_c" + lapackeobjs="$lapackeobjs $lapackeobjsc" +fi + +if [ $p17 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsz" + cblasobjs="$cblasobjs $cblasobjsz" + gemm3mobjs="$gemm3mobjs $gemm3mobjsz" + cblasgemm3mobjs="$cblasgemm3mobjs $cblasgemm3mobjsz" + lapackobjs="$lapackobjs $lapackobjsz" + lapackobjs2="$lapackobjs2 $lapackobjs2z" + if [ $p16 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2zc" + fi + if [ $p15 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2dz" + fi + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsz" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsz" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_z" + lapackeobjs="$lapackeobjs $lapackeobjsz" +fi + +if [ $p9 -eq 1 ]; then #ONLY_CBLAS=1 - @underscore_objs = (@misc_underscore_objs); -} elsif ($ARGV[5] == 1) { + underscore_objs="$misc_underscore_objs" +elif [ $p6 -eq 1 ]; then #NO_LAPACK=1 - @underscore_objs = (@blasobjs, @misc_underscore_objs); -} elsif (-d $dirname) { - if ($ARGV[7] == 0) { + underscore_objs="$blasobjs $misc_underscore_objs" +elif [ -d "$dirname" ]; then + if [ $p8 -eq 0 ]; then # NEED2UNDERSCORES=0 # Don't need 2 underscores - @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs); - } else { + underscore_objs="$blasobjs $lapackobjs $lapackobjs2 $misc_underscore_objs $lapack_embeded_underscore_objs" + else # Need 2 underscores - @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs); - @need_2underscore_objs = (@lapack_embeded_underscore_objs); - }; - - if ($ARGV[11] == 1) { - #BUILD_LAPACK_DEPRECATED=1 - @underscore_objs = (@underscore_objs, @lapack_deprecated_objs); - } -} else { - @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); -} + underscore_objs="$blasobjs $lapackobjs $lapackobjs2 $misc_underscore_objs" + need_2underscore_objs="$lapack_embeded_underscore_objs" + fi -if ($ARGV[8] == 1) { - #ONLY_CBLAS=1 - @gemm3mobjs=(); - @exblasobjs=(); -} - -if ($ARGV[3] == 1) { - @underscore_objs = (@underscore_objs, @exblasobjs); -}; - -if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; - -if ($ARGV[4] == 0) { - @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); - if ($ARGV[1] eq "x86_64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "x86") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "ia64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "MIPS") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; -}else{ - #NO_CBLAS=1 - @no_underscore_objs = (@misc_no_underscore_objs); -} -if ($ARGV[6] == 1) { - #NO_LAPACKE=1 - @no_underscore_objs = (@no_underscore_objs); -} else { - if ($ARGV[11] == 1) { + if [ $p12 -eq 1 ]; then #BUILD_LAPACK_DEPRECATED=1 - @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); - } else { - @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); - } -} - -@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); -@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); - -$bu = $ARGV[2]; - -$bu = "" if (($bu eq "0") || ($bu eq "1")); - -$symbolprefix = $ARGV[9]; - -$symbolsuffix = $ARGV[10]; - -if ($ARGV[0] eq "osx") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print "_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "aix"){ - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "objcopy") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print $objs, $bu, " ", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "objconv") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print "-nr:_", $objs, $bu, ":_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "win2k"){ - print "EXPORTS\n"; - $count = 1; - - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - foreach $objs (@need_2underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; - $count ++; - } - - #for misc_common_objs - foreach $objs (@misc_common_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - - foreach $objs (@no_underscore_objs) { - print "\t",$symbolprefix,$objs,$symbolsuffix,"=$objs"," \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "win2khpl") { - print "EXPORTS\n"; - $count = 1; - foreach $objs (@hplobjs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "microsoft"){ - @underscore_objs = (@underscore_objs, @misc_common_objs); - - print "EXPORTS\n"; - $count = 1; - foreach $objs (@underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $objs, "\_", $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, "\_", $symbolsuffix, " = $objs","_\n"; - $count ++; - } - - foreach $objs (@need_2underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "linktest") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - print "int main(void){\n"; - foreach $objs (@underscore_objs) { - print $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla"; - } - - foreach $objs (@need_2underscore_objs) { - print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; - } - - foreach $objs (@no_underscore_objs) { - print $symbolprefix, $objs, $symbolsuffix, "();\n"; - } - - print "return 0;}\n"; - exit(0); -} + underscore_objs="$underscore_objs $lapack_deprecated_objs" + fi +else + underscore_objs="$blasobjs $lapackobjs $misc_underscore_objs" +fi + +if [ $p9 -eq 1 ]; then + # ONLY_CBLAS=1 + gemm3mobjs='' + exblasobjs='' +fi + +if [ $p4 -eq 1 ]; then + underscore_objs="$underscore_objs $exblasobjs" +fi + +case $p2 in + x86_64|x86|ia64|MIPS) + underscore_objs="$underscore_objs $gemm3mobjs" + ;; +esac + +if [ $p5 -eq 0 ]; then + no_underscore_objs="$cblasobjs $misc_no_underscore_objs" + case $p2 in + x86_64|x86|ia64|MIPS) + no_underscore_objs="$no_underscore_objs $cblasgemm3mobjs" + ;; + esac +else + # NO_CBLAS=1 + no_underscore_objs="$misc_no_underscore_objs" +fi + +if [ $p7 -ne 1 ]; then + if [ $p12 -eq 1 ]; then + # BUILD_LAPACK_DEPRECATED=1 + no_underscore_objs="$no_underscore_objs $lapackeobjs $lapacke_deprecated_objs" + else + no_underscore_objs="$no_underscore_objs $lapackeobjs" + fi +fi + +hplobjs="daxpy dcopy dscal idamax dgemv dtrsv dger dgemm dtrsm" +#hplobjs2="HPL_dlaswp00N HPL_dlaswp01N HPL_dlaswp01T" + +bu="$p3" + +if [ "$bu" = "0" ] || [ "$bu" = "1" ]; then + bu="" +fi + +symbolprefix=$p10 +symbolsuffix=$p11 + +case "$p1" in + osx) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '_%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '_%s%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '_%s%s%s\n' "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + aix) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '_%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '_%s%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '_%s%s%s\n' "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + objcopy) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '%s%s %s%s%s%s\n' "$obj" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '%s%s%s %s%s%s%s%s\n' "$obj" "$bu" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '%s %s%s%s\n' "$obj" "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + objconv) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf -- '-nr:_%s%s:_%s%s%s%s\n' "$obj" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf -- '-nr:_%s%s%s:_%s%s%s%s%s\n' "$obj" "$bu" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf -- '-nr:_%s:_%s%s%s\n' "$obj" \ + "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + win2k) + printf 'EXPORTS\n' + count=1 + + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $need_2underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s__%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $misc_common_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $no_underscore_objs; do + printf '\t%s%s%s=%s @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + win2khpl) + printf 'EXPORTS\n' + count=1 + for obj in $hplobjs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + microsoft) + underscore_objs="$underscore_objs $misc_common_objs" + + printf 'EXPORTS\n' + count=1 + for obj in $underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s = %s_\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s_%s = %s_\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s%s = %s_\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s_%s = %s_\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" + count=`expr $count + 1` + done + + for obj in $need_2underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s__%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + linktest) + + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + printf 'int main(void){\n' + for obj in $underscore_objs; do + [ "$obj" != "xerbla" ] && printf '%s%s%s%s();\n' \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '%s%s%s%s%s();\n' \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '%s%s%s();\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" + done + + printf 'return 0;}\n' + ;; +esac diff --git a/exports/gensymbol.pl b/exports/gensymbol.pl new file mode 100644 index 0000000000..ac62bc058e --- /dev/null +++ b/exports/gensymbol.pl @@ -0,0 +1,3972 @@ +#!/usr/bin/env perl + +# Changelog +# 2017/09/03 staticfloat +# Added zsymv and csymv into @lapackobjs2 so they are properly renamed +# +# 2017/07/01 Saar +# removed zsymv_ and csymv_ from @blasobs, because these functions +# are now in lapack-3.7.0 +# added blas_thread_shutdown_ +# added Cblas_cgemm3m and Cblas_zgemm3m +# added somatcopy_, simatcopy_ ... +# added new functions from lapack-3.7.0 +# added LAPACKE deprecated objs from lapack-3.7.0 +# +# 2017/08/01 Saar +# removed blas_thread_shutdown_ +# +@blasobjsc = ( + caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, + chbmv,chemm,chemv,cher2,cher2k,cher,cherk,scabs1,scamax, + chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,scamin,scasum,scnrm2, + csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, + ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum); + +@blasobjsd = ( + damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm, + dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, + dscal,dsdot,dspmv,dspr2,dimatcopy,domatcopy, + dspr,dswap,dsymm,dsymv,dsyr2,dsyr2k,dsyr,dsyrk,dtbmv,dtbsv, + dtpmv,dtpsv,dtrmm,dtrmv,dtrsm,dtrsv, + idamax,idamin,idmax,idmin,dgeadd,dsum); + +@blasobjss = ( + isamax,isamin,ismax,ismin, + samax,samin,sasum,saxpy, saxpby, + scopy,sdot,sdsdot,sgbmv,sgemm,sgemv,sger, + smax,smin,snrm2,simatcopy,somatcopy, + srot,srotg,srotm,srotmg,ssbmv,sscal,sspmv,sspr2,sspr,sswap, + ssymm,ssymv,ssyr2,ssyr2k,ssyr,ssyrk,stbmv,stbsv,stpmv,stpsv, + strmm,strmv,strsm,strsv, sgeadd,ssum); + +@blasobjsz = ( + izamax,izamin,, + zaxpy,zaxpby,zcopy,zdotc,zdotu,zdrot, + zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, + zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, + zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, + ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, + zomatcopy, zimatcopy,dzamax,dzamin,dzasum,dznrm2, + zgeadd, dzsum); + +@blasobjs = (lsame, xerbla); +@bfblasobjs = (sbgemm, sbgemv, sbdot, sbstobf16, sbdtobf16, sbf16tos, dbf16tod); +@cblasobjsc = ( + cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv, + cblas_cgerc, cblas_cgeru, cblas_chbmv, cblas_chemm, cblas_chemv, cblas_cher2, cblas_cher2k, + cblas_cher, cblas_cherk, cblas_chpmv, cblas_chpr2, cblas_chpr, cblas_cscal, cblas_caxpby, + cblas_csscal, cblas_cswap, cblas_csymm, cblas_csyr2k, cblas_csyrk, cblas_ctbmv, cblas_cgeadd, + cblas_ctbsv, cblas_ctpmv, cblas_ctpsv, cblas_ctrmm, cblas_ctrmv, cblas_ctrsm, cblas_ctrsv, + cblas_scnrm2, cblas_scasum, + cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy + ); +@cblasobjsd = ( + cblas_dasum, cblas_daxpy, cblas_dcopy, cblas_ddot, + cblas_dgbmv, cblas_dgemm, cblas_dgemv, cblas_dger, cblas_dnrm2, + cblas_drot, cblas_drotg, cblas_drotm, cblas_drotmg, cblas_dsbmv, cblas_dscal, cblas_dsdot, + cblas_dspmv, cblas_dspr2, cblas_dspr, cblas_dswap, cblas_dsymm, cblas_dsymv, cblas_dsyr2, + cblas_dsyr2k, cblas_dsyr, cblas_dsyrk, cblas_dtbmv, cblas_dtbsv, cblas_dtpmv, cblas_dtpsv, + cblas_dtrmm, cblas_dtrmv, cblas_dtrsm, cblas_dtrsv, cblas_daxpby, cblas_dgeadd, + cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy + ); + +@cblasobjss = ( + cblas_sasum, cblas_saxpy, cblas_saxpby, + cblas_scopy, cblas_sdot, cblas_sdsdot, cblas_sgbmv, cblas_sgemm, + cblas_sgemv, cblas_sger, cblas_snrm2, cblas_srot, cblas_srotg, + cblas_srotm, cblas_srotmg, cblas_ssbmv, cblas_sscal, cblas_sspmv, cblas_sspr2, cblas_sspr, + cblas_sswap, cblas_ssymm, cblas_ssymv, cblas_ssyr2, cblas_ssyr2k, cblas_ssyr, cblas_ssyrk, + cblas_stbmv, cblas_stbsv, cblas_stpmv, cblas_stpsv, cblas_strmm, cblas_strmv, cblas_strsm, + cblas_strsv, cblas_sgeadd, + cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy + ); +@cblasobjsz = ( + cblas_dzasum, cblas_dznrm2, cblas_zaxpy, cblas_zcopy, cblas_zdotc, cblas_zdotu, cblas_zdscal, + cblas_zgbmv, cblas_zgemm, cblas_zgemv, cblas_zgerc, cblas_zgeru, cblas_zhbmv, cblas_zhemm, + cblas_zhemv, cblas_zher2, cblas_zher2k, cblas_zher, cblas_zherk, cblas_zhpmv, cblas_zhpr2, + cblas_zhpr, cblas_zscal, cblas_zswap, cblas_zsymm, cblas_zsyr2k, cblas_zsyrk, + cblas_ztbmv, cblas_ztbsv, cblas_ztpmv, cblas_ztpsv, cblas_ztrmm, cblas_ztrmv, cblas_ztrsm, + cblas_ztrsv, cblas_cdotc_sub, cblas_cdotu_sub, cblas_zdotc_sub, cblas_zdotu_sub, + cblas_zaxpby, cblas_zgeadd, + cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy +); + +@cblasobjs = ( cblas_xerbla ); + +@bfcblasobjs = (cblas_sbgemm, cblas_sbgemv, cblas_sbdot, cblas_sbstobf16, cblas_sbdtobf16, cblas_sbf16tos, cblas_dbf16tod); + +@exblasobjs = ( + qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm, + qgemv,qger,qmax,qmin, + qnrm2, + qsbmv,qscal,qspmv,qspr2, + qspr,qswap,qsymm,qsymv,qsyr2,qsyr2k,qsyr,qsyrk,qtbmv,qtbsv, + qtpmv,qtpsv,qtrmm,qtrmv,qtrsm,qtrsv, + qxamax,qxamin,qxasum,qxnrm2, + xaxpy,xcopy,xdotc,xdotu, + xqscal,xgbmv,xgemm,xgemv,xgerc,xgeru, + xhbmv,xhemm,xhemv,xher2,xher2k,xher,xherk,xhpmv,xhpr2, + xhpr,xscal,xswap,xsymm,xsyr2k,xsyrk,xtbmv, + xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv, +# qrot,qrotg,qrotm,qrotmg, +# xdrot,xrotg, +); + + @gemm3mobjs=(); + + @cblasgemm3mobjs=(); + +@gemm3mobjsc = ( + cgemm3m, +); +@gemm3mobjsz = ( + zgemm3m +); + +@cblasgemm3mobjsc = ( + cblas_cgemm3m +); +@cblasgemm3mobjsz = ( + cblas_zgemm3m +); + + + + +#both underscore and no underscore +@misc_common_objs = ( + openblas_get_parallel, + openblas_get_num_procs, + openblas_set_num_threads, + openblas_get_num_threads, +); + +@misc_no_underscore_objs = ( + goto_set_num_threads, + openblas_get_config, + openblas_get_corename, +); + +@misc_underscore_objs = ( +); + +@lapackobjss = ( + # These routines are provided by OpenBLAS. + sgesv, + sgetf2, + sgetrf, + slaswp, + sgetrs, + slauu2, + slauum, + spotf2, + spotrf, + strti2, + strtri, + spotri, +); + +@lapackobjsd = ( + dgesv, + dgetf2, + dgetrf, + dlaswp, + dgetrs, + dlauu2, + dlauum, + dpotf2, + dpotrf, + dtrti2, + dtrtri, + dpotri, +); + +@lapackobjsc = ( +cgesv, +cgetf2, +cgetrf, +claswp, +cgetrs, +clauu2, +clauum, +cpotf2, +cpotrf, +ctrti2, +ctrtri, +cpotri, +); + +@lapackobjsz = ( +zgesv, +zgetf2, +zgetrf, +zlaswp, +zgetrs, +zlauu2, +zlauum, +zpotf2, +zpotrf, +ztrti2, +ztrtri, +zpotri, +); + + +@lapackobjs2 = ( + # These routines are provided by LAPACK (reference implementation). + # + # This list is prepared by copying all routines listed in + # `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. + # Thereafter the following routines should be removed: + # - those provided by OpenBLAS (see @lapackobjs) + # - extra precision routines (see @lapack_extendedprecision_objs) + # Each of these have been marked individually with "already provided" or "excluded". + + # ALLAUX -- Auxiliary routines called from all precisions + # already provided by @blasobjs: xerbla, lsame + ilaenv, ieeeck, lsamen, iparmq, + ilaprec, ilatrans, ilauplo, iladiag, + ilaver, slamch, slamc3, +); + +@lapackobjs2sc = ( + # SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. + # excluded: second_$(TIMER) + sbdsdc, + sbdsqr, sdisna, slabad, slacpy, sladiv, slae2, slaebz, + slaed0, slaed1, slaed2, slaed3, slaed4, slaed5, slaed6, + slaed7, slaed8, slaed9, slaeda, slaev2, slagtf, + slagts, slamrg, slanst, + slapy2, slapy3, slarnv, + slarra, slarrb, slarrc, slarrd, slarre, slarrf, slarrj, + slarrk, slarrr, slaneg, + slartg, slaruv, slas2, slascl, + slasd0, slasd1, slasd2, slasd3, slasd4, slasd5, slasd6, + slasd7, slasd8, slasda, slasdq, slasdt, + slaset, slasq1, slasq2, slasq3, slasq4, slasq5, slasq6, + slasr, slasrt, slassq, slasv2, spttrf, sstebz, sstedc, + ssteqr, ssterf, slaisnan, sisnan, + slartgp, slartgs, +); + +@lapackobjs2dz = ( + # DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. + # excluded: dsecnd_$(TIMER) + dbdsdc, + dbdsqr, ddisna, dlabad, dlacpy, dladiv, dlae2, dlaebz, + dlaed0, dlaed1, dlaed2, dlaed3, dlaed4, dlaed5, dlaed6, + dlaed7, dlaed8, dlaed9, dlaeda, dlaev2, dlagtf, + dlagts, dlamrg, dlanst, + dlapy2, dlapy3, dlarnv, + dlarra, dlarrb, dlarrc, dlarrd, dlarre, dlarrf, dlarrj, + dlarrk, dlarrr, dlaneg, + dlartg, dlaruv, dlas2, dlascl, + dlasd0, dlasd1, dlasd2, dlasd3, dlasd4, dlasd5, dlasd6, + dlasd7, dlasd8, dlasda, dlasdq, dlasdt, + dlaset, dlasq1, dlasq2, dlasq3, dlasq4, dlasq5, dlasq6, + dlasr, dlasrt, dlassq, dlasv2, dpttrf, dstebz, dstedc, + dsteqr, dsterf, dlaisnan, disnan, + dlartgp, dlartgs, + dlamch, dlamc3, +); + +@lapackobjs2s = ( + # SLASRC -- Single precision real LAPACK routines + # already provided by @lapackobjs: + # sgesv, sgetf2, slaswp, slauu2, slauum, spotf2, spotri, strti2, strtri + sgbbrd, sgbcon, sgbequ, sgbrfs, sgbsv, + sgbsvx, sgbtf2, sgbtrf, sgbtrs, sgebak, sgebal, sgebd2, + sgebrd, sgecon, sgeequ, sgees, sgeesx, sgeev, sgeevx, + sgehd2, sgehrd, sgelq2, sgelqf, + sgels, sgelsd, sgelss, sgelsy, sgeql2, sgeqlf, + sgeqp3, sgeqr2, sgeqr2p, sgeqrf, sgeqrfp, sgerfs, + sgerq2, sgerqf, sgesc2, sgesdd, sgesvd, sgesvx, + sgetc2, sgetri, + sggbak, sggbal, sgges, sggesx, sggev, sggevx, + sggglm, sgghrd, sgglse, sggqrf, + sggrqf, sgtcon, sgtrfs, sgtsv, + sgtsvx, sgttrf, sgttrs, sgtts2, shgeqz, + shsein, shseqr, slabrd, slacon, slacn2, + slaein, slaexc, slag2, slags2, slagtm, slagv2, slahqr, + slahr2, slaic1, slaln2, slals0, slalsa, slalsd, + slangb, slange, slangt, slanhs, slansb, slansp, + slansy, slantb, slantp, slantr, slanv2, + slapll, slapmt, + slaqgb, slaqge, slaqp2, slaqps, slaqsb, slaqsp, slaqsy, + slaqr0, slaqr1, slaqr2, slaqr3, slaqr4, slaqr5, + slaqtr, slar1v, slar2v, ilaslr, ilaslc, + slarf, slarfb, slarfg, slarfgp, slarft, slarfx, slargv, + slarrv, slartv, + slarz, slarzb, slarzt, slasy2, slasyf, + slatbs, slatdf, slatps, slatrd, slatrs, slatrz, + sopgtr, sopmtr, sorg2l, sorg2r, + sorgbr, sorghr, sorgl2, sorglq, sorgql, sorgqr, sorgr2, + sorgrq, sorgtr, sorm2l, sorm2r, + sormbr, sormhr, sorml2, sormlq, sormql, sormqr, sormr2, + sormr3, sormrq, sormrz, sormtr, spbcon, spbequ, spbrfs, + spbstf, spbsv, spbsvx, + spbtf2, spbtrf, spbtrs, spocon, spoequ, sporfs, sposv, + sposvx, spstrf, spstf2, + sppcon, sppequ, + spprfs, sppsv, sppsvx, spptrf, spptri, spptrs, sptcon, + spteqr, sptrfs, sptsv, sptsvx, spttrs, sptts2, srscl, + ssbev, ssbevd, ssbevx, ssbgst, ssbgv, ssbgvd, ssbgvx, + ssbtrd, sspcon, sspev, sspevd, sspevx, sspgst, + sspgv, sspgvd, sspgvx, ssprfs, sspsv, sspsvx, ssptrd, + ssptrf, ssptri, ssptrs, sstegr, sstein, sstev, sstevd, sstevr, + sstevx, + ssycon, ssyev, ssyevd, ssyevr, ssyevx, ssygs2, + ssygst, ssygv, ssygvd, ssygvx, ssyrfs, ssysv, ssysvx, + ssytd2, ssytf2, ssytrd, ssytrf, ssytri, ssytri2, ssytri2x, + ssyswapr, ssytrs, ssytrs2, ssyconv, + stbcon, + stbrfs, stbtrs, stgevc, stgex2, stgexc, stgsen, + stgsja, stgsna, stgsy2, stgsyl, stpcon, stprfs, stptri, + stptrs, + strcon, strevc, strexc, strrfs, strsen, strsna, strsyl, + strtrs, stzrzf, sstemr, + slansf, spftrf, spftri, spftrs, ssfrk, stfsm, stftri, stfttp, + stfttr, stpttf, stpttr, strttf, strttp, + sgejsv, sgesvj, sgsvj0, sgsvj1, + sgeequb, ssyequb, spoequb, sgbequb, + sbbcsd, slapmr, sorbdb, sorbdb1, sorbdb2, sorbdb3, sorbdb4, + sorbdb5, sorbdb6, sorcsd, sorcsd2by1, + sgeqrt, sgeqrt2, sgeqrt3, sgemqrt, + stpqrt, stpqrt2, stpmqrt, stprfb, +); + +@lapackobjs2ds = ( + # DSLASRC -- Double-single mixed precision real routines called from + # single, single-extra and double precision real LAPACK + # routines (i.e. from SLASRC, SXLASRC, DLASRC). + # + # already provided by @lapackobjs: + # sgetrs, spotrf, sgetrf + spotrs, +); + +@lapackobjs2c = ( + # CLASRC -- Single precision complex LAPACK routines + # already provided by @blasobjs: + # already provided by @lapackobjs: + # cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri + cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx, + cgbtf2, cgbtrf, cgbtrs, cgebak, cgebal, cgebd2, cgebrd, + cgecon, cgeequ, cgees, cgeesx, cgeev, cgeevx, + cgehd2, cgehrd, cgelq2, cgelqf, + cgels, cgelsd, cgelss, cgelsy, cgeql2, cgeqlf, cgeqp3, + cgeqr2, cgeqr2p, cgeqrf, cgeqrfp, cgerfs, + cgerq2, cgerqf, cgesc2, cgesdd, cgesvd, + cgesvx, cgetc2, cgetri, + cggbak, cggbal, cgges, cggesx, cggev, cggevx, cggglm, + cgghrd, cgglse, cggqrf, cggrqf, + cgtcon, cgtrfs, cgtsv, cgtsvx, cgttrf, cgttrs, cgtts2, chbev, + chbevd, chbevx, chbgst, chbgv, chbgvd, chbgvx, chbtrd, + checon, cheev, cheevd, cheevr, cheevx, chegs2, chegst, + chegv, chegvd, chegvx, cherfs, chesv, chesvx, chetd2, + chetf2, chetrd, + chetrf, chetri, chetri2, chetri2x, cheswapr, + chetrs, chetrs2, chgeqz, chpcon, chpev, chpevd, + chpevx, chpgst, chpgv, chpgvd, chpgvx, chprfs, chpsv, + chpsvx, + chptrd, chptrf, chptri, chptrs, chsein, chseqr, clabrd, + clacgv, clacon, clacn2, clacp2, clacpy, clacrm, clacrt, cladiv, + claed0, claed7, claed8, + claein, claesy, claev2, clags2, clagtm, + clahef, clahqr, + clahr2, claic1, clals0, clalsa, clalsd, clangb, clange, clangt, + clanhb, clanhe, + clanhp, clanhs, clanht, clansb, clansp, clansy, clantb, + clantp, clantr, clapll, clapmt, clarcm, claqgb, claqge, + claqhb, claqhe, claqhp, claqp2, claqps, claqsb, + claqr0, claqr1, claqr2, claqr3, claqr4, claqr5, + claqsp, claqsy, clar1v, clar2v, ilaclr, ilaclc, + clarf, clarfb, clarfg, clarft, clarfgp, + clarfx, clargv, clarnv, clarrv, clartg, clartv, + clarz, clarzb, clarzt, clascl, claset, clasr, classq, + clasyf, clatbs, clatdf, clatps, clatrd, clatrs, clatrz, + cpbcon, cpbequ, cpbrfs, cpbstf, cpbsv, + cpbsvx, cpbtf2, cpbtrf, cpbtrs, cpocon, cpoequ, cporfs, + cposv, cposvx, cpstrf, cpstf2, + cppcon, cppequ, cpprfs, cppsv, cppsvx, cpptrf, cpptri, cpptrs, + cptcon, cpteqr, cptrfs, cptsv, cptsvx, cpttrf, cpttrs, cptts2, + crot, cspcon, cspmv, cspr, csprfs, cspsv, + cspsvx, csptrf, csptri, csptrs, csrscl, cstedc, + cstegr, cstein, csteqr, + csycon, + csymv, + csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x, + csyswapr, csytrs, csytrs2, csyconv, + ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2, + ctgexc, ctgsen, ctgsja, ctgsna, ctgsy2, ctgsyl, ctpcon, + ctprfs, ctptri, + ctptrs, ctrcon, ctrevc, ctrexc, ctrrfs, ctrsen, ctrsna, + ctrsyl, ctrtrs, ctzrzf, cung2l, cung2r, + cungbr, cunghr, cungl2, cunglq, cungql, cungqr, cungr2, + cungrq, cungtr, cunm2l, cunm2r, cunmbr, cunmhr, cunml2, + cunmlq, cunmql, cunmqr, cunmr2, cunmr3, cunmrq, cunmrz, + cunmtr, cupgtr, cupmtr, icmax1, scsum1, cstemr, + chfrk, ctfttp, clanhf, cpftrf, cpftri, cpftrs, ctfsm, ctftri, + ctfttr, ctpttf, ctpttr, ctrttf, ctrttp, + cgeequb, cgbequb, csyequb, cpoequb, cheequb, + cbbcsd, clapmr, cunbdb, cunbdb1, cunbdb2, cunbdb3, cunbdb4, + cunbdb5, cunbdb6, cuncsd, cuncsd2by1, + cgeqrt, cgeqrt2, cgeqrt3, cgemqrt, + ctpqrt, ctpqrt2, ctpmqrt, ctprfb, +); +@lapackobjs2zc = ( + # ZCLASRC -- Double-single mixed precision complex routines called from + # single, single-extra and double precision complex LAPACK + # routines (i.e. from CLASRC, CXLASRC, ZLASRC). + # + # already provided by @lapackobjs: + # cgetrs, cpotrf, cgetrf + cpotrs, +); + +@lapackobjs2d = ( + # DLASRC -- Double precision real LAPACK routines + # already provided by @lapackobjs: + # dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, + # dtrti2, dtrtri + dgbbrd, dgbcon, dgbequ, dgbrfs, dgbsv, + dgbsvx, dgbtf2, dgbtrf, dgbtrs, dgebak, dgebal, dgebd2, + dgebrd, dgecon, dgeequ, dgees, dgeesx, dgeev, dgeevx, + dgehd2, dgehrd, dgelq2, dgelqf, + dgels, dgelsd, dgelss, dgelsy, dgeql2, dgeqlf, + dgeqp3, dgeqr2, dgeqr2p, dgeqrf, dgeqrfp, dgerfs, + dgerq2, dgerqf, dgesc2, dgesdd, dgesvd, dgesvx, + dgetc2, dgetri, + dggbak, dggbal, dgges, dggesx, dggev, dggevx, + dggglm, dgghrd, dgglse, dggqrf, + dggrqf, dgtcon, dgtrfs, dgtsv, + dgtsvx, dgttrf, dgttrs, dgtts2, dhgeqz, + dhsein, dhseqr, dlabrd, dlacon, dlacn2, + dlaein, dlaexc, dlag2, dlags2, dlagtm, dlagv2, dlahqr, + dlahr2, dlaic1, dlaln2, dlals0, dlalsa, dlalsd, + dlangb, dlange, dlangt, dlanhs, dlansb, dlansp, + dlansy, dlantb, dlantp, dlantr, dlanv2, + dlapll, dlapmt, + dlaqgb, dlaqge, dlaqp2, dlaqps, dlaqsb, dlaqsp, dlaqsy, + dlaqr0, dlaqr1, dlaqr2, dlaqr3, dlaqr4, dlaqr5, + dlaqtr, dlar1v, dlar2v, iladlr, iladlc, + dlarf, dlarfb, dlarfg, dlarfgp, dlarft, dlarfx, + dlargv, dlarrv, dlartv, + dlarz, dlarzb, dlarzt, dlasy2, dlasyf, + dlatbs, dlatdf, dlatps, dlatrd, dlatrs, dlatrz, + dopgtr, dopmtr, dorg2l, dorg2r, + dorgbr, dorghr, dorgl2, dorglq, dorgql, dorgqr, dorgr2, + dorgrq, dorgtr, dorm2l, dorm2r, + dormbr, dormhr, dorml2, dormlq, dormql, dormqr, dormr2, + dormr3, dormrq, dormrz, dormtr, dpbcon, dpbequ, dpbrfs, + dpbstf, dpbsv, dpbsvx, + dpbtf2, dpbtrf, dpbtrs, dpocon, dpoequ, dporfs, dposv, + dposvx, dpotrs, dpstrf, dpstf2, + dppcon, dppequ, + dpprfs, dppsv, dppsvx, dpptrf, dpptri, dpptrs, dptcon, + dpteqr, dptrfs, dptsv, dptsvx, dpttrs, dptts2, drscl, + dsbev, dsbevd, dsbevx, dsbgst, dsbgv, dsbgvd, dsbgvx, + dsbtrd, dspcon, dspev, dspevd, dspevx, dspgst, + dspgv, dspgvd, dspgvx, dsprfs, dspsv, dspsvx, dsptrd, + dsptrf, dsptri, dsptrs, dstegr, dstein, dstev, dstevd, dstevr, + dstevx, + dsycon, dsyev, dsyevd, dsyevr, + dsyevx, dsygs2, dsygst, dsygv, dsygvd, dsygvx, dsyrfs, + dsysv, dsysvx, + dsytd2, dsytf2, dsytrd, dsytrf, dsytri, dsytri2, dsytri2x, + dsyswapr, dsytrs, dsytrs2, dsyconv, + dtbcon, dtbrfs, dtbtrs, dtgevc, dtgex2, dtgexc, dtgsen, + dtgsja, dtgsna, dtgsy2, dtgsyl, dtpcon, dtprfs, dtptri, + dtptrs, + dtrcon, dtrevc, dtrexc, dtrrfs, dtrsen, dtrsna, dtrsyl, + dtrtrs, dtzrzf, dstemr, + dsgesv, dsposv, dlag2s, slag2d, dlat2s, + dlansf, dpftrf, dpftri, dpftrs, dsfrk, dtfsm, dtftri, dtfttp, + dtfttr, dtpttf, dtpttr, dtrttf, dtrttp, + dgejsv, dgesvj, dgsvj0, dgsvj1, + dgeequb, dsyequb, dpoequb, dgbequb, + dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, + dorbdb5, dorbdb6, dorcsd, dorcsd2by1, + dgeqrt, dgeqrt2, dgeqrt3, dgemqrt, + dtpqrt, dtpqrt2, dtpmqrt, dtprfb, +); +@lapackobjs2z = ( + # ZLASRC -- Double precision complex LAPACK routines + # already provided by @blasobjs: + # already provided by @lapackobjs: + # zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri, + # ztrti2, ztrtri + zbdsqr, zgbbrd, zgbcon, zgbequ, zgbrfs, zgbsv, zgbsvx, + zgbtf2, zgbtrf, zgbtrs, zgebak, zgebal, zgebd2, zgebrd, + zgecon, zgeequ, zgees, zgeesx, zgeev, zgeevx, + zgehd2, zgehrd, zgelq2, zgelqf, + zgels, zgelsd, zgelss, zgelsy, zgeql2, zgeqlf, zgeqp3, + zgeqr2, zgeqr2p, zgeqrf, zgeqrfp, zgerfs, zgerq2, zgerqf, + zgesc2, zgesdd, zgesvd, zgesvx, zgetc2, + zgetri, + zggbak, zggbal, zgges, zggesx, zggev, zggevx, zggglm, + zgghrd, zgglse, zggqrf, zggrqf, + zgtcon, zgtrfs, zgtsv, zgtsvx, zgttrf, zgttrs, zgtts2, zhbev, + zhbevd, zhbevx, zhbgst, zhbgv, zhbgvd, zhbgvx, zhbtrd, + zhecon, zheev, zheevd, zheevr, zheevx, zhegs2, zhegst, + zhegv, zhegvd, zhegvx, zherfs, zhesv, zhesvx, zhetd2, + zhetf2, zhetrd, + zhetrf, zhetri, zhetri2, zhetri2x, zheswapr, + zhetrs, zhetrs2, zhgeqz, zhpcon, zhpev, zhpevd, + zhpevx, zhpgst, zhpgv, zhpgvd, zhpgvx, zhprfs, zhpsv, + zhpsvx, + zhptrd, zhptrf, zhptri, zhptrs, zhsein, zhseqr, zlabrd, + zlacgv, zlacon, zlacn2, zlacp2, zlacpy, zlacrm, zlacrt, zladiv, + zlaed0, zlaed7, zlaed8, + zlaein, zlaesy, zlaev2, zlags2, zlagtm, + zlahef, zlahqr, + zlahr2, zlaic1, zlals0, zlalsa, zlalsd, zlangb, zlange, + zlangt, zlanhb, + zlanhe, + zlanhp, zlanhs, zlanht, zlansb, zlansp, zlansy, zlantb, + zlantp, zlantr, zlapll, zlapmt, zlaqgb, zlaqge, + zlaqhb, zlaqhe, zlaqhp, zlaqp2, zlaqps, zlaqsb, + zlaqr0, zlaqr1, zlaqr2, zlaqr3, zlaqr4, zlaqr5, + zlaqsp, zlaqsy, zlar1v, zlar2v, ilazlr, ilazlc, + zlarcm, zlarf, zlarfb, + zlarfg, zlarft, zlarfgp, + zlarfx, zlargv, zlarnv, zlarrv, zlartg, zlartv, + zlarz, zlarzb, zlarzt, zlascl, zlaset, zlasr, + zlassq, zlasyf, + zlatbs, zlatdf, zlatps, zlatrd, zlatrs, zlatrz, + zpbcon, zpbequ, zpbrfs, zpbstf, zpbsv, + zpbsvx, zpbtf2, zpbtrf, zpbtrs, zpocon, zpoequ, zporfs, + zposv, zposvx, zpotrs, zpstrf, zpstf2, + zppcon, zppequ, zpprfs, zppsv, zppsvx, zpptrf, zpptri, zpptrs, + zptcon, zpteqr, zptrfs, zptsv, zptsvx, zpttrf, zpttrs, zptts2, + zrot, zspcon, zspmv, zspr, zsprfs, zspsv, + zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc, + zstegr, zstein, zsteqr, + zsycon, + zsymv, + zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x, + zsyswapr, zsytrs, zsytrs2, zsyconv, + ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2, + ztgexc, ztgsen, ztgsja, ztgsna, ztgsy2, ztgsyl, ztpcon, + ztprfs, ztptri, + ztptrs, ztrcon, ztrevc, ztrexc, ztrrfs, ztrsen, ztrsna, + ztrsyl, ztrtrs, ztzrzf, zung2l, + zung2r, zungbr, zunghr, zungl2, zunglq, zungql, zungqr, zungr2, + zungrq, zungtr, zunm2l, zunm2r, zunmbr, zunmhr, zunml2, + zunmlq, zunmql, zunmqr, zunmr2, zunmr3, zunmrq, zunmrz, + zunmtr, zupgtr, + zupmtr, izmax1, dzsum1, zstemr, + zcgesv, zcposv, zlag2c, clag2z, zlat2c, + zhfrk, ztfttp, zlanhf, zpftrf, zpftri, zpftrs, ztfsm, ztftri, + ztfttr, ztpttf, ztpttr, ztrttf, ztrttp, + zgeequb, zgbequb, zsyequb, zpoequb, zheequb, + zbbcsd, zlapmr, zunbdb, zunbdb1, zunbdb2, zunbdb3, zunbdb4, + zunbdb5, zunbdb6, zuncsd, zuncsd2by1, + zgeqrt, zgeqrt2, zgeqrt3, zgemqrt, + ztpqrt, ztpqrt2, ztpmqrt, ztprfb, +); + # functions added for lapack-3.6.0 + +@lapackobjs2c = ( @lapackobjs2c, + cgejsv, + cgesvdx, + cgesvj, + cgetrf2, + cgges3, + cggev3, + cgghd3, + cggsvd3, + cggsvp3, + cgsvj0, + cgsvj1, + clagge, + claghe, + clagsy, + clahilb, + clakf2, + clarge, + clarnd, + claror, + clarot, + clatm1, + clatm2, + clatm3, + clatm5, + clatm6, + clatme, + clatmr, + clatms, + clatmt, + cpotrf2, + csbmv, + cspr2, + csyr2, + cunm22, +); +@lapackobjs2d = (@lapackobjs2d, + dbdsvdx, + dgesvdx, + dgetrf2, + dgges3, + dggev3, + dgghd3, + dggsvd3, + dggsvp3, + dladiv2, + dlagge, + dlagsy, + dlahilb, + dlakf2, + dlaran, + dlarge, + dlarnd, + dlaror, + dlarot, + dlatm1, + dlatm2, + dlatm3, + dlatm5, + dlatm6, + dlatm7, + dlatme, + dlatmr, + dlatms, + dlatmt, + dorm22, + dpotrf2, + dsecnd, + ); + @lapackobjs2s = (@lapackobjs2s, + sbdsvdx, + second, + sgesvdx, + sgetrf2, + sgges3, + sggev3, + sgghd3, + sggsvd3, + sggsvp3, + sladiv2, + slagge, + slagsy, + slahilb, + slakf2, + slaran, + slarge, + slarnd, + slaror, + slarot, + slatm1, + slatm2, + slatm3, + slatm5, + slatm6, + slatm7, + slatme, + slatmr, + slatms, + slatmt, + sorm22, + spotrf2, + ); + @lapackobjs2z = (@lapackobjs2z, + zgejsv, + zgesvdx, + zgesvj, + zgetrf2, + zgges3, + zggev3, + zgghd3, + zggsvd3, + zggsvp3, + zgsvj0, + zgsvj1, + zlagge, + zlaghe, + zlagsy, + zlahilb, + zlakf2, + zlarge, + zlarnd, + zlaror, + zlarot, + zlatm1, + zlatm2, + zlatm3, + zlatm5, + zlatm6, + zlatme, + zlatmr, + zlatms, + zlatmt, + zpotrf2, + zsbmv, + zspr2, + zsyr2, + zunm22, +); + # functions added for lapack-3.7.0 +@lapackobjs2s = (@lapackobjs2s, + slarfy, + strevc3, + sgelqt, + sgelqt3, + sgemlqt, + sgetsls, + sgeqr, + slatsqr, + slamtsqr, + sgemqr, + sgelq, + slaswlq, + slamswlq, + sgemlq, + stplqt, + stplqt2, + stpmlqt, + ); + @lapackobjs2d = (@lapackobjs2d, + dlarfy, + dsyconvf, + dtrevc3, + dgelqt, + dgelqt3, + dgemlqt, + dgetsls, + dgeqr, + dlatsqr, + dlamtsqr, + dgemqr, + dgelq, + dlaswlq, + dlamswlq, + dgemlq, + dtplqt, + dtplqt2, + dtpmlqt, + ); + @lapackobjs2c = (@lapackobjs2c, + clarfy, + csyconvf, + ctrevc3, + cgelqt, + cgelqt3, + cgemlqt, + cgetsls, + cgeqr, + clatsqr, + clamtsqr, + cgemqr, + cgelq, + claswlq, + clamswlq, + cgemlq, + ctplqt, + ctplqt2, + ctpmlqt, + ); + @lapackobjs2z = (@lapackobjs2z, + zlarfy, + zsyconvf, + ztrevc3, + ztplqt, + ztplqt2, + ztpmlqt, + zgelqt, + zgelqt3, + zgemlqt, + zgetsls, + zgeqr, + zlatsqr, + zlamtsqr, + zgemqr, + zgelq, + zlaswlq, + zlamswlq, + zgemlq, + ); + @lapackobjs2s = (@lapackobjs2s, + sladiv1); + @lapackobjs2d = (@lapackobjs2d, + dladiv1); + @lapackobjs = (@lapackobjs, + iparam2stage, + # functions added for lapack-3.8.0 + ilaenv2stage, + ); + # functions added for lapack-3.9.0 +@lapackobjs2c = (@lapackobjs2c, + cgesvdq, + cungtsqr + ); +@lapackobjs2d = (@lapackobjs2d, + dcombssq, + dgesvdq, + dorgtsqr, + ); +@lapackobjs2s = (@lapackobjs2s, + scombssq, + sgesvdq, + sorgtsqr, + ); +@lapackobjs2z = (@lapackobjs2z, + zgesvdq, + zungtsqr +); + #functions added for lapack-3.10 +@lapackobjs2c = (@lapackobjs2c, + cgetsqrhrt, + cungtsqr_row + ); +@lapackobjs2d = (@lapackobjs2d, + dgetsqrhrt, + dorgtsqr_row + ); +@lapackobjs2s = (@lapackobjs2s, + sgetsqrhrt, + sorgtsqr_row + ); +@lapackobjs2z = (@lapackobjs2z, + zgetsqrhrt, + zungtsqr_row + ); + +@lapack_extendedprecision_objs = ( + zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, + dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx, +); + +@lapack_deprecated_objsc = ( + cgegs, cggsvd, + cgegv, cggsvp, + cgelsx, clahrd, + cgeqpf, clatzm, + ctzrqf, + ); +@lapack_deprecated_objsd = ( + dgegs, dgeqpf, + dgegv, dggsvd, + dgelsx, dggsvp, + dlahrd, + dlatzm, dtzrqf); + +@lapack_deprecated_objss = ( + sgelsx, + sgegs, + sgegv, + sgeqpf, + sggsvd, + sggsvp, + slahrd, + slatzm, + stzrqf + ); + +@lapack_deprecated_objsz = ( + zgegs, + zgegv, + zgelsx, + zgeqpf, + zggsvd, + zggsvp, + zlahrd, + zlatzm, + ztzrqf + ); + +@lapacke_deprecated_objsc = ( + LAPACKE_cggsvp, + LAPACKE_cggsvp_work, + LAPACKE_cggsvd, + LAPACKE_cggsvd_work, + LAPACKE_cgeqpf, + LAPACKE_cgeqpf_work, +); +@lapacke_deprecated_objsd = ( + LAPACKE_dggsvp, + LAPACKE_dggsvp_work, + LAPACKE_dggsvd, + LAPACKE_dggsvd_work, + LAPACKE_dgeqpf, + LAPACKE_dgeqpf_work, +); +@lapacke_deprecated_objss = ( + LAPACKE_sggsvp, + LAPACKE_sggsvp_work, + LAPACKE_sggsvd, + LAPACKE_sggsvd_work, + LAPACKE_sgeqpf, + LAPACKE_sgeqpf_work, +); +@lapacke_deprecated_objsz = ( + LAPACKE_zggsvp, + LAPACKE_zggsvp_work, + LAPACKE_zggsvd, + LAPACKE_zggsvd_work, + LAPACKE_zgeqpf, + LAPACKE_zgeqpf_work, +); + + +@lapackeobjs = ( + # LAPACK C interface routines. + # + # This list is prepared in a similar manner to @lapackobjs2, however the + # functions all begin with an uppercase prefix (with the exception of the + # make_complex_* routines). + # + # The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not + # exported since the respective LAPACK routines are not built by default. + + # @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` + LAPACKE_lsame, + LAPACKE_ilaver, + LAPACKE_xerbla, + lapack_make_complex_float, + lapack_make_complex_double, + LAPACKE_get_nancheck, + LAPACKE_set_nancheck, +); +@lapackeobjsc = ( + LAPACKE_cgb_nancheck, + LAPACKE_cgb_trans, + LAPACKE_cge_nancheck, + LAPACKE_cge_trans, + LAPACKE_cgg_nancheck, + LAPACKE_cgg_trans, + LAPACKE_cgt_nancheck, + LAPACKE_chb_nancheck, + LAPACKE_chb_trans, + LAPACKE_che_nancheck, + LAPACKE_che_trans, + LAPACKE_chp_nancheck, + LAPACKE_chp_trans, + LAPACKE_chs_nancheck, + LAPACKE_chs_trans, + LAPACKE_c_nancheck, + LAPACKE_cpb_nancheck, + LAPACKE_cpb_trans, + LAPACKE_cpf_nancheck, + LAPACKE_cpf_trans, + LAPACKE_cpo_nancheck, + LAPACKE_cpo_trans, + LAPACKE_cpp_nancheck, + LAPACKE_cpp_trans, + LAPACKE_cpt_nancheck, + LAPACKE_csp_nancheck, + LAPACKE_csp_trans, + LAPACKE_cst_nancheck, + LAPACKE_csy_nancheck, + LAPACKE_csy_trans, + LAPACKE_ctb_nancheck, + LAPACKE_ctb_trans, + LAPACKE_ctf_nancheck, + LAPACKE_ctf_trans, + LAPACKE_ctp_nancheck, + LAPACKE_ctp_trans, + LAPACKE_ctr_nancheck, + LAPACKE_ctr_trans, + LAPACKE_cbbcsd, + LAPACKE_cbbcsd_work, + LAPACKE_cbdsqr, + LAPACKE_cbdsqr_work, + LAPACKE_cgbbrd, + LAPACKE_cgbbrd_work, + LAPACKE_cgbcon, + LAPACKE_cgbcon_work, + LAPACKE_cgbequ, + LAPACKE_cgbequ_work, + LAPACKE_cgbequb, + LAPACKE_cgbequb_work, + LAPACKE_cgbrfs, + LAPACKE_cgbrfs_work, + LAPACKE_cgbsv, + LAPACKE_cgbsv_work, + LAPACKE_cgbsvx, + LAPACKE_cgbsvx_work, + LAPACKE_cgbtrf, + LAPACKE_cgbtrf_work, + LAPACKE_cgbtrs, + LAPACKE_cgbtrs_work, + LAPACKE_cgebak, + LAPACKE_cgebak_work, + LAPACKE_cgebal, + LAPACKE_cgebal_work, + LAPACKE_cgebrd, + LAPACKE_cgebrd_work, + LAPACKE_cgecon, + LAPACKE_cgecon_work, + LAPACKE_cgeequ, + LAPACKE_cgeequ_work, + LAPACKE_cgeequb, + LAPACKE_cgeequb_work, + LAPACKE_cgees, + LAPACKE_cgees_work, + LAPACKE_cgeesx, + LAPACKE_cgeesx_work, + LAPACKE_cgeev, + LAPACKE_cgeev_work, + LAPACKE_cgeevx, + LAPACKE_cgeevx_work, + LAPACKE_cgehrd, + LAPACKE_cgehrd_work, + LAPACKE_cgelq2, + LAPACKE_cgelq2_work, + LAPACKE_cgelqf, + LAPACKE_cgelqf_work, + LAPACKE_cgels, + LAPACKE_cgels_work, + LAPACKE_cgelsd, + LAPACKE_cgelsd_work, + LAPACKE_cgelss, + LAPACKE_cgelss_work, + LAPACKE_cgelsy, + LAPACKE_cgelsy_work, + LAPACKE_cgemqrt, + LAPACKE_cgemqrt_work, + LAPACKE_cgeqlf, + LAPACKE_cgeqlf_work, + LAPACKE_cgeqp3, + LAPACKE_cgeqp3_work, + LAPACKE_cgeqr2, + LAPACKE_cgeqr2_work, + LAPACKE_cgeqrf, + LAPACKE_cgeqrf_work, + LAPACKE_cgeqrfp, + LAPACKE_cgeqrfp_work, + LAPACKE_cgeqrt, + LAPACKE_cgeqrt2, + LAPACKE_cgeqrt2_work, + LAPACKE_cgeqrt3, + LAPACKE_cgeqrt3_work, + LAPACKE_cgeqrt_work, + LAPACKE_cgerfs, + LAPACKE_cgerfs_work, + LAPACKE_cgerqf, + LAPACKE_cgerqf_work, + LAPACKE_cgesdd, + LAPACKE_cgesdd_work, + LAPACKE_cgesv, + LAPACKE_cgesv_work, + LAPACKE_cgesvd, + LAPACKE_cgesvd_work, + LAPACKE_cgesvx, + LAPACKE_cgesvx_work, + LAPACKE_cgetf2, + LAPACKE_cgetf2_work, + LAPACKE_cgetrf, + LAPACKE_cgetrf_work, + LAPACKE_cgetri, + LAPACKE_cgetri_work, + LAPACKE_cgetrs, + LAPACKE_cgetrs_work, + LAPACKE_cggbak, + LAPACKE_cggbak_work, + LAPACKE_cggbal, + LAPACKE_cggbal_work, + LAPACKE_cgges, + LAPACKE_cgges_work, + LAPACKE_cggesx, + LAPACKE_cggesx_work, + LAPACKE_cggev, + LAPACKE_cggev_work, + LAPACKE_cggevx, + LAPACKE_cggevx_work, + LAPACKE_cggglm, + LAPACKE_cggglm_work, + LAPACKE_cgghrd, + LAPACKE_cgghrd_work, + LAPACKE_cgglse, + LAPACKE_cgglse_work, + LAPACKE_cggqrf, + LAPACKE_cggqrf_work, + LAPACKE_cggrqf, + LAPACKE_cggrqf_work, + LAPACKE_cgtcon, + LAPACKE_cgtcon_work, + LAPACKE_cgtrfs, + LAPACKE_cgtrfs_work, + LAPACKE_cgtsv, + LAPACKE_cgtsv_work, + LAPACKE_cgtsvx, + LAPACKE_cgtsvx_work, + LAPACKE_cgttrf, + LAPACKE_cgttrf_work, + LAPACKE_cgttrs, + LAPACKE_cgttrs_work, + LAPACKE_chbev, + LAPACKE_chbev_work, + LAPACKE_chbevd, + LAPACKE_chbevd_work, + LAPACKE_chbevx, + LAPACKE_chbevx_work, + LAPACKE_chbgst, + LAPACKE_chbgst_work, + LAPACKE_chbgv, + LAPACKE_chbgv_work, + LAPACKE_chbgvd, + LAPACKE_chbgvd_work, + LAPACKE_chbgvx, + LAPACKE_chbgvx_work, + LAPACKE_chbtrd, + LAPACKE_chbtrd_work, + LAPACKE_checon, + LAPACKE_checon_work, + LAPACKE_cheequb, + LAPACKE_cheequb_work, + LAPACKE_cheev, + LAPACKE_cheev_work, + LAPACKE_cheevd, + LAPACKE_cheevd_work, + LAPACKE_cheevr, + LAPACKE_cheevr_work, + LAPACKE_cheevx, + LAPACKE_cheevx_work, + LAPACKE_chegst, + LAPACKE_chegst_work, + LAPACKE_chegv, + LAPACKE_chegv_work, + LAPACKE_chegvd, + LAPACKE_chegvd_work, + LAPACKE_chegvx, + LAPACKE_chegvx_work, + LAPACKE_cherfs, + LAPACKE_cherfs_work, + LAPACKE_chesv, + LAPACKE_chesv_work, + LAPACKE_chesvx, + LAPACKE_chesvx_work, + LAPACKE_cheswapr, + LAPACKE_cheswapr_work, + LAPACKE_chetrd, + LAPACKE_chetrd_work, + LAPACKE_chetrf, + LAPACKE_chetrf_work, + LAPACKE_chetri, + LAPACKE_chetri2, + LAPACKE_chetri2_work, + LAPACKE_chetri2x, + LAPACKE_chetri2x_work, + LAPACKE_chetri_work, + LAPACKE_chetrs, + LAPACKE_chetrs2, + LAPACKE_chetrs2_work, + LAPACKE_chetrs_work, + LAPACKE_chfrk, + LAPACKE_chfrk_work, + LAPACKE_chgeqz, + LAPACKE_chgeqz_work, + LAPACKE_chpcon, + LAPACKE_chpcon_work, + LAPACKE_chpev, + LAPACKE_chpev_work, + LAPACKE_chpevd, + LAPACKE_chpevd_work, + LAPACKE_chpevx, + LAPACKE_chpevx_work, + LAPACKE_chpgst, + LAPACKE_chpgst_work, + LAPACKE_chpgv, + LAPACKE_chpgv_work, + LAPACKE_chpgvd, + LAPACKE_chpgvd_work, + LAPACKE_chpgvx, + LAPACKE_chpgvx_work, + LAPACKE_chprfs, + LAPACKE_chprfs_work, + LAPACKE_chpsv, + LAPACKE_chpsv_work, + LAPACKE_chpsvx, + LAPACKE_chpsvx_work, + LAPACKE_chptrd, + LAPACKE_chptrd_work, + LAPACKE_chptrf, + LAPACKE_chptrf_work, + LAPACKE_chptri, + LAPACKE_chptri_work, + LAPACKE_chptrs, + LAPACKE_chptrs_work, + LAPACKE_chsein, + LAPACKE_chsein_work, + LAPACKE_chseqr, + LAPACKE_chseqr_work, + LAPACKE_clacgv, + LAPACKE_clacgv_work, + LAPACKE_clacn2, + LAPACKE_clacn2_work, + LAPACKE_clacp2, + LAPACKE_clacp2_work, + LAPACKE_clacpy, + LAPACKE_clacpy_work, + LAPACKE_clag2z, + LAPACKE_clag2z_work, + LAPACKE_clange, + LAPACKE_clange_work, + LAPACKE_clanhe, + LAPACKE_clanhe_work, + LAPACKE_clansy, + LAPACKE_clansy_work, + LAPACKE_clantr, + LAPACKE_clantr_work, + LAPACKE_clapmr, + LAPACKE_clapmr_work, + LAPACKE_clarfb, + LAPACKE_clarfb_work, + LAPACKE_clarfg, + LAPACKE_clarfg_work, + LAPACKE_clarft, + LAPACKE_clarft_work, + LAPACKE_clarfx, + LAPACKE_clarfx_work, + LAPACKE_clarnv, + LAPACKE_clarnv_work, + LAPACKE_claset, + LAPACKE_claset_work, + LAPACKE_claswp, + LAPACKE_claswp_work, + LAPACKE_clauum, + LAPACKE_clauum_work, + LAPACKE_cpbcon, + LAPACKE_cpbcon_work, + LAPACKE_cpbequ, + LAPACKE_cpbequ_work, + LAPACKE_cpbrfs, + LAPACKE_cpbrfs_work, + LAPACKE_cpbstf, + LAPACKE_cpbstf_work, + LAPACKE_cpbsv, + LAPACKE_cpbsv_work, + LAPACKE_cpbsvx, + LAPACKE_cpbsvx_work, + LAPACKE_cpbtrf, + LAPACKE_cpbtrf_work, + LAPACKE_cpbtrs, + LAPACKE_cpbtrs_work, + LAPACKE_cpftrf, + LAPACKE_cpftrf_work, + LAPACKE_cpftri, + LAPACKE_cpftri_work, + LAPACKE_cpftrs, + LAPACKE_cpftrs_work, + LAPACKE_cpocon, + LAPACKE_cpocon_work, + LAPACKE_cpoequ, + LAPACKE_cpoequ_work, + LAPACKE_cpoequb, + LAPACKE_cpoequb_work, + LAPACKE_cporfs, + LAPACKE_cporfs_work, + LAPACKE_cposv, + LAPACKE_cposv_work, + LAPACKE_cposvx, + LAPACKE_cposvx_work, + LAPACKE_cpotrf, + LAPACKE_cpotrf_work, + LAPACKE_cpotri, + LAPACKE_cpotri_work, + LAPACKE_cpotrs, + LAPACKE_cpotrs_work, + LAPACKE_cppcon, + LAPACKE_cppcon_work, + LAPACKE_cppequ, + LAPACKE_cppequ_work, + LAPACKE_cpprfs, + LAPACKE_cpprfs_work, + LAPACKE_cppsv, + LAPACKE_cppsv_work, + LAPACKE_cppsvx, + LAPACKE_cppsvx_work, + LAPACKE_cpptrf, + LAPACKE_cpptrf_work, + LAPACKE_cpptri, + LAPACKE_cpptri_work, + LAPACKE_cpptrs, + LAPACKE_cpptrs_work, + LAPACKE_cpstrf, + LAPACKE_cpstrf_work, + LAPACKE_cptcon, + LAPACKE_cptcon_work, + LAPACKE_cpteqr, + LAPACKE_cpteqr_work, + LAPACKE_cptrfs, + LAPACKE_cptrfs_work, + LAPACKE_cptsv, + LAPACKE_cptsv_work, + LAPACKE_cptsvx, + LAPACKE_cptsvx_work, + LAPACKE_cpttrf, + LAPACKE_cpttrf_work, + LAPACKE_cpttrs, + LAPACKE_cpttrs_work, + LAPACKE_cspcon, + LAPACKE_cspcon_work, + LAPACKE_csprfs, + LAPACKE_csprfs_work, + LAPACKE_cspsv, + LAPACKE_cspsv_work, + LAPACKE_cspsvx, + LAPACKE_cspsvx_work, + LAPACKE_csptrf, + LAPACKE_csptrf_work, + LAPACKE_csptri, + LAPACKE_csptri_work, + LAPACKE_csptrs, + LAPACKE_csptrs_work, + LAPACKE_cstedc, + LAPACKE_cstedc_work, + LAPACKE_cstegr, + LAPACKE_cstegr_work, + LAPACKE_cstein, + LAPACKE_cstein_work, + LAPACKE_cstemr, + LAPACKE_cstemr_work, + LAPACKE_csteqr, + LAPACKE_csteqr_work, + LAPACKE_csycon, + LAPACKE_csycon_work, + LAPACKE_csyconv, + LAPACKE_csyconv_work, + LAPACKE_csyequb, + LAPACKE_csyequb_work, + LAPACKE_csyrfs, + LAPACKE_csyrfs_work, + LAPACKE_csysv, + LAPACKE_csysv_rook, + LAPACKE_csysv_rook_work, + LAPACKE_csysv_work, + LAPACKE_csysvx, + LAPACKE_csysvx_work, + LAPACKE_csyswapr, + LAPACKE_csyswapr_work, + LAPACKE_csytrf, + LAPACKE_csytrf_work, + LAPACKE_csytri, + LAPACKE_csytri2, + LAPACKE_csytri2_work, + LAPACKE_csytri2x, + LAPACKE_csytri2x_work, + LAPACKE_csytri_work, + LAPACKE_csytrs, + LAPACKE_csytrs2, + LAPACKE_csytrs2_work, + LAPACKE_csytrs_work, + LAPACKE_ctbcon, + LAPACKE_ctbcon_work, + LAPACKE_ctbrfs, + LAPACKE_ctbrfs_work, + LAPACKE_ctbtrs, + LAPACKE_ctbtrs_work, + LAPACKE_ctfsm, + LAPACKE_ctfsm_work, + LAPACKE_ctftri, + LAPACKE_ctftri_work, + LAPACKE_ctfttp, + LAPACKE_ctfttp_work, + LAPACKE_ctfttr, + LAPACKE_ctfttr_work, + LAPACKE_ctgevc, + LAPACKE_ctgevc_work, + LAPACKE_ctgexc, + LAPACKE_ctgexc_work, + LAPACKE_ctgsen, + LAPACKE_ctgsen_work, + LAPACKE_ctgsja, + LAPACKE_ctgsja_work, + LAPACKE_ctgsna, + LAPACKE_ctgsna_work, + LAPACKE_ctgsyl, + LAPACKE_ctgsyl_work, + LAPACKE_ctpcon, + LAPACKE_ctpcon_work, + LAPACKE_ctpmqrt, + LAPACKE_ctpmqrt_work, + LAPACKE_ctpqrt, + LAPACKE_ctpqrt2, + LAPACKE_ctpqrt2_work, + LAPACKE_ctpqrt_work, + LAPACKE_ctprfb, + LAPACKE_ctprfb_work, + LAPACKE_ctprfs, + LAPACKE_ctprfs_work, + LAPACKE_ctptri, + LAPACKE_ctptri_work, + LAPACKE_ctptrs, + LAPACKE_ctptrs_work, + LAPACKE_ctpttf, + LAPACKE_ctpttf_work, + LAPACKE_ctpttr, + LAPACKE_ctpttr_work, + LAPACKE_ctrcon, + LAPACKE_ctrcon_work, + LAPACKE_ctrevc, + LAPACKE_ctrevc_work, + LAPACKE_ctrexc, + LAPACKE_ctrexc_work, + LAPACKE_ctrrfs, + LAPACKE_ctrrfs_work, + LAPACKE_ctrsen, + LAPACKE_ctrsen_work, + LAPACKE_ctrsna, + LAPACKE_ctrsna_work, + LAPACKE_ctrsyl, + LAPACKE_ctrsyl_work, + LAPACKE_ctrtri, + LAPACKE_ctrtri_work, + LAPACKE_ctrtrs, + LAPACKE_ctrtrs_work, + LAPACKE_ctrttf, + LAPACKE_ctrttf_work, + LAPACKE_ctrttp, + LAPACKE_ctrttp_work, + LAPACKE_ctzrzf, + LAPACKE_ctzrzf_work, + LAPACKE_cunbdb, + LAPACKE_cunbdb_work, + LAPACKE_cuncsd, + LAPACKE_cuncsd_work, + LAPACKE_cungbr, + LAPACKE_cungbr_work, + LAPACKE_cunghr, + LAPACKE_cunghr_work, + LAPACKE_cunglq, + LAPACKE_cunglq_work, + LAPACKE_cungql, + LAPACKE_cungql_work, + LAPACKE_cungqr, + LAPACKE_cungqr_work, + LAPACKE_cungrq, + LAPACKE_cungrq_work, + LAPACKE_cungtr, + LAPACKE_cungtr_work, + LAPACKE_cunmbr, + LAPACKE_cunmbr_work, + LAPACKE_cunmhr, + LAPACKE_cunmhr_work, + LAPACKE_cunmlq, + LAPACKE_cunmlq_work, + LAPACKE_cunmql, + LAPACKE_cunmql_work, + LAPACKE_cunmqr, + LAPACKE_cunmqr_work, + LAPACKE_cunmrq, + LAPACKE_cunmrq_work, + LAPACKE_cunmrz, + LAPACKE_cunmrz_work, + LAPACKE_cunmtr, + LAPACKE_cunmtr_work, + LAPACKE_cupgtr, + LAPACKE_cupgtr_work, + LAPACKE_cupmtr, + LAPACKE_cupmtr_work, + LAPACKE_csyr, + LAPACKE_csyr_work, + LAPACKE_clatms, + LAPACKE_clatms_work, + LAPACKE_clagge, + LAPACKE_clagge_work, + LAPACKE_claghe, + LAPACKE_claghe_work, + LAPACKE_clagsy, + LAPACKE_clagsy_work, + LAPACKE_cgejsv, + LAPACKE_cgejsv_work, + LAPACKE_cgesvdx, + LAPACKE_cgesvdx_work, + LAPACKE_cgesvj, + LAPACKE_cgesvj_work, + LAPACKE_cgetrf2, + LAPACKE_cgetrf2_work, + LAPACKE_cgges3, + LAPACKE_cgges3_work, + LAPACKE_cggev3, + LAPACKE_cggev3_work, + LAPACKE_cgghd3, + LAPACKE_cgghd3_work, + LAPACKE_cggsvd3, + LAPACKE_cggsvd3_work, + LAPACKE_cggsvp3, + LAPACKE_cggsvp3_work, + LAPACKE_chetrf_rook, + LAPACKE_chetrf_rook_work, + LAPACKE_chetrs_rook, + LAPACKE_chetrs_rook_work, + LAPACKE_clapmt, + LAPACKE_clapmt_work, + LAPACKE_clascl, + LAPACKE_clascl_work, + LAPACKE_cpotrf2, + LAPACKE_cpotrf2_work, + LAPACKE_csytrf_rook, + LAPACKE_csytrf_rook_work, + LAPACKE_csytrs_rook, + LAPACKE_csytrs_rook_work, + LAPACKE_cuncsd2by1, + LAPACKE_cuncsd2by1_work, + LAPACKE_cgelq, + LAPACKE_cgelq_work, + LAPACKE_cgemlq, + LAPACKE_cgemlq_work, + LAPACKE_cgemqr, + LAPACKE_cgemqr_work, + LAPACKE_cgeqr, + LAPACKE_cgeqr_work, + LAPACKE_cgetsls, + LAPACKE_cgetsls_work, + LAPACKE_chbev_2stage, + LAPACKE_chbev_2stage_work, + LAPACKE_chbevd_2stage, + LAPACKE_chbevd_2stage_work, + LAPACKE_chbevx_2stage, + LAPACKE_chbevx_2stage_work, + LAPACKE_checon_3, + LAPACKE_checon_3_work, + LAPACKE_cheev_2stage, + LAPACKE_cheev_2stage_work, + LAPACKE_cheevd_2stage, + LAPACKE_cheevd_2stage_work, + LAPACKE_cheevr_2stage, + LAPACKE_cheevr_2stage_work, + LAPACKE_cheevx_2stage, + LAPACKE_cheevx_2stage_work, + LAPACKE_chegv_2stage, + LAPACKE_chegv_2stage_work, + LAPACKE_chesv_aa, + LAPACKE_chesv_aa_work, + LAPACKE_chesv_rk, + LAPACKE_chesv_rk_work, + LAPACKE_chetrf_aa, + LAPACKE_chetrf_aa_work, + LAPACKE_chetrf_rk, + LAPACKE_chetrf_rk_work, + LAPACKE_chetri_3, + LAPACKE_chetri_3_work, + LAPACKE_chetrs_aa, + LAPACKE_chetrs_aa_work, + LAPACKE_chetrs_3, + LAPACKE_chetrs_3_work, + LAPACKE_csycon_3, + LAPACKE_csycon_3_work, + LAPACKE_csysv_aa, + LAPACKE_csysv_aa_work, + LAPACKE_csysv_rk, + LAPACKE_csysv_rk_work, + LAPACKE_csytrf_aa, + LAPACKE_csytrf_aa_work, + LAPACKE_csytrf_rk, + LAPACKE_csytrf_rk_work, + LAPACKE_csytri_3, + LAPACKE_csytri_3_work, + LAPACKE_csytrs_aa, + LAPACKE_csytrs_aa_work, + LAPACKE_csytrs_3, + LAPACKE_csytrs_3_work, + LAPACKE_chesv_aa_2stage, + LAPACKE_chesv_aa_2stage_work, + LAPACKE_chetrf_aa_2stage, + LAPACKE_chetrf_aa_2stage_work, + LAPACKE_chetrs_aa_2stage, + LAPACKE_chetrs_aa_2stage_work, + LAPACKE_clacrm, + LAPACKE_clacrm_work, + LAPACKE_clarcm, + LAPACKE_clarcm_work, + LAPACKE_classq, + LAPACKE_classq_work, + LAPACKE_csysv_aa_2stage, + LAPACKE_csysv_aa_2stage_work, + LAPACKE_csytrf_aa_2stage, + LAPACKE_csytrf_aa_2stage_work, + LAPACKE_csytrs_aa_2stage, + LAPACKE_csytrs_aa_2stage_work, + LAPACKE_cgesvdq, + LAPACKE_cgesvdq_work, + LAPACKE_cgetsqrhrt, + LAPACKE_cgetsqrhrt_work, + LAPACKE_cungtsqr_row, + LAPACKE_cungtsqr_row_work + +); +@lapackeobjsd = ( + LAPACKE_dgb_nancheck, + LAPACKE_dgb_trans, + LAPACKE_dge_nancheck, + LAPACKE_dge_trans, + LAPACKE_dgg_nancheck, + LAPACKE_dgg_trans, + LAPACKE_dgt_nancheck, + LAPACKE_dhs_nancheck, + LAPACKE_dhs_trans, + LAPACKE_d_nancheck, + LAPACKE_dpb_nancheck, + LAPACKE_dpb_trans, + LAPACKE_dpf_nancheck, + LAPACKE_dpf_trans, + LAPACKE_dpo_nancheck, + LAPACKE_dpo_trans, + LAPACKE_dpp_nancheck, + LAPACKE_dpp_trans, + LAPACKE_dpt_nancheck, + LAPACKE_dsb_nancheck, + LAPACKE_dsb_trans, + LAPACKE_dsp_nancheck, + LAPACKE_dsp_trans, + LAPACKE_dst_nancheck, + LAPACKE_dsy_nancheck, + LAPACKE_dsy_trans, + LAPACKE_dtb_nancheck, + LAPACKE_dtb_trans, + LAPACKE_dtf_nancheck, + LAPACKE_dtf_trans, + LAPACKE_dtp_nancheck, + LAPACKE_dtp_trans, + LAPACKE_dtr_nancheck, + LAPACKE_dtr_trans, + LAPACKE_dbbcsd, + LAPACKE_dbbcsd_work, + LAPACKE_dbdsdc, + LAPACKE_dbdsdc_work, + LAPACKE_dbdsqr, + LAPACKE_dbdsqr_work, + LAPACKE_ddisna, + LAPACKE_ddisna_work, + LAPACKE_dgbbrd, + LAPACKE_dgbbrd_work, + LAPACKE_dgbcon, + LAPACKE_dgbcon_work, + LAPACKE_dgbequ, + LAPACKE_dgbequ_work, + LAPACKE_dgbequb, + LAPACKE_dgbequb_work, + LAPACKE_dgbrfs, + LAPACKE_dgbrfs_work, + LAPACKE_dgbsv, + LAPACKE_dgbsv_work, + LAPACKE_dgbsvx, + LAPACKE_dgbsvx_work, + LAPACKE_dgbtrf, + LAPACKE_dgbtrf_work, + LAPACKE_dgbtrs, + LAPACKE_dgbtrs_work, + LAPACKE_dgebak, + LAPACKE_dgebak_work, + LAPACKE_dgebal, + LAPACKE_dgebal_work, + LAPACKE_dgebrd, + LAPACKE_dgebrd_work, + LAPACKE_dgecon, + LAPACKE_dgecon_work, + LAPACKE_dgeequ, + LAPACKE_dgeequ_work, + LAPACKE_dgeequb, + LAPACKE_dgeequb_work, + LAPACKE_dgees, + LAPACKE_dgees_work, + LAPACKE_dgeesx, + LAPACKE_dgeesx_work, + LAPACKE_dgeev, + LAPACKE_dgeev_work, + LAPACKE_dgeevx, + LAPACKE_dgeevx_work, + LAPACKE_dgehrd, + LAPACKE_dgehrd_work, + LAPACKE_dgejsv, + LAPACKE_dgejsv_work, + LAPACKE_dgelq2, + LAPACKE_dgelq2_work, + LAPACKE_dgelqf, + LAPACKE_dgelqf_work, + LAPACKE_dgels, + LAPACKE_dgels_work, + LAPACKE_dgelsd, + LAPACKE_dgelsd_work, + LAPACKE_dgelss, + LAPACKE_dgelss_work, + LAPACKE_dgelsy, + LAPACKE_dgelsy_work, + LAPACKE_dgemqrt, + LAPACKE_dgemqrt_work, + LAPACKE_dgeqlf, + LAPACKE_dgeqlf_work, + LAPACKE_dgeqp3, + LAPACKE_dgeqp3_work, + LAPACKE_dgeqr2, + LAPACKE_dgeqr2_work, + LAPACKE_dgeqrf, + LAPACKE_dgeqrf_work, + LAPACKE_dgeqrfp, + LAPACKE_dgeqrfp_work, + LAPACKE_dgeqrt, + LAPACKE_dgeqrt2, + LAPACKE_dgeqrt2_work, + LAPACKE_dgeqrt3, + LAPACKE_dgeqrt3_work, + LAPACKE_dgeqrt_work, + LAPACKE_dgerfs, + LAPACKE_dgerfs_work, + LAPACKE_dgerqf, + LAPACKE_dgerqf_work, + LAPACKE_dgesdd, + LAPACKE_dgesdd_work, + LAPACKE_dgesv, + LAPACKE_dgesv_work, + LAPACKE_dgesvd, + LAPACKE_dgesvd_work, + LAPACKE_dgesvj, + LAPACKE_dgesvj_work, + LAPACKE_dgesvx, + LAPACKE_dgesvx_work, + LAPACKE_dgetf2, + LAPACKE_dgetf2_work, + LAPACKE_dgetrf, + LAPACKE_dgetrf_work, + LAPACKE_dgetri, + LAPACKE_dgetri_work, + LAPACKE_dgetrs, + LAPACKE_dgetrs_work, + LAPACKE_dggbak, + LAPACKE_dggbak_work, + LAPACKE_dggbal, + LAPACKE_dggbal_work, + LAPACKE_dgges, + LAPACKE_dgges_work, + LAPACKE_dggesx, + LAPACKE_dggesx_work, + LAPACKE_dggev, + LAPACKE_dggev_work, + LAPACKE_dggevx, + LAPACKE_dggevx_work, + LAPACKE_dggglm, + LAPACKE_dggglm_work, + LAPACKE_dgghrd, + LAPACKE_dgghrd_work, + LAPACKE_dgglse, + LAPACKE_dgglse_work, + LAPACKE_dggqrf, + LAPACKE_dggqrf_work, + LAPACKE_dggrqf, + LAPACKE_dggrqf_work, + LAPACKE_dgtcon, + LAPACKE_dgtcon_work, + LAPACKE_dgtrfs, + LAPACKE_dgtrfs_work, + LAPACKE_dgtsv, + LAPACKE_dgtsv_work, + LAPACKE_dgtsvx, + LAPACKE_dgtsvx_work, + LAPACKE_dgttrf, + LAPACKE_dgttrf_work, + LAPACKE_dgttrs, + LAPACKE_dgttrs_work, + LAPACKE_dhgeqz, + LAPACKE_dhgeqz_work, + LAPACKE_dhsein, + LAPACKE_dhsein_work, + LAPACKE_dhseqr, + LAPACKE_dhseqr_work, + LAPACKE_dlacn2, + LAPACKE_dlacn2_work, + LAPACKE_dlacpy, + LAPACKE_dlacpy_work, + LAPACKE_dlag2s, + LAPACKE_dlag2s_work, + LAPACKE_dlamch, + LAPACKE_dlamch_work, + LAPACKE_dlange, + LAPACKE_dlange_work, + LAPACKE_dlansy, + LAPACKE_dlansy_work, + LAPACKE_dlantr, + LAPACKE_dlantr_work, + LAPACKE_dlapmr, + LAPACKE_dlapmr_work, + LAPACKE_dlapy2, + LAPACKE_dlapy2_work, + LAPACKE_dlapy3, + LAPACKE_dlapy3_work, + LAPACKE_dlarfb, + LAPACKE_dlarfb_work, + LAPACKE_dlarfg, + LAPACKE_dlarfg_work, + LAPACKE_dlarft, + LAPACKE_dlarft_work, + LAPACKE_dlarfx, + LAPACKE_dlarfx_work, + LAPACKE_dlarnv, + LAPACKE_dlarnv_work, + LAPACKE_dlartgp, + LAPACKE_dlartgp_work, + LAPACKE_dlartgs, + LAPACKE_dlartgs_work, + LAPACKE_dlaset, + LAPACKE_dlaset_work, + LAPACKE_dlasrt, + LAPACKE_dlasrt_work, + LAPACKE_dlaswp, + LAPACKE_dlaswp_work, + LAPACKE_dlauum, + LAPACKE_dlauum_work, + LAPACKE_dopgtr, + LAPACKE_dopgtr_work, + LAPACKE_dopmtr, + LAPACKE_dopmtr_work, + LAPACKE_dorbdb, + LAPACKE_dorbdb_work, + LAPACKE_dorcsd, + LAPACKE_dorcsd_work, + LAPACKE_dorgbr, + LAPACKE_dorgbr_work, + LAPACKE_dorghr, + LAPACKE_dorghr_work, + LAPACKE_dorglq, + LAPACKE_dorglq_work, + LAPACKE_dorgql, + LAPACKE_dorgql_work, + LAPACKE_dorgqr, + LAPACKE_dorgqr_work, + LAPACKE_dorgrq, + LAPACKE_dorgrq_work, + LAPACKE_dorgtr, + LAPACKE_dorgtr_work, + LAPACKE_dormbr, + LAPACKE_dormbr_work, + LAPACKE_dormhr, + LAPACKE_dormhr_work, + LAPACKE_dormlq, + LAPACKE_dormlq_work, + LAPACKE_dormql, + LAPACKE_dormql_work, + LAPACKE_dormqr, + LAPACKE_dormqr_work, + LAPACKE_dormrq, + LAPACKE_dormrq_work, + LAPACKE_dormrz, + LAPACKE_dormrz_work, + LAPACKE_dormtr, + LAPACKE_dormtr_work, + LAPACKE_dpbcon, + LAPACKE_dpbcon_work, + LAPACKE_dpbequ, + LAPACKE_dpbequ_work, + LAPACKE_dpbrfs, + LAPACKE_dpbrfs_work, + LAPACKE_dpbstf, + LAPACKE_dpbstf_work, + LAPACKE_dpbsv, + LAPACKE_dpbsv_work, + LAPACKE_dpbsvx, + LAPACKE_dpbsvx_work, + LAPACKE_dpbtrf, + LAPACKE_dpbtrf_work, + LAPACKE_dpbtrs, + LAPACKE_dpbtrs_work, + LAPACKE_dpftrf, + LAPACKE_dpftrf_work, + LAPACKE_dpftri, + LAPACKE_dpftri_work, + LAPACKE_dpftrs, + LAPACKE_dpftrs_work, + LAPACKE_dpocon, + LAPACKE_dpocon_work, + LAPACKE_dpoequ, + LAPACKE_dpoequ_work, + LAPACKE_dpoequb, + LAPACKE_dpoequb_work, + LAPACKE_dporfs, + LAPACKE_dporfs_work, + LAPACKE_dposv, + LAPACKE_dposv_work, + LAPACKE_dposvx, + LAPACKE_dposvx_work, + LAPACKE_dpotrf, + LAPACKE_dpotrf_work, + LAPACKE_dpotri, + LAPACKE_dpotri_work, + LAPACKE_dpotrs, + LAPACKE_dpotrs_work, + LAPACKE_dppcon, + LAPACKE_dppcon_work, + LAPACKE_dppequ, + LAPACKE_dppequ_work, + LAPACKE_dpprfs, + LAPACKE_dpprfs_work, + LAPACKE_dppsv, + LAPACKE_dppsv_work, + LAPACKE_dppsvx, + LAPACKE_dppsvx_work, + LAPACKE_dpptrf, + LAPACKE_dpptrf_work, + LAPACKE_dpptri, + LAPACKE_dpptri_work, + LAPACKE_dpptrs, + LAPACKE_dpptrs_work, + LAPACKE_dpstrf, + LAPACKE_dpstrf_work, + LAPACKE_dptcon, + LAPACKE_dptcon_work, + LAPACKE_dpteqr, + LAPACKE_dpteqr_work, + LAPACKE_dptrfs, + LAPACKE_dptrfs_work, + LAPACKE_dptsv, + LAPACKE_dptsv_work, + LAPACKE_dptsvx, + LAPACKE_dptsvx_work, + LAPACKE_dpttrf, + LAPACKE_dpttrf_work, + LAPACKE_dpttrs, + LAPACKE_dpttrs_work, + LAPACKE_dsbev, + LAPACKE_dsbev_work, + LAPACKE_dsbevd, + LAPACKE_dsbevd_work, + LAPACKE_dsbevx, + LAPACKE_dsbevx_work, + LAPACKE_dsbgst, + LAPACKE_dsbgst_work, + LAPACKE_dsbgv, + LAPACKE_dsbgv_work, + LAPACKE_dsbgvd, + LAPACKE_dsbgvd_work, + LAPACKE_dsbgvx, + LAPACKE_dsbgvx_work, + LAPACKE_dsbtrd, + LAPACKE_dsbtrd_work, + LAPACKE_dsfrk, + LAPACKE_dsfrk_work, + LAPACKE_dsgesv, + LAPACKE_dsgesv_work, + LAPACKE_dspcon, + LAPACKE_dspcon_work, + LAPACKE_dspev, + LAPACKE_dspev_work, + LAPACKE_dspevd, + LAPACKE_dspevd_work, + LAPACKE_dspevx, + LAPACKE_dspevx_work, + LAPACKE_dspgst, + LAPACKE_dspgst_work, + LAPACKE_dspgv, + LAPACKE_dspgv_work, + LAPACKE_dspgvd, + LAPACKE_dspgvd_work, + LAPACKE_dspgvx, + LAPACKE_dspgvx_work, + LAPACKE_dsposv, + LAPACKE_dsposv_work, + LAPACKE_dsprfs, + LAPACKE_dsprfs_work, + LAPACKE_dspsv, + LAPACKE_dspsv_work, + LAPACKE_dspsvx, + LAPACKE_dspsvx_work, + LAPACKE_dsptrd, + LAPACKE_dsptrd_work, + LAPACKE_dsptrf, + LAPACKE_dsptrf_work, + LAPACKE_dsptri, + LAPACKE_dsptri_work, + LAPACKE_dsptrs, + LAPACKE_dsptrs_work, + LAPACKE_dstebz, + LAPACKE_dstebz_work, + LAPACKE_dstedc, + LAPACKE_dstedc_work, + LAPACKE_dstegr, + LAPACKE_dstegr_work, + LAPACKE_dstein, + LAPACKE_dstein_work, + LAPACKE_dstemr, + LAPACKE_dstemr_work, + LAPACKE_dsteqr, + LAPACKE_dsteqr_work, + LAPACKE_dsterf, + LAPACKE_dsterf_work, + LAPACKE_dstev, + LAPACKE_dstev_work, + LAPACKE_dstevd, + LAPACKE_dstevd_work, + LAPACKE_dstevr, + LAPACKE_dstevr_work, + LAPACKE_dstevx, + LAPACKE_dstevx_work, + LAPACKE_dsycon, + LAPACKE_dsycon_work, + LAPACKE_dsyconv, + LAPACKE_dsyconv_work, + LAPACKE_dsyequb, + LAPACKE_dsyequb_work, + LAPACKE_dsyev, + LAPACKE_dsyev_work, + LAPACKE_dsyevd, + LAPACKE_dsyevd_work, + LAPACKE_dsyevr, + LAPACKE_dsyevr_work, + LAPACKE_dsyevx, + LAPACKE_dsyevx_work, + LAPACKE_dsygst, + LAPACKE_dsygst_work, + LAPACKE_dsygv, + LAPACKE_dsygv_work, + LAPACKE_dsygvd, + LAPACKE_dsygvd_work, + LAPACKE_dsygvx, + LAPACKE_dsygvx_work, + LAPACKE_dsyrfs, + LAPACKE_dsyrfs_work, + LAPACKE_dsysv, + LAPACKE_dsysv_rook, + LAPACKE_dsysv_rook_work, + LAPACKE_dsysv_work, + LAPACKE_dsysvx, + LAPACKE_dsysvx_work, + LAPACKE_dsyswapr, + LAPACKE_dsyswapr_work, + LAPACKE_dsytrd, + LAPACKE_dsytrd_work, + LAPACKE_dsytrf, + LAPACKE_dsytrf_work, + LAPACKE_dsytri, + LAPACKE_dsytri2, + LAPACKE_dsytri2_work, + LAPACKE_dsytri2x, + LAPACKE_dsytri2x_work, + LAPACKE_dsytri_work, + LAPACKE_dsytrs, + LAPACKE_dsytrs2, + LAPACKE_dsytrs2_work, + LAPACKE_dsytrs_work, + LAPACKE_dtbcon, + LAPACKE_dtbcon_work, + LAPACKE_dtbrfs, + LAPACKE_dtbrfs_work, + LAPACKE_dtbtrs, + LAPACKE_dtbtrs_work, + LAPACKE_dtfsm, + LAPACKE_dtfsm_work, + LAPACKE_dtftri, + LAPACKE_dtftri_work, + LAPACKE_dtfttp, + LAPACKE_dtfttp_work, + LAPACKE_dtfttr, + LAPACKE_dtfttr_work, + LAPACKE_dtgevc, + LAPACKE_dtgevc_work, + LAPACKE_dtgexc, + LAPACKE_dtgexc_work, + LAPACKE_dtgsen, + LAPACKE_dtgsen_work, + LAPACKE_dtgsja, + LAPACKE_dtgsja_work, + LAPACKE_dtgsna, + LAPACKE_dtgsna_work, + LAPACKE_dtgsyl, + LAPACKE_dtgsyl_work, + LAPACKE_dtpcon, + LAPACKE_dtpcon_work, + LAPACKE_dtpmqrt, + LAPACKE_dtpmqrt_work, + LAPACKE_dtpqrt, + LAPACKE_dtpqrt2, + LAPACKE_dtpqrt2_work, + LAPACKE_dtpqrt_work, + LAPACKE_dtprfb, + LAPACKE_dtprfb_work, + LAPACKE_dtprfs, + LAPACKE_dtprfs_work, + LAPACKE_dtptri, + LAPACKE_dtptri_work, + LAPACKE_dtptrs, + LAPACKE_dtptrs_work, + LAPACKE_dtpttf, + LAPACKE_dtpttf_work, + LAPACKE_dtpttr, + LAPACKE_dtpttr_work, + LAPACKE_dtrcon, + LAPACKE_dtrcon_work, + LAPACKE_dtrevc, + LAPACKE_dtrevc_work, + LAPACKE_dtrexc, + LAPACKE_dtrexc_work, + LAPACKE_dtrrfs, + LAPACKE_dtrrfs_work, + LAPACKE_dtrsen, + LAPACKE_dtrsen_work, + LAPACKE_dtrsna, + LAPACKE_dtrsna_work, + LAPACKE_dtrsyl, + LAPACKE_dtrsyl_work, + LAPACKE_dtrtri, + LAPACKE_dtrtri_work, + LAPACKE_dtrtrs, + LAPACKE_dtrtrs_work, + LAPACKE_dtrttf, + LAPACKE_dtrttf_work, + LAPACKE_dtrttp, + LAPACKE_dtrttp_work, + LAPACKE_dtzrzf, + LAPACKE_dtzrzf_work, + LAPACKE_dlatms, + LAPACKE_dlatms_work, + LAPACKE_dlagge, + LAPACKE_dlagge_work, + LAPACKE_dlagsy, + LAPACKE_dlagsy_work, + LAPACKE_dbdsvdx, + LAPACKE_dbdsvdx_work, + LAPACKE_dgesvdx, + LAPACKE_dgesvdx_work, + LAPACKE_dgetrf2, + LAPACKE_dgetrf2_work, + LAPACKE_dgges3, + LAPACKE_dgges3_work, + LAPACKE_dggev3, + LAPACKE_dggev3_work, + LAPACKE_dgghd3, + LAPACKE_dgghd3_work, + LAPACKE_dggsvd3, + LAPACKE_dggsvd3_work, + LAPACKE_dggsvp3, + LAPACKE_dggsvp3_work, + LAPACKE_dlapmt, + LAPACKE_dlapmt_work, + LAPACKE_dlascl, + LAPACKE_dlascl_work, + LAPACKE_dorcsd2by1, + LAPACKE_dorcsd2by1_work, + LAPACKE_dpotrf2, + LAPACKE_dpotrf2_work, + LAPACKE_dsytrf_rook, + LAPACKE_dsytrf_rook_work, + LAPACKE_dsytrs_rook, + LAPACKE_dsytrs_rook_work, + LAPACKE_dgelq, + LAPACKE_dgelq_work, + LAPACKE_dgemlq, + LAPACKE_dgemlq_work, + LAPACKE_dgemqr, + LAPACKE_dgemqr_work, + LAPACKE_dgeqr, + LAPACKE_dgeqr_work, + LAPACKE_dgetsls, + LAPACKE_dgetsls_work, + LAPACKE_dsbev_2stage, + LAPACKE_dsbev_2stage_work, + LAPACKE_dsbevd_2stage, + LAPACKE_dsbevd_2stage_work, + LAPACKE_dsbevx_2stage, + LAPACKE_dsbevx_2stage_work, + LAPACKE_dsycon_3, + LAPACKE_dsycon_3_work, + LAPACKE_dsyev_2stage, + LAPACKE_dsyev_2stage_work, + LAPACKE_dsyevd_2stage, + LAPACKE_dsyevd_2stage_work, + LAPACKE_dsyevr_2stage, + LAPACKE_dsyevr_2stage_work, + LAPACKE_dsyevx_2stage, + LAPACKE_dsyevx_2stage_work, + LAPACKE_dsygv_2stage, + LAPACKE_dsygv_2stage_work, + LAPACKE_dsysv_aa, + LAPACKE_dsysv_aa_work, + LAPACKE_dsysv_rk, + LAPACKE_dsysv_rk_work, + LAPACKE_dsytrf_aa, + LAPACKE_dsytrf_aa_work, + LAPACKE_dsytrf_rk, + LAPACKE_dsytrf_rk_work, + LAPACKE_dsytri_3, + LAPACKE_dsytri_3_work, + LAPACKE_dsytrs_aa, + LAPACKE_dsytrs_aa_work, + LAPACKE_dsytrs_3, + LAPACKE_dsytrs_3_work, + LAPACKE_dlassq, + LAPACKE_dlassq_work, + LAPACKE_dsysv_aa_2stage, + LAPACKE_dsysv_aa_2stage_work, + LAPACKE_dsytrf_aa_2stage, + LAPACKE_dsytrf_aa_2stage_work, + LAPACKE_dsytrs_aa_2stage, + LAPACKE_dsytrs_aa_2stage_work, + LAPACKE_dgesvdq, + LAPACKE_dgesvdq_work, + LAPACKE_slag2d, + LAPACKE_slag2d_work, + LAPACKE_dgetsqrhrt, + LAPACKE_dgetsqrhrt_work, + LAPACKE_dorgtsqr_row, + LAPACKE_dorgtsqr_row_work + +); +@lapackeobjss = ( + LAPACKE_sgb_nancheck, + LAPACKE_sgb_trans, + LAPACKE_sge_nancheck, + LAPACKE_sge_trans, + LAPACKE_sgg_nancheck, + LAPACKE_sgg_trans, + LAPACKE_sgt_nancheck, + LAPACKE_shs_nancheck, + LAPACKE_shs_trans, + LAPACKE_s_nancheck, + LAPACKE_spb_nancheck, + LAPACKE_spb_trans, + LAPACKE_spf_nancheck, + LAPACKE_spf_trans, + LAPACKE_spo_nancheck, + LAPACKE_spo_trans, + LAPACKE_spp_nancheck, + LAPACKE_spp_trans, + LAPACKE_spt_nancheck, + LAPACKE_ssb_nancheck, + LAPACKE_ssb_trans, + LAPACKE_ssp_nancheck, + LAPACKE_ssp_trans, + LAPACKE_sst_nancheck, + LAPACKE_ssy_nancheck, + LAPACKE_ssy_trans, + LAPACKE_stb_nancheck, + LAPACKE_stb_trans, + LAPACKE_stf_nancheck, + LAPACKE_stf_trans, + LAPACKE_stp_nancheck, + LAPACKE_stp_trans, + LAPACKE_str_nancheck, + LAPACKE_str_trans, + LAPACKE_sbbcsd, + LAPACKE_sbbcsd_work, + LAPACKE_sbdsdc, + LAPACKE_sbdsdc_work, + LAPACKE_sbdsqr, + LAPACKE_sbdsqr_work, + LAPACKE_sdisna, + LAPACKE_sdisna_work, + LAPACKE_sgbbrd, + LAPACKE_sgbbrd_work, + LAPACKE_sgbcon, + LAPACKE_sgbcon_work, + LAPACKE_sgbequ, + LAPACKE_sgbequ_work, + LAPACKE_sgbequb, + LAPACKE_sgbequb_work, + LAPACKE_sgbrfs, + LAPACKE_sgbrfs_work, + LAPACKE_sgbsv, + LAPACKE_sgbsv_work, + LAPACKE_sgbsvx, + LAPACKE_sgbsvx_work, + LAPACKE_sgbtrf, + LAPACKE_sgbtrf_work, + LAPACKE_sgbtrs, + LAPACKE_sgbtrs_work, + LAPACKE_sgebak, + LAPACKE_sgebak_work, + LAPACKE_sgebal, + LAPACKE_sgebal_work, + LAPACKE_sgebrd, + LAPACKE_sgebrd_work, + LAPACKE_sgecon, + LAPACKE_sgecon_work, + LAPACKE_sgeequ, + LAPACKE_sgeequ_work, + LAPACKE_sgeequb, + LAPACKE_sgeequb_work, + LAPACKE_sgees, + LAPACKE_sgees_work, + LAPACKE_sgeesx, + LAPACKE_sgeesx_work, + LAPACKE_sgeev, + LAPACKE_sgeev_work, + LAPACKE_sgeevx, + LAPACKE_sgeevx_work, + LAPACKE_sgehrd, + LAPACKE_sgehrd_work, + LAPACKE_sgejsv, + LAPACKE_sgejsv_work, + LAPACKE_sgelq2, + LAPACKE_sgelq2_work, + LAPACKE_sgelqf, + LAPACKE_sgelqf_work, + LAPACKE_sgels, + LAPACKE_sgels_work, + LAPACKE_sgelsd, + LAPACKE_sgelsd_work, + LAPACKE_sgelss, + LAPACKE_sgelss_work, + LAPACKE_sgelsy, + LAPACKE_sgelsy_work, + LAPACKE_sgemqrt, + LAPACKE_sgemqrt_work, + LAPACKE_sgeqlf, + LAPACKE_sgeqlf_work, + LAPACKE_sgeqp3, + LAPACKE_sgeqp3_work, + LAPACKE_sgeqr2, + LAPACKE_sgeqr2_work, + LAPACKE_sgeqrf, + LAPACKE_sgeqrf_work, + LAPACKE_sgeqrfp, + LAPACKE_sgeqrfp_work, + LAPACKE_sgeqrt, + LAPACKE_sgeqrt2, + LAPACKE_sgeqrt2_work, + LAPACKE_sgeqrt3, + LAPACKE_sgeqrt3_work, + LAPACKE_sgeqrt_work, + LAPACKE_sgerfs, + LAPACKE_sgerfs_work, + LAPACKE_sgerqf, + LAPACKE_sgerqf_work, + LAPACKE_sgesdd, + LAPACKE_sgesdd_work, + LAPACKE_sgesv, + LAPACKE_sgesv_work, + LAPACKE_sgesvd, + LAPACKE_sgesvd_work, + LAPACKE_sgesvj, + LAPACKE_sgesvj_work, + LAPACKE_sgesvx, + LAPACKE_sgesvx_work, + LAPACKE_sgetf2, + LAPACKE_sgetf2_work, + LAPACKE_sgetrf, + LAPACKE_sgetrf_work, + LAPACKE_sgetri, + LAPACKE_sgetri_work, + LAPACKE_sgetrs, + LAPACKE_sgetrs_work, + LAPACKE_sggbak, + LAPACKE_sggbak_work, + LAPACKE_sggbal, + LAPACKE_sggbal_work, + LAPACKE_sgges, + LAPACKE_sgges_work, + LAPACKE_sggesx, + LAPACKE_sggesx_work, + LAPACKE_sggev, + LAPACKE_sggev_work, + LAPACKE_sggevx, + LAPACKE_sggevx_work, + LAPACKE_sggglm, + LAPACKE_sggglm_work, + LAPACKE_sgghrd, + LAPACKE_sgghrd_work, + LAPACKE_sgglse, + LAPACKE_sgglse_work, + LAPACKE_sggqrf, + LAPACKE_sggqrf_work, + LAPACKE_sggrqf, + LAPACKE_sggrqf_work, + LAPACKE_sgtcon, + LAPACKE_sgtcon_work, + LAPACKE_sgtrfs, + LAPACKE_sgtrfs_work, + LAPACKE_sgtsv, + LAPACKE_sgtsv_work, + LAPACKE_sgtsvx, + LAPACKE_sgtsvx_work, + LAPACKE_sgttrf, + LAPACKE_sgttrf_work, + LAPACKE_sgttrs, + LAPACKE_sgttrs_work, + LAPACKE_shgeqz, + LAPACKE_shgeqz_work, + LAPACKE_shsein, + LAPACKE_shsein_work, + LAPACKE_shseqr, + LAPACKE_shseqr_work, + LAPACKE_slacn2, + LAPACKE_slacn2_work, + LAPACKE_slacpy, + LAPACKE_slacpy_work, + LAPACKE_slamch, + LAPACKE_slamch_work, + LAPACKE_slange, + LAPACKE_slange_work, + LAPACKE_slansy, + LAPACKE_slansy_work, + LAPACKE_slantr, + LAPACKE_slantr_work, + LAPACKE_slapmr, + LAPACKE_slapmr_work, + LAPACKE_slapy2, + LAPACKE_slapy2_work, + LAPACKE_slapy3, + LAPACKE_slapy3_work, + LAPACKE_slarfb, + LAPACKE_slarfb_work, + LAPACKE_slarfg, + LAPACKE_slarfg_work, + LAPACKE_slarft, + LAPACKE_slarft_work, + LAPACKE_slarfx, + LAPACKE_slarfx_work, + LAPACKE_slarnv, + LAPACKE_slarnv_work, + LAPACKE_slartgp, + LAPACKE_slartgp_work, + LAPACKE_slartgs, + LAPACKE_slartgs_work, + LAPACKE_slaset, + LAPACKE_slaset_work, + LAPACKE_slasrt, + LAPACKE_slasrt_work, + LAPACKE_slaswp, + LAPACKE_slaswp_work, + LAPACKE_slauum, + LAPACKE_slauum_work, + LAPACKE_sopgtr, + LAPACKE_sopgtr_work, + LAPACKE_sopmtr, + LAPACKE_sopmtr_work, + LAPACKE_sorbdb, + LAPACKE_sorbdb_work, + LAPACKE_sorcsd, + LAPACKE_sorcsd_work, + LAPACKE_sorgbr, + LAPACKE_sorgbr_work, + LAPACKE_sorghr, + LAPACKE_sorghr_work, + LAPACKE_sorglq, + LAPACKE_sorglq_work, + LAPACKE_sorgql, + LAPACKE_sorgql_work, + LAPACKE_sorgqr, + LAPACKE_sorgqr_work, + LAPACKE_sorgrq, + LAPACKE_sorgrq_work, + LAPACKE_sorgtr, + LAPACKE_sorgtr_work, + LAPACKE_sormbr, + LAPACKE_sormbr_work, + LAPACKE_sormhr, + LAPACKE_sormhr_work, + LAPACKE_sormlq, + LAPACKE_sormlq_work, + LAPACKE_sormql, + LAPACKE_sormql_work, + LAPACKE_sormqr, + LAPACKE_sormqr_work, + LAPACKE_sormrq, + LAPACKE_sormrq_work, + LAPACKE_sormrz, + LAPACKE_sormrz_work, + LAPACKE_sormtr, + LAPACKE_sormtr_work, + LAPACKE_spbcon, + LAPACKE_spbcon_work, + LAPACKE_spbequ, + LAPACKE_spbequ_work, + LAPACKE_spbrfs, + LAPACKE_spbrfs_work, + LAPACKE_spbstf, + LAPACKE_spbstf_work, + LAPACKE_spbsv, + LAPACKE_spbsv_work, + LAPACKE_spbsvx, + LAPACKE_spbsvx_work, + LAPACKE_spbtrf, + LAPACKE_spbtrf_work, + LAPACKE_spbtrs, + LAPACKE_spbtrs_work, + LAPACKE_spftrf, + LAPACKE_spftrf_work, + LAPACKE_spftri, + LAPACKE_spftri_work, + LAPACKE_spftrs, + LAPACKE_spftrs_work, + LAPACKE_spocon, + LAPACKE_spocon_work, + LAPACKE_spoequ, + LAPACKE_spoequ_work, + LAPACKE_spoequb, + LAPACKE_spoequb_work, + LAPACKE_sporfs, + LAPACKE_sporfs_work, + LAPACKE_sposv, + LAPACKE_sposv_work, + LAPACKE_sposvx, + LAPACKE_sposvx_work, + LAPACKE_spotrf, + LAPACKE_spotrf_work, + LAPACKE_spotri, + LAPACKE_spotri_work, + LAPACKE_spotrs, + LAPACKE_spotrs_work, + LAPACKE_sppcon, + LAPACKE_sppcon_work, + LAPACKE_sppequ, + LAPACKE_sppequ_work, + LAPACKE_spprfs, + LAPACKE_spprfs_work, + LAPACKE_sppsv, + LAPACKE_sppsv_work, + LAPACKE_sppsvx, + LAPACKE_sppsvx_work, + LAPACKE_spptrf, + LAPACKE_spptrf_work, + LAPACKE_spptri, + LAPACKE_spptri_work, + LAPACKE_spptrs, + LAPACKE_spptrs_work, + LAPACKE_spstrf, + LAPACKE_spstrf_work, + LAPACKE_sptcon, + LAPACKE_sptcon_work, + LAPACKE_spteqr, + LAPACKE_spteqr_work, + LAPACKE_sptrfs, + LAPACKE_sptrfs_work, + LAPACKE_sptsv, + LAPACKE_sptsv_work, + LAPACKE_sptsvx, + LAPACKE_sptsvx_work, + LAPACKE_spttrf, + LAPACKE_spttrf_work, + LAPACKE_spttrs, + LAPACKE_spttrs_work, + LAPACKE_ssbev, + LAPACKE_ssbev_work, + LAPACKE_ssbevd, + LAPACKE_ssbevd_work, + LAPACKE_ssbevx, + LAPACKE_ssbevx_work, + LAPACKE_ssbgst, + LAPACKE_ssbgst_work, + LAPACKE_ssbgv, + LAPACKE_ssbgv_work, + LAPACKE_ssbgvd, + LAPACKE_ssbgvd_work, + LAPACKE_ssbgvx, + LAPACKE_ssbgvx_work, + LAPACKE_ssbtrd, + LAPACKE_ssbtrd_work, + LAPACKE_ssfrk, + LAPACKE_ssfrk_work, + LAPACKE_sspcon, + LAPACKE_sspcon_work, + LAPACKE_sspev, + LAPACKE_sspev_work, + LAPACKE_sspevd, + LAPACKE_sspevd_work, + LAPACKE_sspevx, + LAPACKE_sspevx_work, + LAPACKE_sspgst, + LAPACKE_sspgst_work, + LAPACKE_sspgv, + LAPACKE_sspgv_work, + LAPACKE_sspgvd, + LAPACKE_sspgvd_work, + LAPACKE_sspgvx, + LAPACKE_sspgvx_work, + LAPACKE_ssprfs, + LAPACKE_ssprfs_work, + LAPACKE_sspsv, + LAPACKE_sspsv_work, + LAPACKE_sspsvx, + LAPACKE_sspsvx_work, + LAPACKE_ssptrd, + LAPACKE_ssptrd_work, + LAPACKE_ssptrf, + LAPACKE_ssptrf_work, + LAPACKE_ssptri, + LAPACKE_ssptri_work, + LAPACKE_ssptrs, + LAPACKE_ssptrs_work, + LAPACKE_sstebz, + LAPACKE_sstebz_work, + LAPACKE_sstedc, + LAPACKE_sstedc_work, + LAPACKE_sstegr, + LAPACKE_sstegr_work, + LAPACKE_sstein, + LAPACKE_sstein_work, + LAPACKE_sstemr, + LAPACKE_sstemr_work, + LAPACKE_ssteqr, + LAPACKE_ssteqr_work, + LAPACKE_ssterf, + LAPACKE_ssterf_work, + LAPACKE_sstev, + LAPACKE_sstev_work, + LAPACKE_sstevd, + LAPACKE_sstevd_work, + LAPACKE_sstevr, + LAPACKE_sstevr_work, + LAPACKE_sstevx, + LAPACKE_sstevx_work, + LAPACKE_ssycon, + LAPACKE_ssycon_work, + LAPACKE_ssyconv, + LAPACKE_ssyconv_work, + LAPACKE_ssyequb, + LAPACKE_ssyequb_work, + LAPACKE_ssyev, + LAPACKE_ssyev_work, + LAPACKE_ssyevd, + LAPACKE_ssyevd_work, + LAPACKE_ssyevr, + LAPACKE_ssyevr_work, + LAPACKE_ssyevx, + LAPACKE_ssyevx_work, + LAPACKE_ssygst, + LAPACKE_ssygst_work, + LAPACKE_ssygv, + LAPACKE_ssygv_work, + LAPACKE_ssygvd, + LAPACKE_ssygvd_work, + LAPACKE_ssygvx, + LAPACKE_ssygvx_work, + LAPACKE_ssyrfs, + LAPACKE_ssyrfs_work, + LAPACKE_ssysv, + LAPACKE_ssysv_rook, + LAPACKE_ssysv_rook_work, + LAPACKE_ssysv_work, + LAPACKE_ssysvx, + LAPACKE_ssysvx_work, + LAPACKE_ssyswapr, + LAPACKE_ssyswapr_work, + LAPACKE_ssytrd, + LAPACKE_ssytrd_work, + LAPACKE_ssytrf, + LAPACKE_ssytrf_work, + LAPACKE_ssytri, + LAPACKE_ssytri2, + LAPACKE_ssytri2_work, + LAPACKE_ssytri2x, + LAPACKE_ssytri2x_work, + LAPACKE_ssytri_work, + LAPACKE_ssytrs, + LAPACKE_ssytrs2, + LAPACKE_ssytrs2_work, + LAPACKE_ssytrs_work, + LAPACKE_stbcon, + LAPACKE_stbcon_work, + LAPACKE_stbrfs, + LAPACKE_stbrfs_work, + LAPACKE_stbtrs, + LAPACKE_stbtrs_work, + LAPACKE_stfsm, + LAPACKE_stfsm_work, + LAPACKE_stftri, + LAPACKE_stftri_work, + LAPACKE_stfttp, + LAPACKE_stfttp_work, + LAPACKE_stfttr, + LAPACKE_stfttr_work, + LAPACKE_stgevc, + LAPACKE_stgevc_work, + LAPACKE_stgexc, + LAPACKE_stgexc_work, + LAPACKE_stgsen, + LAPACKE_stgsen_work, + LAPACKE_stgsja, + LAPACKE_stgsja_work, + LAPACKE_stgsna, + LAPACKE_stgsna_work, + LAPACKE_stgsyl, + LAPACKE_stgsyl_work, + LAPACKE_stpcon, + LAPACKE_stpcon_work, + LAPACKE_stpmqrt, + LAPACKE_stpmqrt_work, + LAPACKE_stpqrt2, + LAPACKE_stpqrt2_work, + LAPACKE_stprfb, + LAPACKE_stprfb_work, + LAPACKE_stprfs, + LAPACKE_stprfs_work, + LAPACKE_stptri, + LAPACKE_stptri_work, + LAPACKE_stptrs, + LAPACKE_stptrs_work, + LAPACKE_stpttf, + LAPACKE_stpttf_work, + LAPACKE_stpttr, + LAPACKE_stpttr_work, + LAPACKE_strcon, + LAPACKE_strcon_work, + LAPACKE_strevc, + LAPACKE_strevc_work, + LAPACKE_strexc, + LAPACKE_strexc_work, + LAPACKE_strrfs, + LAPACKE_strrfs_work, + LAPACKE_strsen, + LAPACKE_strsen_work, + LAPACKE_strsna, + LAPACKE_strsna_work, + LAPACKE_strsyl, + LAPACKE_strsyl_work, + LAPACKE_strtri, + LAPACKE_strtri_work, + LAPACKE_strtrs, + LAPACKE_strtrs_work, + LAPACKE_strttf, + LAPACKE_strttf_work, + LAPACKE_strttp, + LAPACKE_strttp_work, + LAPACKE_stzrzf, + LAPACKE_stzrzf_work, + LAPACKE_slatms, + LAPACKE_slatms_work, + LAPACKE_slagge, + LAPACKE_slagge_work, + LAPACKE_slagsy, + LAPACKE_slagsy_work, + LAPACKE_sbdsvdx, + LAPACKE_sbdsvdx_work, + LAPACKE_sgesvdx, + LAPACKE_sgesvdx_work, + LAPACKE_sgetrf2, + LAPACKE_sgetrf2_work, + LAPACKE_sgges3, + LAPACKE_sgges3_work, + LAPACKE_sggev3, + LAPACKE_sggev3_work, + LAPACKE_sgghd3, + LAPACKE_sgghd3_work, + LAPACKE_sggsvd3, + LAPACKE_sggsvd3_work, + LAPACKE_sggsvp3, + LAPACKE_sggsvp3_work, + LAPACKE_slapmt, + LAPACKE_slapmt_work, + LAPACKE_slascl, + LAPACKE_slascl_work, + LAPACKE_sorcsd2by1, + LAPACKE_sorcsd2by1_work, + LAPACKE_spotrf2, + LAPACKE_spotrf2_work, + LAPACKE_ssytrf_rook, + LAPACKE_ssytrf_rook_work, + LAPACKE_ssytrs_rook, + LAPACKE_ssytrs_rook_work, + LAPACKE_stpqrt, + LAPACKE_stpqrt_work, + LAPACKE_sgelq, + LAPACKE_sgelq_work, + LAPACKE_sgemlq, + LAPACKE_sgemlq_work, + LAPACKE_sgemqr, + LAPACKE_sgemqr_work, + LAPACKE_sgeqr, + LAPACKE_sgeqr_work, + LAPACKE_sgetsls, + LAPACKE_sgetsls_work, + LAPACKE_ssbev_2stage, + LAPACKE_ssbev_2stage_work, + LAPACKE_ssbevd_2stage, + LAPACKE_ssbevd_2stage_work, + LAPACKE_ssbevx_2stage, + LAPACKE_ssbevx_2stage_work, + LAPACKE_ssycon_3, + LAPACKE_ssycon_3_work, + LAPACKE_ssyev_2stage, + LAPACKE_ssyev_2stage_work, + LAPACKE_ssyevd_2stage, + LAPACKE_ssyevd_2stage_work, + LAPACKE_ssyevr_2stage, + LAPACKE_ssyevr_2stage_work, + LAPACKE_ssyevx_2stage, + LAPACKE_ssyevx_2stage_work, + LAPACKE_ssygv_2stage, + LAPACKE_ssygv_2stage_work, + LAPACKE_ssysv_aa, + LAPACKE_ssysv_aa_work, + LAPACKE_ssysv_rk, + LAPACKE_ssysv_rk_work, + LAPACKE_ssytrf_aa, + LAPACKE_ssytrf_aa_work, + LAPACKE_ssytrf_rk, + LAPACKE_ssytrf_rk_work, + LAPACKE_ssytri_3, + LAPACKE_ssytri_3_work, + LAPACKE_ssytrs_aa, + LAPACKE_ssytrs_aa_work, + LAPACKE_ssytrs_3, + LAPACKE_ssytrs_3_work, + LAPACKE_slassq, + LAPACKE_slassq_work, + LAPACKE_ssysv_aa_2stage, + LAPACKE_ssysv_aa_2stage_work, + LAPACKE_ssytrf_aa_2stage, + LAPACKE_ssytrf_aa_2stage_work, + LAPACKE_ssytrs_aa_2stage, + LAPACKE_ssytrs_aa_2stage_work, + LAPACKE_sgesvdq, + LAPACKE_sgesvdq_work, + LAPACKE_sgetsqrhrt, + LAPACKE_sgetsqrhrt_work, + LAPACKE_sorgtsqr_row, + LAPACKE_sorgtsqr_row_work + +); +@lapackeobjsz = ( + LAPACKE_zgb_nancheck, + LAPACKE_zgb_trans, + LAPACKE_zge_nancheck, + LAPACKE_zge_trans, + LAPACKE_zgg_nancheck, + LAPACKE_zgg_trans, + LAPACKE_zgt_nancheck, + LAPACKE_zhb_nancheck, + LAPACKE_zhb_trans, + LAPACKE_zhe_nancheck, + LAPACKE_zhe_trans, + LAPACKE_zhp_nancheck, + LAPACKE_zhp_trans, + LAPACKE_zhs_nancheck, + LAPACKE_zhs_trans, + LAPACKE_z_nancheck, + LAPACKE_zpb_nancheck, + LAPACKE_zpb_trans, + LAPACKE_zpf_nancheck, + LAPACKE_zpf_trans, + LAPACKE_zpo_nancheck, + LAPACKE_zpo_trans, + LAPACKE_zpp_nancheck, + LAPACKE_zpp_trans, + LAPACKE_zpt_nancheck, + LAPACKE_zsp_nancheck, + LAPACKE_zsp_trans, + LAPACKE_zst_nancheck, + LAPACKE_zsy_nancheck, + LAPACKE_zsy_trans, + LAPACKE_ztb_nancheck, + LAPACKE_ztb_trans, + LAPACKE_ztf_nancheck, + LAPACKE_ztf_trans, + LAPACKE_ztp_nancheck, + LAPACKE_ztp_trans, + LAPACKE_ztr_nancheck, + LAPACKE_ztr_trans, + LAPACKE_zbbcsd, + LAPACKE_zbbcsd_work, + LAPACKE_zbdsqr, + LAPACKE_zbdsqr_work, + LAPACKE_zcgesv, + LAPACKE_zcgesv_work, + LAPACKE_zcposv, + LAPACKE_zcposv_work, + LAPACKE_zgbbrd, + LAPACKE_zgbbrd_work, + LAPACKE_zgbcon, + LAPACKE_zgbcon_work, + LAPACKE_zgbequ, + LAPACKE_zgbequ_work, + LAPACKE_zgbequb, + LAPACKE_zgbequb_work, + LAPACKE_zgbrfs, + LAPACKE_zgbrfs_work, + LAPACKE_zgbsv, + LAPACKE_zgbsv_work, + LAPACKE_zgbsvx, + LAPACKE_zgbsvx_work, + LAPACKE_zgbtrf, + LAPACKE_zgbtrf_work, + LAPACKE_zgbtrs, + LAPACKE_zgbtrs_work, + LAPACKE_zgebak, + LAPACKE_zgebak_work, + LAPACKE_zgebal, + LAPACKE_zgebal_work, + LAPACKE_zgebrd, + LAPACKE_zgebrd_work, + LAPACKE_zgecon, + LAPACKE_zgecon_work, + LAPACKE_zgeequ, + LAPACKE_zgeequ_work, + LAPACKE_zgeequb, + LAPACKE_zgeequb_work, + LAPACKE_zgees, + LAPACKE_zgees_work, + LAPACKE_zgeesx, + LAPACKE_zgeesx_work, + LAPACKE_zgeev, + LAPACKE_zgeev_work, + LAPACKE_zgeevx, + LAPACKE_zgeevx_work, + LAPACKE_zgehrd, + LAPACKE_zgehrd_work, + LAPACKE_zgelq2, + LAPACKE_zgelq2_work, + LAPACKE_zgelqf, + LAPACKE_zgelqf_work, + LAPACKE_zgels, + LAPACKE_zgels_work, + LAPACKE_zgelsd, + LAPACKE_zgelsd_work, + LAPACKE_zgelss, + LAPACKE_zgelss_work, + LAPACKE_zgelsy, + LAPACKE_zgelsy_work, + LAPACKE_zgemqrt, + LAPACKE_zgemqrt_work, + LAPACKE_zgeqlf, + LAPACKE_zgeqlf_work, + LAPACKE_zgeqp3, + LAPACKE_zgeqp3_work, + LAPACKE_zgeqr2, + LAPACKE_zgeqr2_work, + LAPACKE_zgeqrf, + LAPACKE_zgeqrf_work, + LAPACKE_zgeqrfp, + LAPACKE_zgeqrfp_work, + LAPACKE_zgeqrt, + LAPACKE_zgeqrt2, + LAPACKE_zgeqrt2_work, + LAPACKE_zgeqrt3, + LAPACKE_zgeqrt3_work, + LAPACKE_zgeqrt_work, + LAPACKE_zgerfs, + LAPACKE_zgerfs_work, + LAPACKE_zgerqf, + LAPACKE_zgerqf_work, + LAPACKE_zgesdd, + LAPACKE_zgesdd_work, + LAPACKE_zgesv, + LAPACKE_zgesv_work, + LAPACKE_zgesvd, + LAPACKE_zgesvd_work, + LAPACKE_zgesvx, + LAPACKE_zgesvx_work, + LAPACKE_zgetf2, + LAPACKE_zgetf2_work, + LAPACKE_zgetrf, + LAPACKE_zgetrf_work, + LAPACKE_zgetri, + LAPACKE_zgetri_work, + LAPACKE_zgetrs, + LAPACKE_zgetrs_work, + LAPACKE_zggbak, + LAPACKE_zggbak_work, + LAPACKE_zggbal, + LAPACKE_zggbal_work, + LAPACKE_zgges, + LAPACKE_zgges_work, + LAPACKE_zggesx, + LAPACKE_zggesx_work, + LAPACKE_zggev, + LAPACKE_zggev_work, + LAPACKE_zggevx, + LAPACKE_zggevx_work, + LAPACKE_zggglm, + LAPACKE_zggglm_work, + LAPACKE_zgghrd, + LAPACKE_zgghrd_work, + LAPACKE_zgglse, + LAPACKE_zgglse_work, + LAPACKE_zggqrf, + LAPACKE_zggqrf_work, + LAPACKE_zggrqf, + LAPACKE_zggrqf_work, + LAPACKE_zgtcon, + LAPACKE_zgtcon_work, + LAPACKE_zgtrfs, + LAPACKE_zgtrfs_work, + LAPACKE_zgtsv, + LAPACKE_zgtsv_work, + LAPACKE_zgtsvx, + LAPACKE_zgtsvx_work, + LAPACKE_zgttrf, + LAPACKE_zgttrf_work, + LAPACKE_zgttrs, + LAPACKE_zgttrs_work, + LAPACKE_zhbev, + LAPACKE_zhbev_work, + LAPACKE_zhbevd, + LAPACKE_zhbevd_work, + LAPACKE_zhbevx, + LAPACKE_zhbevx_work, + LAPACKE_zhbgst, + LAPACKE_zhbgst_work, + LAPACKE_zhbgv, + LAPACKE_zhbgv_work, + LAPACKE_zhbgvd, + LAPACKE_zhbgvd_work, + LAPACKE_zhbgvx, + LAPACKE_zhbgvx_work, + LAPACKE_zhbtrd, + LAPACKE_zhbtrd_work, + LAPACKE_zhecon, + LAPACKE_zhecon_work, + LAPACKE_zheequb, + LAPACKE_zheequb_work, + LAPACKE_zheev, + LAPACKE_zheev_work, + LAPACKE_zheevd, + LAPACKE_zheevd_work, + LAPACKE_zheevr, + LAPACKE_zheevr_work, + LAPACKE_zheevx, + LAPACKE_zheevx_work, + LAPACKE_zhegst, + LAPACKE_zhegst_work, + LAPACKE_zhegv, + LAPACKE_zhegv_work, + LAPACKE_zhegvd, + LAPACKE_zhegvd_work, + LAPACKE_zhegvx, + LAPACKE_zhegvx_work, + LAPACKE_zherfs, + LAPACKE_zherfs_work, + LAPACKE_zhesv, + LAPACKE_zhesv_work, + LAPACKE_zhesvx, + LAPACKE_zhesvx_work, + LAPACKE_zheswapr, + LAPACKE_zheswapr_work, + LAPACKE_zhetrd, + LAPACKE_zhetrd_work, + LAPACKE_zhetrf, + LAPACKE_zhetrf_work, + LAPACKE_zhetri, + LAPACKE_zhetri2, + LAPACKE_zhetri2_work, + LAPACKE_zhetri2x, + LAPACKE_zhetri2x_work, + LAPACKE_zhetri_work, + LAPACKE_zhetrs, + LAPACKE_zhetrs2, + LAPACKE_zhetrs2_work, + LAPACKE_zhetrs_work, + LAPACKE_zhfrk, + LAPACKE_zhfrk_work, + LAPACKE_zhgeqz, + LAPACKE_zhgeqz_work, + LAPACKE_zhpcon, + LAPACKE_zhpcon_work, + LAPACKE_zhpev, + LAPACKE_zhpev_work, + LAPACKE_zhpevd, + LAPACKE_zhpevd_work, + LAPACKE_zhpevx, + LAPACKE_zhpevx_work, + LAPACKE_zhpgst, + LAPACKE_zhpgst_work, + LAPACKE_zhpgv, + LAPACKE_zhpgv_work, + LAPACKE_zhpgvd, + LAPACKE_zhpgvd_work, + LAPACKE_zhpgvx, + LAPACKE_zhpgvx_work, + LAPACKE_zhprfs, + LAPACKE_zhprfs_work, + LAPACKE_zhpsv, + LAPACKE_zhpsv_work, + LAPACKE_zhpsvx, + LAPACKE_zhpsvx_work, + LAPACKE_zhptrd, + LAPACKE_zhptrd_work, + LAPACKE_zhptrf, + LAPACKE_zhptrf_work, + LAPACKE_zhptri, + LAPACKE_zhptri_work, + LAPACKE_zhptrs, + LAPACKE_zhptrs_work, + LAPACKE_zhsein, + LAPACKE_zhsein_work, + LAPACKE_zhseqr, + LAPACKE_zhseqr_work, + LAPACKE_zlacgv, + LAPACKE_zlacgv_work, + LAPACKE_zlacn2, + LAPACKE_zlacn2_work, + LAPACKE_zlacp2, + LAPACKE_zlacp2_work, + LAPACKE_zlacpy, + LAPACKE_zlacpy_work, + LAPACKE_zlag2c, + LAPACKE_zlag2c_work, + LAPACKE_zlange, + LAPACKE_zlange_work, + LAPACKE_zlanhe, + LAPACKE_zlanhe_work, + LAPACKE_zlansy, + LAPACKE_zlansy_work, + LAPACKE_zlantr, + LAPACKE_zlantr_work, + LAPACKE_zlapmr, + LAPACKE_zlapmr_work, + LAPACKE_zlarfb, + LAPACKE_zlarfb_work, + LAPACKE_zlarfg, + LAPACKE_zlarfg_work, + LAPACKE_zlarft, + LAPACKE_zlarft_work, + LAPACKE_zlarfx, + LAPACKE_zlarfx_work, + LAPACKE_zlarnv, + LAPACKE_zlarnv_work, + LAPACKE_zlaset, + LAPACKE_zlaset_work, + LAPACKE_zlaswp, + LAPACKE_zlaswp_work, + LAPACKE_zlauum, + LAPACKE_zlauum_work, + LAPACKE_zpbcon, + LAPACKE_zpbcon_work, + LAPACKE_zpbequ, + LAPACKE_zpbequ_work, + LAPACKE_zpbrfs, + LAPACKE_zpbrfs_work, + LAPACKE_zpbstf, + LAPACKE_zpbstf_work, + LAPACKE_zpbsv, + LAPACKE_zpbsv_work, + LAPACKE_zpbsvx, + LAPACKE_zpbsvx_work, + LAPACKE_zpbtrf, + LAPACKE_zpbtrf_work, + LAPACKE_zpbtrs, + LAPACKE_zpbtrs_work, + LAPACKE_zpftrf, + LAPACKE_zpftrf_work, + LAPACKE_zpftri, + LAPACKE_zpftri_work, + LAPACKE_zpftrs, + LAPACKE_zpftrs_work, + LAPACKE_zpocon, + LAPACKE_zpocon_work, + LAPACKE_zpoequ, + LAPACKE_zpoequ_work, + LAPACKE_zpoequb, + LAPACKE_zpoequb_work, + LAPACKE_zporfs, + LAPACKE_zporfs_work, + LAPACKE_zposv, + LAPACKE_zposv_work, + LAPACKE_zposvx, + LAPACKE_zposvx_work, + LAPACKE_zpotrf, + LAPACKE_zpotrf_work, + LAPACKE_zpotri, + LAPACKE_zpotri_work, + LAPACKE_zpotrs, + LAPACKE_zpotrs_work, + LAPACKE_zppcon, + LAPACKE_zppcon_work, + LAPACKE_zppequ, + LAPACKE_zppequ_work, + LAPACKE_zpprfs, + LAPACKE_zpprfs_work, + LAPACKE_zppsv, + LAPACKE_zppsv_work, + LAPACKE_zppsvx, + LAPACKE_zppsvx_work, + LAPACKE_zpptrf, + LAPACKE_zpptrf_work, + LAPACKE_zpptri, + LAPACKE_zpptri_work, + LAPACKE_zpptrs, + LAPACKE_zpptrs_work, + LAPACKE_zpstrf, + LAPACKE_zpstrf_work, + LAPACKE_zptcon, + LAPACKE_zptcon_work, + LAPACKE_zpteqr, + LAPACKE_zpteqr_work, + LAPACKE_zptrfs, + LAPACKE_zptrfs_work, + LAPACKE_zptsv, + LAPACKE_zptsv_work, + LAPACKE_zptsvx, + LAPACKE_zptsvx_work, + LAPACKE_zpttrf, + LAPACKE_zpttrf_work, + LAPACKE_zpttrs, + LAPACKE_zpttrs_work, + LAPACKE_zspcon, + LAPACKE_zspcon_work, + LAPACKE_zsprfs, + LAPACKE_zsprfs_work, + LAPACKE_zspsv, + LAPACKE_zspsv_work, + LAPACKE_zspsvx, + LAPACKE_zspsvx_work, + LAPACKE_zsptrf, + LAPACKE_zsptrf_work, + LAPACKE_zsptri, + LAPACKE_zsptri_work, + LAPACKE_zsptrs, + LAPACKE_zsptrs_work, + LAPACKE_zstedc, + LAPACKE_zstedc_work, + LAPACKE_zstegr, + LAPACKE_zstegr_work, + LAPACKE_zstein, + LAPACKE_zstein_work, + LAPACKE_zstemr, + LAPACKE_zstemr_work, + LAPACKE_zsteqr, + LAPACKE_zsteqr_work, + LAPACKE_zsycon, + LAPACKE_zsycon_work, + LAPACKE_zsyconv, + LAPACKE_zsyconv_work, + LAPACKE_zsyequb, + LAPACKE_zsyequb_work, + LAPACKE_zsyrfs, + LAPACKE_zsyrfs_work, + LAPACKE_zsysv, + LAPACKE_zsysv_rook, + LAPACKE_zsysv_rook_work, + LAPACKE_zsysv_work, + LAPACKE_zsysvx, + LAPACKE_zsysvx_work, + LAPACKE_zsyswapr, + LAPACKE_zsyswapr_work, + LAPACKE_zsytrf, + LAPACKE_zsytrf_work, + LAPACKE_zsytri, + LAPACKE_zsytri2, + LAPACKE_zsytri2_work, + LAPACKE_zsytri2x, + LAPACKE_zsytri2x_work, + LAPACKE_zsytri_work, + LAPACKE_zsytrs, + LAPACKE_zsytrs2, + LAPACKE_zsytrs2_work, + LAPACKE_zsytrs_work, + LAPACKE_ztbcon, + LAPACKE_ztbcon_work, + LAPACKE_ztbrfs, + LAPACKE_ztbrfs_work, + LAPACKE_ztbtrs, + LAPACKE_ztbtrs_work, + LAPACKE_ztfsm, + LAPACKE_ztfsm_work, + LAPACKE_ztftri, + LAPACKE_ztftri_work, + LAPACKE_ztfttp, + LAPACKE_ztfttp_work, + LAPACKE_ztfttr, + LAPACKE_ztfttr_work, + LAPACKE_ztgevc, + LAPACKE_ztgevc_work, + LAPACKE_ztgexc, + LAPACKE_ztgexc_work, + LAPACKE_ztgsen, + LAPACKE_ztgsen_work, + LAPACKE_ztgsja, + LAPACKE_ztgsja_work, + LAPACKE_ztgsna, + LAPACKE_ztgsna_work, + LAPACKE_ztgsyl, + LAPACKE_ztgsyl_work, + LAPACKE_ztpcon, + LAPACKE_ztpcon_work, + LAPACKE_ztpmqrt, + LAPACKE_ztpmqrt_work, + LAPACKE_ztpqrt, + LAPACKE_ztpqrt2, + LAPACKE_ztpqrt2_work, + LAPACKE_ztpqrt_work, + LAPACKE_ztprfb, + LAPACKE_ztprfb_work, + LAPACKE_ztprfs, + LAPACKE_ztprfs_work, + LAPACKE_ztptri, + LAPACKE_ztptri_work, + LAPACKE_ztptrs, + LAPACKE_ztptrs_work, + LAPACKE_ztpttf, + LAPACKE_ztpttf_work, + LAPACKE_ztpttr, + LAPACKE_ztpttr_work, + LAPACKE_ztrcon, + LAPACKE_ztrcon_work, + LAPACKE_ztrevc, + LAPACKE_ztrevc_work, + LAPACKE_ztrexc, + LAPACKE_ztrexc_work, + LAPACKE_ztrrfs, + LAPACKE_ztrrfs_work, + LAPACKE_ztrsen, + LAPACKE_ztrsen_work, + LAPACKE_ztrsna, + LAPACKE_ztrsna_work, + LAPACKE_ztrsyl, + LAPACKE_ztrsyl_work, + LAPACKE_ztrtri, + LAPACKE_ztrtri_work, + LAPACKE_ztrtrs, + LAPACKE_ztrtrs_work, + LAPACKE_ztrttf, + LAPACKE_ztrttf_work, + LAPACKE_ztrttp, + LAPACKE_ztrttp_work, + LAPACKE_ztzrzf, + LAPACKE_ztzrzf_work, + LAPACKE_zunbdb, + LAPACKE_zunbdb_work, + LAPACKE_zuncsd, + LAPACKE_zuncsd_work, + LAPACKE_zungbr, + LAPACKE_zungbr_work, + LAPACKE_zunghr, + LAPACKE_zunghr_work, + LAPACKE_zunglq, + LAPACKE_zunglq_work, + LAPACKE_zungql, + LAPACKE_zungql_work, + LAPACKE_zungqr, + LAPACKE_zungqr_work, + LAPACKE_zungrq, + LAPACKE_zungrq_work, + LAPACKE_zungtr, + LAPACKE_zungtr_work, + LAPACKE_zunmbr, + LAPACKE_zunmbr_work, + LAPACKE_zunmhr, + LAPACKE_zunmhr_work, + LAPACKE_zunmlq, + LAPACKE_zunmlq_work, + LAPACKE_zunmql, + LAPACKE_zunmql_work, + LAPACKE_zunmqr, + LAPACKE_zunmqr_work, + LAPACKE_zunmrq, + LAPACKE_zunmrq_work, + LAPACKE_zunmrz, + LAPACKE_zunmrz_work, + LAPACKE_zunmtr, + LAPACKE_zunmtr_work, + LAPACKE_zupgtr, + LAPACKE_zupgtr_work, + LAPACKE_zupmtr, + LAPACKE_zupmtr_work, + LAPACKE_zsyr, + LAPACKE_zsyr_work, + LAPACKE_zgetsqrhrt, + LAPACKE_zgetsqrhrt_work, + LAPACKE_zungtsqr_row, + LAPACKE_zungtsqr_row_work + + ## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` + ## Not exported: requires LAPACKE_EXTENDED to be set and depends on the + ## corresponding LAPACK extended precision routines. + #LAPACKE_cgbrfsx, + #LAPACKE_cporfsx, + #LAPACKE_dgerfsx, + #LAPACKE_sgbrfsx, + #LAPACKE_ssyrfsx, + #LAPACKE_zherfsx, + #LAPACKE_cgbrfsx_work, + #LAPACKE_cporfsx_work, + #LAPACKE_dgerfsx_work, + #LAPACKE_sgbrfsx_work, + #LAPACKE_ssyrfsx_work, + #LAPACKE_zherfsx_work, + #LAPACKE_cgerfsx, + #LAPACKE_csyrfsx, + #LAPACKE_dporfsx, + #LAPACKE_sgerfsx, + #LAPACKE_zgbrfsx, + #LAPACKE_zporfsx, + #LAPACKE_cgerfsx_work, + #LAPACKE_csyrfsx_work, + #LAPACKE_dporfsx_work, + #LAPACKE_sgerfsx_work, + #LAPACKE_zgbrfsx_work, + #LAPACKE_zporfsx_work, + #LAPACKE_cherfsx, + #LAPACKE_dgbrfsx, + #LAPACKE_dsyrfsx, + #LAPACKE_sporfsx, + #LAPACKE_zgerfsx, + #LAPACKE_zsyrfsx, + #LAPACKE_cherfsx_work, + #LAPACKE_dgbrfsx_work, + #LAPACKE_dsyrfsx_work, + #LAPACKE_sporfsx_work, + #LAPACKE_zgerfsx_work, + #LAPACKE_zsyrfsx_work, + #LAPACKE_cgbsvxx, + #LAPACKE_cposvxx, + #LAPACKE_dgesvxx, + #LAPACKE_sgbsvxx, + #LAPACKE_ssysvxx, + #LAPACKE_zhesvxx, + #LAPACKE_cgbsvxx_work, + #LAPACKE_cposvxx_work, + #LAPACKE_dgesvxx_work, + #LAPACKE_sgbsvxx_work, + #LAPACKE_ssysvxx_work, + #LAPACKE_zhesvxx_work, + #LAPACKE_cgesvxx, + #LAPACKE_csysvxx, + #LAPACKE_dposvxx, + #LAPACKE_sgesvxx, + #LAPACKE_zgbsvxx, + #LAPACKE_zposvxx, + #LAPACKE_cgesvxx_work, + #LAPACKE_csysvxx_work, + #LAPACKE_dposvxx_work, + #LAPACKE_sgesvxx_work, + #LAPACKE_zgbsvxx_work, + #LAPACKE_zposvxx_work, + #LAPACKE_chesvxx, + #LAPACKE_dgbsvxx, + #LAPACKE_dsysvxx, + #LAPACKE_sposvxx, + #LAPACKE_zgesvxx, + #LAPACKE_zsysvxx, + #LAPACKE_chesvxx_work, + #LAPACKE_dgbsvxx_work, + #LAPACKE_dsysvxx_work, + #LAPACKE_sposvxx_work, + #LAPACKE_zgesvxx_work, + #LAPACKE_zsysvxx_work, + + ## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` + ## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg + ## (see `lapack-3.4.1/TESTING/MATGEN`). + LAPACKE_zlatms, + LAPACKE_zlatms_work, + LAPACKE_zlagge, + LAPACKE_zlagge_work, + LAPACKE_zlaghe, + LAPACKE_zlaghe_work, + LAPACKE_zlagsy, + LAPACKE_zlagsy_work, + ## new function from lapack-3.6.0 + LAPACKE_zgejsv, + LAPACKE_zgejsv_work, + LAPACKE_zgesvdx, + LAPACKE_zgesvdx_work, + LAPACKE_zgesvj, + LAPACKE_zgesvj_work, + LAPACKE_zgetrf2, + LAPACKE_zgetrf2_work, + LAPACKE_zgges3, + LAPACKE_zgges3_work, + LAPACKE_zggev3, + LAPACKE_zggev3_work, + LAPACKE_zgghd3, + LAPACKE_zgghd3_work, + LAPACKE_zggsvd3, + LAPACKE_zggsvd3_work, + LAPACKE_zggsvp3, + LAPACKE_zggsvp3_work, + LAPACKE_zhetrf_rook, + LAPACKE_zhetrf_rook_work, + LAPACKE_zhetrs_rook, + LAPACKE_zhetrs_rook_work, + LAPACKE_zlapmt, + LAPACKE_zlapmt_work, + LAPACKE_zlascl, + LAPACKE_zlascl_work, + LAPACKE_zpotrf2, + LAPACKE_zpotrf2_work, + LAPACKE_zsytrf_rook, + LAPACKE_zsytrf_rook_work, + LAPACKE_zsytrs_rook, + LAPACKE_zsytrs_rook_work, + LAPACKE_zuncsd2by1, + LAPACKE_zuncsd2by1_work, + + ## new function from lapack-3.7.0 + LAPACKE_zgelq, + LAPACKE_zgelq_work, + LAPACKE_zgemlq, + LAPACKE_zgemlq_work, + LAPACKE_zgemqr, + LAPACKE_zgemqr_work, + LAPACKE_zgeqr, + LAPACKE_zgeqr_work, + LAPACKE_zgetsls, + LAPACKE_zgetsls_work, + LAPACKE_zhbev_2stage, + LAPACKE_zhbev_2stage_work, + LAPACKE_zhbevd_2stage, + LAPACKE_zhbevd_2stage_work, + LAPACKE_zhbevx_2stage, + LAPACKE_zhbevx_2stage_work, + LAPACKE_zhecon_3, + LAPACKE_zhecon_3_work, + LAPACKE_zheev_2stage, + LAPACKE_zheev_2stage_work, + LAPACKE_zheevd_2stage, + LAPACKE_zheevd_2stage_work, + LAPACKE_zheevr_2stage, + LAPACKE_zheevr_2stage_work, + LAPACKE_zheevx_2stage, + LAPACKE_zheevx_2stage_work, + LAPACKE_zhegv_2stage, + LAPACKE_zhegv_2stage_work, + LAPACKE_zhesv_aa, + LAPACKE_zhesv_aa_work, + LAPACKE_zhesv_rk, + LAPACKE_zhesv_rk_work, + LAPACKE_zhetrf_aa, + LAPACKE_zhetrf_aa_work, + LAPACKE_zhetrf_rk, + LAPACKE_zhetrf_rk_work, + LAPACKE_zhetri_3, + LAPACKE_zhetri_3_work, + LAPACKE_zhetrs_aa, + LAPACKE_zhetrs_aa_work, + LAPACKE_zhetrs_3, + LAPACKE_zhetrs_3_work, + LAPACKE_zsycon_3, + LAPACKE_zsycon_3_work, + LAPACKE_zsysv_aa, + LAPACKE_zsysv_aa_work, + LAPACKE_zsysv_rk, + LAPACKE_zsysv_rk_work, + LAPACKE_zsytrf_aa, + LAPACKE_zsytrf_aa_work, + LAPACKE_zsytrf_rk, + LAPACKE_zsytrf_rk_work, + LAPACKE_zsytri_3, + LAPACKE_zsytri_3_work, + LAPACKE_zsytrs_aa, + LAPACKE_zsytrs_aa_work, + LAPACKE_zsytrs_3, + LAPACKE_zsytrs_3_work, + + ## new function from lapack-3.8.0 + LAPACKE_zhesv_aa_2stage, + LAPACKE_zhesv_aa_2stage_work, + LAPACKE_zhetrf_aa_2stage, + LAPACKE_zhetrf_aa_2stage_work, + LAPACKE_zhetrs_aa_2stage, + LAPACKE_zhetrs_aa_2stage_work, + LAPACKE_zlacrm, + LAPACKE_zlacrm_work, + LAPACKE_zlarcm, + LAPACKE_zlarcm_work, + LAPACKE_zlassq, + LAPACKE_zlassq_work, + LAPACKE_zsysv_aa_2stage, + LAPACKE_zsysv_aa_2stage_work, + LAPACKE_zsytrf_aa_2stage, + LAPACKE_zsytrf_aa_2stage_work, + LAPACKE_zsytrs_aa_2stage, + LAPACKE_zsytrs_aa_2stage_work, + # new functions from 3.9.0 + LAPACKE_zgesvdq, + LAPACKE_zgesvdq_work +); + +#These function may need 2 underscores. +@lapack_embeded_underscore_objs=( + xerbla_array, chla_transtype, + ); +@lapack_embeded_underscore_objs_s=( + slasyf_rook, + ssytf2_rook, ssytrf_rook, ssytrs_rook, + ssytri_rook, ssycon_rook, ssysv_rook, + slasyf_rk, ssyconvf_rook, ssytf2_rk, + ssytrf_rk, ssytrs_3, ssytri_3, + ssytri_3x, ssycon_3, ssysv_rk, + slasyf_aa, ssysv_aa, ssytrf_aa, + ssytrs_aa, ssytrd_2stage, ssytrd_sy2sb, + ssytrd_sb2st, ssb2st_kernels, ssyevd_2stage, + ssyev_2stage, ssyevx_2stage, ssyevr_2stage, + ssbev_2stage, ssbevx_2stage, ssbevd_2stage, + ssygv_2stage, + ssysv_aa_2stage, ssytrf_aa_2stage, + ssytrs_aa_2stage, + slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col, +); +@lapack_embeded_underscore_objs_c=( + chetf2_rook, chetrf_rook, chetri_rook, + chetrs_rook, checon_rook, chesv_rook, + clahef_rook, clasyf_rook, + csytf2_rook, csytrf_rook, csytrs_rook, + csytri_rook, csycon_rook, csysv_rook, + chetf2_rk, + chetrf_rk, chetri_3, chetri_3x, + chetrs_3, checon_3, chesv_rk, + chesv_aa, chetrf_aa, chetrs_aa, + clahef_aa, clahef_rk, clasyf_rk, + clasyf_aa, csytf2_rk, csytrf_rk, + csytrf_aa, csytrs_3, csytrs_aa, + csytri_3, csytri_3x, csycon_3, + csysv_rk, csysv_aa, csyconvf_rook, + chetrd_2stage, chetrd_he2hb, chetrd_hb2st, + chb2st_kernels, cheevd_2stage, cheev_2stage, + cheevx_2stage, cheevr_2stage, chbev_2stage, + chbevx_2stage, chbevd_2stage, chegv_2stage, + chesv_aa_2stage, + chetrf_aa_2stage, chetrs_aa_2stage, + csysv_aa_2stage, csytrf_aa_2stage, + csytrs_aa_2stage, + claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col, +); +@lapack_embeded_underscore_objs_d=( + dlasyf_rook, + dsytf2_rook, dsytrf_rook, dsytrs_rook, + dsytri_rook, dsycon_rook, dsysv_rook, + dlasyf_rk, dsyconvf_rook, + dsytf2_rk, dsytrf_rk, dsytrs_3, + dsytri_3, dsytri_3x, dsycon_3, + dsysv_rk, dlasyf_aa, dsysv_aa, + dsytrf_aa, dsytrs_aa, dsytrd_2stage, + dsytrd_sy2sb, dsytrd_sb2st, dsb2st_kernels, + dsyevd_2stage, dsyev_2stage, dsyevx_2stage, + dsyevr_2stage, dsbev_2stage, dsbevx_2stage, + dsbevd_2stage, dsygv_2stage, + dsysv_aa_2stage, + dsytrf_aa_2stage, dsytrs_aa_2stage, + dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col, +); +@lapack_embeded_underscore_objs_z=( + zhetf2_rook, zhetrf_rook, zhetri_rook, + zhetrs_rook, zhecon_rook, zhesv_rook, + zlahef_rook, zlasyf_rook, + zsytf2_rook, zsytrf_rook, zsytrs_rook, + zsytri_rook, zsycon_rook, zsysv_rook, + zhetf2_rk, zhetrf_rk, zhetri_3, + zhetri_3x, zhetrs_3, zhecon_3, + zhesv_rk, zhesv_aa, zhetrf_aa, + zhetrs_aa, zlahef_aa, zlahef_rk, + zlasyf_rk, zlasyf_aa, zsyconvf_rook, + zsytrs_aa, zsytf2_rk, zsytrf_rk, + zsytrf_aa, zsytrs_3, zsytri_3, + zsytri_3x, zsycon_3, zsysv_rk, + zsysv_aa, zhetrd_2stage, zhetrd_he2hb, + zhetrd_hb2st, zhb2st_kernels, zheevd_2stage, + zheev_2stage, zheevx_2stage, zheevr_2stage, + zhbev_2stage, zhbevx_2stage, zhbevd_2stage, + zhegv_2stage, + zhesv_aa_2stage, zhetrf_aa_2stage, + zhetrs_aa_2stage, zsysv_aa_2stage, + zsytrf_aa_2stage, zsytrs_aa_2stage, + zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col +); + + +use File::Spec; +use File::Basename; +my $dirname = File::Spec->catfile(dirname(dirname(File::Spec->rel2abs(__FILE__))), "lapack-netlib"); + +if ($ARGV[12] == 1) { + @blasobjs = (@blasobjs, @bfblasobjs); + @cblasobjs = (@cblasobjs, @bfcblasobjs); +} +if ($ARGV[13] == 1) { + @blasobjs = (@blasobjs, @blasobjss); + @cblasobjs = (@cblasobjs, @cblasobjss); + @lapackobjs = (@lapackobjs, @lapackobjss); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2s); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objss); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objss); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_s); + @lapackeobjs = (@lapackeobjs, @lapackeobjss); +} +if ($ARGV[14] == 1) { + @blasobjs = (@blasobjs, @blasobjsd); + @cblasobjs = (@cblasobjs, @cblasobjsd); + @lapackobjs = (@lapackobjs, @lapackobjsd); + if ($ARGV[13] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); + } + @lapackobjs2 = (@lapackobjs2, @lapackobjs2d, @lapackobjs2dz); + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsd); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsd); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_d); + @lapackeobjs = (@lapackeobjs, @lapackeobjsd); +} +if ($ARGV[15] == 1) { + @blasobjs = (@blasobjs, @blasobjsc); + @cblasobjs = (@cblasobjs, @cblasobjsc); + @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsc); + @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsc); + @lapackobjs = (@lapackobjs, @lapackobjsc); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2c, @lapackobjs2zc); + if ($ARGV[13] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); + } + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsc); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsc); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_c); + @lapackeobjs = (@lapackeobjs, @lapackeobjsc); +} +if ($ARGV[16] == 1) { + @blasobjs = (@blasobjs, @blasobjsz); + @cblasobjs = (@cblasobjs, @cblasobjsz); + @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsz); + @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsz); + @lapackobjs = (@lapackobjs, @lapackobjsz); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2z); + if ($ARGV[15] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2zc); + } + if ($ARGV[14] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2dz); + } + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsz); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsz); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_z); + @lapackeobjs = (@lapackeobjs, @lapackeobjsz); +} +if ($ARGV[8] == 1) { + #ONLY_CBLAS=1 + @underscore_objs = (@misc_underscore_objs); +} elsif ($ARGV[5] == 1) { + #NO_LAPACK=1 + @underscore_objs = (@blasobjs, @misc_underscore_objs); +} elsif (-d $dirname) { + if ($ARGV[7] == 0) { + # NEED2UNDERSCORES=0 + # Don't need 2 underscores + @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs); + } else { + # Need 2 underscores + @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs); + @need_2underscore_objs = (@lapack_embeded_underscore_objs); + }; + + if ($ARGV[11] == 1) { + #BUILD_LAPACK_DEPRECATED=1 + @underscore_objs = (@underscore_objs, @lapack_deprecated_objs); + } +} else { + @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); +} + +if ($ARGV[8] == 1) { + #ONLY_CBLAS=1 + @gemm3mobjs=(); + @exblasobjs=(); +} + +if ($ARGV[3] == 1) { + @underscore_objs = (@underscore_objs, @exblasobjs); +}; + +if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; + +if ($ARGV[4] == 0) { + @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); + if ($ARGV[1] eq "x86_64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "x86") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "ia64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "MIPS") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; +}else{ + #NO_CBLAS=1 + @no_underscore_objs = (@misc_no_underscore_objs); +} +if ($ARGV[6] == 1) { + #NO_LAPACKE=1 + @no_underscore_objs = (@no_underscore_objs); +} else { + if ($ARGV[11] == 1) { + #BUILD_LAPACK_DEPRECATED=1 + @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); + } else { + @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); + } +} + +@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); +@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); + +$bu = $ARGV[2]; + +$bu = "" if (($bu eq "0") || ($bu eq "1")); + +$symbolprefix = $ARGV[9]; + +$symbolsuffix = $ARGV[10]; + +if ($ARGV[0] eq "osx") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print "_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "aix"){ + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "objcopy") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print $objs, $bu, " ", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "objconv") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print "-nr:_", $objs, $bu, ":_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "win2k"){ + print "EXPORTS\n"; + $count = 1; + + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + foreach $objs (@need_2underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; + $count ++; + } + + #for misc_common_objs + foreach $objs (@misc_common_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + + foreach $objs (@no_underscore_objs) { + print "\t",$symbolprefix,$objs,$symbolsuffix,"=$objs"," \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "win2khpl") { + print "EXPORTS\n"; + $count = 1; + foreach $objs (@hplobjs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "microsoft"){ + @underscore_objs = (@underscore_objs, @misc_common_objs); + + print "EXPORTS\n"; + $count = 1; + foreach $objs (@underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $objs, "\_", $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, "\_", $symbolsuffix, " = $objs","_\n"; + $count ++; + } + + foreach $objs (@need_2underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "linktest") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + print "int main(void){\n"; + foreach $objs (@underscore_objs) { + print $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla"; + } + + foreach $objs (@need_2underscore_objs) { + print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; + } + + foreach $objs (@no_underscore_objs) { + print $symbolprefix, $objs, $symbolsuffix, "();\n"; + } + + print "return 0;}\n"; + exit(0); +} diff --git a/lapack-netlib/INSTALL/Makefile b/lapack-netlib/INSTALL/Makefile index 1c86bd77d1..dc76a667a7 100644 --- a/lapack-netlib/INSTALL/Makefile +++ b/lapack-netlib/INSTALL/Makefile @@ -75,7 +75,9 @@ cleantest: ifneq ($(C_LAPACK), 1) slamch.o: slamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dlamch.o: dlamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +sroundup_lwork.o: sroundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +droundup_lwork.o: droundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< else -slamch.o: slamch.c ; $(CC) $(CFLAGS) -c -o $@ $< -dlamch.o: dlamch.c ; $(CC) $(CFLAGS) -c -o $@ $< +slamch.o: slamch.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< +dlamch.o: dlamch.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< endif diff --git a/lapack-netlib/INSTALL/droundup_lwork.c b/lapack-netlib/INSTALL/droundup_lwork.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/INSTALL/droundup_lwork.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DROUNDUP_LWORK +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK ) +* +* .. Scalar Arguments .. +* INTEGER LWORK +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DROUNDUP_LWORK deals with a subtle bug with returning LWORK as a Float. +*> This routine guarantees it is rounded up instead of down by +*> multiplying LWORK by 1+eps when it is necessary, where eps is the relative machine precision. +*> E.g., +*> +*> float( 9007199254740993 ) == 9007199254740992 +*> float( 9007199254740993 ) * (1.+eps) == 9007199254740994 +*> +*> \return DROUNDUP_LWORK +*> \verbatim +*> DROUNDUP_LWORK >= LWORK. +*> DROUNDUP_LWORK is guaranteed to have zero decimal part. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] LWORK Workspace size. +* +* Authors: +* ======== +* +*> \author Weslley Pereira, University of Colorado Denver, USA +* +*> \ingroup auxOTHERauxiliary +* +*> \par Further Details: +* ===================== +*> +*> \verbatim +*> This routine was inspired in the method `magma_zmake_lwork` from MAGMA. +*> \see https://bitbucket.org/icl/magma/src/master/control/magma_zauxiliary.cpp +*> \endverbatim +* +* ===================================================================== + DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK ) +* +* -- LAPACK auxiliary routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER LWORK +* .. +* +* ===================================================================== +* .. +* .. Intrinsic Functions .. + INTRINSIC EPSILON, DBLE, INT +* .. +* .. Executable Statements .. +* .. + DROUNDUP_LWORK = DBLE( LWORK ) +* + IF( INT( DROUNDUP_LWORK ) .LT. LWORK ) THEN +* Force round up of LWORK + DROUNDUP_LWORK = DROUNDUP_LWORK * ( 1.0D+0 + EPSILON(0.0D+0) ) + ENDIF +* + RETURN +* +* End of DROUNDUP_LWORK +* + END diff --git a/lapack-netlib/INSTALL/sroundup_lwork.c b/lapack-netlib/INSTALL/sroundup_lwork.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/INSTALL/sroundup_lwork.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SROUNDUP_LWORK +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* REAL FUNCTION SROUNDUP_LWORK( LWORK ) +* +* .. Scalar Arguments .. +* INTEGER LWORK +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SROUNDUP_LWORK deals with a subtle bug with returning LWORK as a Float. +*> This routine guarantees it is rounded up instead of down by +*> multiplying LWORK by 1+eps when it is necessary, where eps is the relative machine precision. +*> E.g., +*> +*> float( 16777217 ) == 16777216 +*> float( 16777217 ) * (1.+eps) == 16777218 +*> +*> \return SROUNDUP_LWORK +*> \verbatim +*> SROUNDUP_LWORK >= LWORK. +*> SROUNDUP_LWORK is guaranteed to have zero decimal part. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] LWORK Workspace size. +* +* Authors: +* ======== +* +*> \author Weslley Pereira, University of Colorado Denver, USA +* +*> \ingroup auxOTHERauxiliary +* +*> \par Further Details: +* ===================== +*> +*> \verbatim +*> This routine was inspired in the method `magma_zmake_lwork` from MAGMA. +*> \see https://bitbucket.org/icl/magma/src/master/control/magma_zauxiliary.cpp +*> \endverbatim +* +* ===================================================================== + REAL FUNCTION SROUNDUP_LWORK( LWORK ) +* +* -- LAPACK auxiliary routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER LWORK +* .. +* +* ===================================================================== +* .. +* .. Intrinsic Functions .. + INTRINSIC EPSILON, REAL, INT +* .. +* .. Executable Statements .. +* .. + SROUNDUP_LWORK = REAL( LWORK ) +* + IF( INT( SROUNDUP_LWORK ) .LT. LWORK ) THEN +* Force round up of LWORK + SROUNDUP_LWORK = SROUNDUP_LWORK * ( 1.0E+0 + EPSILON(0.0E+0) ) + ENDIF +* + RETURN +* +* End of SROUNDUP_LWORK +* + END diff --git a/lapack-netlib/LAPACKE/include/CMakeLists.txt b/lapack-netlib/LAPACKE/include/CMakeLists.txt index b690dc5548..7b266fc99c 100644 --- a/lapack-netlib/LAPACKE/include/CMakeLists.txt +++ b/lapack-netlib/LAPACKE/include/CMakeLists.txt @@ -1,3 +1,7 @@ -set(LAPACKE_INCLUDE lapacke.h lapack.h lapacke_config.h lapacke_utils.h) +set(LAPACKE_INCLUDE lapack.h) + +IF(LAPACKE) + list(APPEND LAPACKE_INCLUDE lapacke.h lapacke_config.h lapacke_utils.h) +endif() file(COPY ${LAPACKE_INCLUDE} DESTINATION ${LAPACK_BINARY_DIR}/include) diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h index ada1944b25..e4c39e1eea 100644 --- a/lapack-netlib/LAPACKE/include/lapack.h +++ b/lapack-netlib/LAPACKE/include/lapack.h @@ -11,6 +11,12 @@ #include "lapacke_mangling.h" #include +#include + +/* It seems all current Fortran compilers put strlen at end. +* Some historical compilers put strlen after the str argument +* or make the str argument into a struct. */ +#define LAPACK_FORTRAN_STRLEN_END /* Complex types are structures equivalent to the * Fortran complex types COMPLEX(4) and COMPLEX(8). @@ -108,16 +114,25 @@ typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* ); typedef lapack_logical (*LAPACK_Z_SELECT2) ( const lapack_complex_double*, const lapack_complex_double* ); -#define LAPACK_lsame LAPACK_GLOBAL(lsame,LSAME) -lapack_logical LAPACK_lsame( char* ca, char* cb, - lapack_int lca, lapack_int lcb ); +#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) +lapack_logical LAPACK_lsame_base( char* ca, char* cb, + lapack_int lca, lapack_int lcb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__) +#endif /*----------------------------------------------------------------------------*/ /* This is in alphabetical order (ignoring leading precision). */ -#define LAPACK_cbbcsd LAPACK_GLOBAL(cbbcsd,CBBCSD) -void LAPACK_cbbcsd( +#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD) +void LAPACK_cbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* theta, @@ -135,10 +150,19 @@ void LAPACK_cbbcsd( float* B22D, float* B22E, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dbbcsd LAPACK_GLOBAL(dbbcsd,DBBCSD) -void LAPACK_dbbcsd( +#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD) +void LAPACK_dbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* theta, @@ -156,10 +180,19 @@ void LAPACK_dbbcsd( double* b22d, double* b22e, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_sbbcsd LAPACK_GLOBAL(sbbcsd,SBBCSD) -void LAPACK_sbbcsd( +#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD) +void LAPACK_sbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* theta, @@ -177,10 +210,19 @@ void LAPACK_sbbcsd( float* B22D, float* B22E, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_zbbcsd LAPACK_GLOBAL(zbbcsd,ZBBCSD) -void LAPACK_zbbcsd( +#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD) +void LAPACK_zbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* theta, @@ -198,10 +240,19 @@ void LAPACK_zbbcsd( double* B22D, double* B22E, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsdc LAPACK_GLOBAL(dbdsdc,DBDSDC) -void LAPACK_dbdsdc( +#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC) +void LAPACK_dbdsdc_base( char const* uplo, char const* compq, lapack_int const* n, double* D, @@ -211,10 +262,19 @@ void LAPACK_dbdsdc( double* Q, lapack_int* IQ, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsdc LAPACK_GLOBAL(sbdsdc,SBDSDC) -void LAPACK_sbdsdc( +#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC) +void LAPACK_sbdsdc_base( char const* uplo, char const* compq, lapack_int const* n, float* D, @@ -224,10 +284,19 @@ void LAPACK_sbdsdc( float* Q, lapack_int* IQ, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__) +#endif -#define LAPACK_cbdsqr LAPACK_GLOBAL(cbdsqr,CBDSQR) -void LAPACK_cbdsqr( +#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR) +void LAPACK_cbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, float* D, @@ -236,10 +305,19 @@ void LAPACK_cbdsqr( lapack_complex_float* U, lapack_int const* ldu, lapack_complex_float* C, lapack_int const* ldc, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsqr LAPACK_GLOBAL(dbdsqr,DBDSQR) -void LAPACK_dbdsqr( +#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR) +void LAPACK_dbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, double* D, @@ -248,10 +326,19 @@ void LAPACK_dbdsqr( double* U, lapack_int const* ldu, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsqr LAPACK_GLOBAL(sbdsqr,SBDSQR) -void LAPACK_sbdsqr( +#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR) +void LAPACK_sbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, float* D, @@ -260,10 +347,19 @@ void LAPACK_sbdsqr( float* U, lapack_int const* ldu, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_zbdsqr LAPACK_GLOBAL(zbdsqr,ZBDSQR) -void LAPACK_zbdsqr( +#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR) +void LAPACK_zbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, double* D, @@ -272,10 +368,19 @@ void LAPACK_zbdsqr( lapack_complex_double* U, lapack_int const* ldu, lapack_complex_double* C, lapack_int const* ldc, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsvdx LAPACK_GLOBAL(dbdsvdx,DBDSVDX) -void LAPACK_dbdsvdx( +#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX) +void LAPACK_dbdsvdx_base( char const* uplo, char const* jobz, char const* range, lapack_int const* n, double const* D, @@ -286,10 +391,19 @@ void LAPACK_dbdsvdx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsvdx LAPACK_GLOBAL(sbdsvdx,SBDSVDX) -void LAPACK_sbdsvdx( +#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX) +void LAPACK_sbdsvdx_base( char const* uplo, char const* jobz, char const* range, lapack_int const* n, float const* D, @@ -300,26 +414,53 @@ void LAPACK_sbdsvdx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__) +#endif -#define LAPACK_ddisna LAPACK_GLOBAL(ddisna,DDISNA) -void LAPACK_ddisna( +#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA) +void LAPACK_ddisna_base( char const* job, lapack_int const* m, lapack_int const* n, double const* D, double* SEP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1) +#else + #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__) +#endif -#define LAPACK_sdisna LAPACK_GLOBAL(sdisna,SDISNA) -void LAPACK_sdisna( +#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA) +void LAPACK_sdisna_base( char const* job, lapack_int const* m, lapack_int const* n, float const* D, float* SEP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1) +#else + #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__) +#endif -#define LAPACK_cgbbrd LAPACK_GLOBAL(cgbbrd,CGBBRD) -void LAPACK_cgbbrd( +#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD) +void LAPACK_cgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, lapack_complex_float* AB, lapack_int const* ldab, @@ -330,10 +471,19 @@ void LAPACK_cgbbrd( lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_dgbbrd LAPACK_GLOBAL(dgbbrd,DGBBRD) -void LAPACK_dgbbrd( +#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD) +void LAPACK_dgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, double* AB, lapack_int const* ldab, @@ -343,10 +493,19 @@ void LAPACK_dgbbrd( double* PT, lapack_int const* ldpt, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_sgbbrd LAPACK_GLOBAL(sgbbrd,SGBBRD) -void LAPACK_sgbbrd( +#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD) +void LAPACK_sgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, float* AB, lapack_int const* ldab, @@ -356,10 +515,19 @@ void LAPACK_sgbbrd( float* PT, lapack_int const* ldpt, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_zgbbrd LAPACK_GLOBAL(zgbbrd,ZGBBRD) -void LAPACK_zgbbrd( +#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD) +void LAPACK_zgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, lapack_complex_double* AB, lapack_int const* ldab, @@ -370,10 +538,19 @@ void LAPACK_zgbbrd( lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_cgbcon LAPACK_GLOBAL(cgbcon,CGBCON) -void LAPACK_cgbcon( +#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON) +void LAPACK_cgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -381,10 +558,19 @@ void LAPACK_cgbcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dgbcon LAPACK_GLOBAL(dgbcon,DGBCON) -void LAPACK_dgbcon( +#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON) +void LAPACK_dgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, double const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -392,10 +578,19 @@ void LAPACK_dgbcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_sgbcon LAPACK_GLOBAL(sgbcon,SGBCON) -void LAPACK_sgbcon( +#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON) +void LAPACK_sgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, float const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -403,10 +598,19 @@ void LAPACK_sgbcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_zgbcon LAPACK_GLOBAL(zgbcon,ZGBCON) -void LAPACK_zgbcon( +#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON) +void LAPACK_zgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -414,7 +618,16 @@ void LAPACK_zgbcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__) +#endif #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU) void LAPACK_cgbequ( @@ -504,8 +717,8 @@ void LAPACK_zgbequb( double* amax, lapack_int* info ); -#define LAPACK_cgbrfs LAPACK_GLOBAL(cgbrfs,CGBRFS) -void LAPACK_cgbrfs( +#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS) +void LAPACK_cgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -516,10 +729,19 @@ void LAPACK_cgbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgbrfs LAPACK_GLOBAL(dgbrfs,DGBRFS) -void LAPACK_dgbrfs( +#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS) +void LAPACK_dgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -530,10 +752,19 @@ void LAPACK_dgbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgbrfs LAPACK_GLOBAL(sgbrfs,SGBRFS) -void LAPACK_sgbrfs( +#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS) +void LAPACK_sgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -544,10 +775,19 @@ void LAPACK_sgbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgbrfs LAPACK_GLOBAL(zgbrfs,ZGBRFS) -void LAPACK_zgbrfs( +#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS) +void LAPACK_zgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -558,10 +798,19 @@ void LAPACK_zgbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_cgbrfsx LAPACK_GLOBAL(cgbrfsx,CGBRFSX) -void LAPACK_cgbrfsx( +#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX) +void LAPACK_cgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -577,10 +826,19 @@ void LAPACK_cgbrfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbrfsx LAPACK_GLOBAL(dgbrfsx,DGBRFSX) -void LAPACK_dgbrfsx( +#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX) +void LAPACK_dgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -596,10 +854,19 @@ void LAPACK_dgbrfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbrfsx LAPACK_GLOBAL(sgbrfsx,SGBRFSX) -void LAPACK_sgbrfsx( +#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX) +void LAPACK_sgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -615,10 +882,19 @@ void LAPACK_sgbrfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbrfsx LAPACK_GLOBAL(zgbrfsx,ZGBRFSX) -void LAPACK_zgbrfsx( +#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX) +void LAPACK_zgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -634,7 +910,16 @@ void LAPACK_zgbrfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__) +#endif #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV) void LAPACK_cgbsv( @@ -664,8 +949,8 @@ void LAPACK_zgbsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cgbsvx LAPACK_GLOBAL(cgbsvx,CGBSVX) -void LAPACK_cgbsvx( +#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX) +void LAPACK_cgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -680,10 +965,19 @@ void LAPACK_cgbsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbsvx LAPACK_GLOBAL(dgbsvx,DGBSVX) -void LAPACK_dgbsvx( +#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX) +void LAPACK_dgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -698,10 +992,19 @@ void LAPACK_dgbsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbsvx LAPACK_GLOBAL(sgbsvx,SGBSVX) -void LAPACK_sgbsvx( +#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX) +void LAPACK_sgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -716,10 +1019,19 @@ void LAPACK_sgbsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbsvx LAPACK_GLOBAL(zgbsvx,ZGBSVX) -void LAPACK_zgbsvx( +#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX) +void LAPACK_zgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -734,10 +1046,19 @@ void LAPACK_zgbsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cgbsvxx LAPACK_GLOBAL(cgbsvxx,CGBSVXX) -void LAPACK_cgbsvxx( +#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX) +void LAPACK_cgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -755,10 +1076,19 @@ void LAPACK_cgbsvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbsvxx LAPACK_GLOBAL(dgbsvxx,DGBSVXX) -void LAPACK_dgbsvxx( +#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX) +void LAPACK_dgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -776,10 +1106,19 @@ void LAPACK_dgbsvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbsvxx LAPACK_GLOBAL(sgbsvxx,SGBSVXX) -void LAPACK_sgbsvxx( +#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX) +void LAPACK_sgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -797,10 +1136,19 @@ void LAPACK_sgbsvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbsvxx LAPACK_GLOBAL(zgbsvxx,ZGBSVXX) -void LAPACK_zgbsvxx( +#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX) +void LAPACK_zgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -818,7 +1166,16 @@ void LAPACK_zgbsvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__) +#endif #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF) void LAPACK_cgbtrf( @@ -844,101 +1201,209 @@ void LAPACK_zgbtrf( lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv, lapack_int* info ); -#define LAPACK_cgbtrs LAPACK_GLOBAL(cgbtrs,CGBTRS) -void LAPACK_cgbtrs( +#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS) +void LAPACK_cgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dgbtrs LAPACK_GLOBAL(dgbtrs,DGBTRS) -void LAPACK_dgbtrs( +#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS) +void LAPACK_dgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgbtrs LAPACK_GLOBAL(sgbtrs,SGBTRS) -void LAPACK_sgbtrs( +#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS) +void LAPACK_sgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgbtrs LAPACK_GLOBAL(zgbtrs,ZGBTRS) -void LAPACK_zgbtrs( +#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS) +void LAPACK_zgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_cgebak LAPACK_GLOBAL(cgebak,CGEBAK) -void LAPACK_cgebak( +#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK) +void LAPACK_cgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* scale, lapack_int const* m, lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__) +#endif -#define LAPACK_dgebak LAPACK_GLOBAL(dgebak,DGEBAK) -void LAPACK_dgebak( +#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK) +void LAPACK_dgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* scale, lapack_int const* m, double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__) +#endif -#define LAPACK_sgebak LAPACK_GLOBAL(sgebak,SGEBAK) -void LAPACK_sgebak( +#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK) +void LAPACK_sgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* scale, lapack_int const* m, float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__) +#endif -#define LAPACK_zgebak LAPACK_GLOBAL(zgebak,ZGEBAK) -void LAPACK_zgebak( +#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK) +void LAPACK_zgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* scale, lapack_int const* m, lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__) +#endif -#define LAPACK_cgebal LAPACK_GLOBAL(cgebal,CGEBAL) -void LAPACK_cgebal( +#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL) +void LAPACK_cgebal_base( char const* job, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__) +#endif -#define LAPACK_dgebal LAPACK_GLOBAL(dgebal,DGEBAL) -void LAPACK_dgebal( +#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL) +void LAPACK_dgebal_base( char const* job, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__) +#endif -#define LAPACK_sgebal LAPACK_GLOBAL(sgebal,SGEBAL) -void LAPACK_sgebal( +#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL) +void LAPACK_sgebal_base( char const* job, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__) +#endif -#define LAPACK_zgebal LAPACK_GLOBAL(zgebal,ZGEBAL) -void LAPACK_zgebal( +#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL) +void LAPACK_zgebal_base( char const* job, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__) +#endif #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD) void LAPACK_cgebrd( @@ -984,8 +1449,8 @@ void LAPACK_zgebrd( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgecon LAPACK_GLOBAL(cgecon,CGECON) -void LAPACK_cgecon( +#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON) +void LAPACK_cgecon_base( char const* norm, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -993,10 +1458,19 @@ void LAPACK_cgecon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__) +#endif -#define LAPACK_dgecon LAPACK_GLOBAL(dgecon,DGECON) -void LAPACK_dgecon( +#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON) +void LAPACK_dgecon_base( char const* norm, lapack_int const* n, double const* A, lapack_int const* lda, @@ -1004,10 +1478,19 @@ void LAPACK_dgecon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__) +#endif -#define LAPACK_sgecon LAPACK_GLOBAL(sgecon,SGECON) -void LAPACK_sgecon( +#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON) +void LAPACK_sgecon_base( char const* norm, lapack_int const* n, float const* A, lapack_int const* lda, @@ -1015,10 +1498,19 @@ void LAPACK_sgecon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__) +#endif -#define LAPACK_zgecon LAPACK_GLOBAL(zgecon,ZGECON) -void LAPACK_zgecon( +#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON) +void LAPACK_zgecon_base( char const* norm, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -1026,7 +1518,16 @@ void LAPACK_zgecon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__) +#endif #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU) void LAPACK_cgeequ( @@ -1116,8 +1617,8 @@ void LAPACK_zgeequb( double* amax, lapack_int* info ); -#define LAPACK_cgees LAPACK_GLOBAL(cgees,CGEES) -void LAPACK_cgees( +#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES) +void LAPACK_cgees_base( char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, @@ -1125,10 +1626,19 @@ void LAPACK_cgees( lapack_complex_float* VS, lapack_int const* ldvs, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__) +#endif -#define LAPACK_dgees LAPACK_GLOBAL(dgees,DGEES) -void LAPACK_dgees( +#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES) +void LAPACK_dgees_base( char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* sdim, @@ -1136,10 +1646,19 @@ void LAPACK_dgees( double* WI, double* VS, lapack_int const* ldvs, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__) +#endif -#define LAPACK_sgees LAPACK_GLOBAL(sgees,SGEES) -void LAPACK_sgees( +#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES) +void LAPACK_sgees_base( char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* sdim, @@ -1147,10 +1666,19 @@ void LAPACK_sgees( float* WI, float* VS, lapack_int const* ldvs, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__) +#endif -#define LAPACK_zgees LAPACK_GLOBAL(zgees,ZGEES) -void LAPACK_zgees( +#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES) +void LAPACK_zgees_base( char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, @@ -1158,10 +1686,19 @@ void LAPACK_zgees( lapack_complex_double* VS, lapack_int const* ldvs, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__) +#endif -#define LAPACK_cgeesx LAPACK_GLOBAL(cgeesx,CGEESX) -void LAPACK_cgeesx( +#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX) +void LAPACK_cgeesx_base( char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, @@ -1171,10 +1708,19 @@ void LAPACK_cgeesx( float* rcondv, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_dgeesx LAPACK_GLOBAL(dgeesx,DGEESX) -void LAPACK_dgeesx( +#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX) +void LAPACK_dgeesx_base( char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* sdim, @@ -1185,10 +1731,19 @@ void LAPACK_dgeesx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_sgeesx LAPACK_GLOBAL(sgeesx,SGEESX) -void LAPACK_sgeesx( +#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX) +void LAPACK_sgeesx_base( char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* sdim, @@ -1199,10 +1754,19 @@ void LAPACK_sgeesx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_zgeesx LAPACK_GLOBAL(zgeesx,ZGEESX) -void LAPACK_zgeesx( +#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX) +void LAPACK_zgeesx_base( char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, @@ -1212,10 +1776,19 @@ void LAPACK_zgeesx( double* rcondv, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_cgeev LAPACK_GLOBAL(cgeev,CGEEV) -void LAPACK_cgeev( +#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV) +void LAPACK_cgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1224,10 +1797,19 @@ void LAPACK_cgeev( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__) +#endif -#define LAPACK_dgeev LAPACK_GLOBAL(dgeev,DGEEV) -void LAPACK_dgeev( +#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV) +void LAPACK_dgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -1236,10 +1818,19 @@ void LAPACK_dgeev( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__) +#endif -#define LAPACK_sgeev LAPACK_GLOBAL(sgeev,SGEEV) -void LAPACK_sgeev( +#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV) +void LAPACK_sgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -1248,10 +1839,19 @@ void LAPACK_sgeev( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__) +#endif -#define LAPACK_zgeev LAPACK_GLOBAL(zgeev,ZGEEV) -void LAPACK_zgeev( +#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV) +void LAPACK_zgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1260,10 +1860,19 @@ void LAPACK_zgeev( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__) +#endif -#define LAPACK_cgeevx LAPACK_GLOBAL(cgeevx,CGEEVX) -void LAPACK_cgeevx( +#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX) +void LAPACK_cgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1276,10 +1885,19 @@ void LAPACK_cgeevx( float* rcondv, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_dgeevx LAPACK_GLOBAL(dgeevx,DGEEVX) -void LAPACK_dgeevx( +#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX) +void LAPACK_dgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -1293,10 +1911,19 @@ void LAPACK_dgeevx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_sgeevx LAPACK_GLOBAL(sgeevx,SGEEVX) -void LAPACK_sgeevx( +#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX) +void LAPACK_sgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -1310,10 +1937,19 @@ void LAPACK_sgeevx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_zgeevx LAPACK_GLOBAL(zgeevx,ZGEEVX) -void LAPACK_zgeevx( +#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX) +void LAPACK_zgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1326,7 +1962,16 @@ void LAPACK_zgeevx( double* rcondv, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__) +#endif #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD) void LAPACK_cgehrd( @@ -1360,8 +2005,8 @@ void LAPACK_zgehrd( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgejsv LAPACK_GLOBAL(cgejsv,CGEJSV) -void LAPACK_cgejsv( +#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV) +void LAPACK_cgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1371,10 +2016,19 @@ void LAPACK_cgejsv( lapack_complex_float* cwork, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_dgejsv LAPACK_GLOBAL(dgejsv,DGEJSV) -void LAPACK_dgejsv( +#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV) +void LAPACK_dgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -1383,10 +2037,19 @@ void LAPACK_dgejsv( double* V, lapack_int const* ldv, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_sgejsv LAPACK_GLOBAL(sgejsv,SGEJSV) -void LAPACK_sgejsv( +#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV) +void LAPACK_sgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -1395,10 +2058,19 @@ void LAPACK_sgejsv( float* V, lapack_int const* ldv, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_zgejsv LAPACK_GLOBAL(zgejsv,ZGEJSV) -void LAPACK_zgejsv( +#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV) +void LAPACK_zgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1408,7 +2080,16 @@ void LAPACK_zgejsv( lapack_complex_double* cwork, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__) +#endif #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ) void LAPACK_cgelq( @@ -1506,41 +2187,77 @@ void LAPACK_zgelqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgels LAPACK_GLOBAL(cgels,CGELS) -void LAPACK_cgels( +#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS) +void LAPACK_cgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__) +#endif -#define LAPACK_dgels LAPACK_GLOBAL(dgels,DGELS) -void LAPACK_dgels( +#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS) +void LAPACK_dgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__) +#endif -#define LAPACK_sgels LAPACK_GLOBAL(sgels,SGELS) -void LAPACK_sgels( +#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS) +void LAPACK_sgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__) +#endif -#define LAPACK_zgels LAPACK_GLOBAL(zgels,ZGELS) -void LAPACK_zgels( +#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS) +void LAPACK_zgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__) +#endif #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD) void LAPACK_cgelsd( @@ -1668,125 +2385,233 @@ void LAPACK_zgelsy( double* rwork, lapack_int* info ); -#define LAPACK_cgemlq LAPACK_GLOBAL(cgemlq,CGEMLQ) -void LAPACK_cgemlq( +#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ) +void LAPACK_cgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* T, lapack_int const* tsize, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_dgemlq LAPACK_GLOBAL(dgemlq,DGEMLQ) -void LAPACK_dgemlq( +#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ) +void LAPACK_dgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* T, lapack_int const* tsize, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_sgemlq LAPACK_GLOBAL(sgemlq,SGEMLQ) -void LAPACK_sgemlq( +#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ) +void LAPACK_sgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* T, lapack_int const* tsize, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_zgemlq LAPACK_GLOBAL(zgemlq,ZGEMLQ) -void LAPACK_zgemlq( +#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ) +void LAPACK_zgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* T, lapack_int const* tsize, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_cgemqr LAPACK_GLOBAL(cgemqr,CGEMQR) -void LAPACK_cgemqr( +#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR) +void LAPACK_cgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* T, lapack_int const* tsize, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_dgemqr LAPACK_GLOBAL(dgemqr,DGEMQR) -void LAPACK_dgemqr( +#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR) +void LAPACK_dgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* T, lapack_int const* tsize, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_sgemqr LAPACK_GLOBAL(sgemqr,SGEMQR) -void LAPACK_sgemqr( +#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR) +void LAPACK_sgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* T, lapack_int const* tsize, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_zgemqr LAPACK_GLOBAL(zgemqr,ZGEMQR) -void LAPACK_zgemqr( +#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR) +void LAPACK_zgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* T, lapack_int const* tsize, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_cgemqrt LAPACK_GLOBAL(cgemqrt,CGEMQRT) -void LAPACK_cgemqrt( +#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT) +void LAPACK_cgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_dgemqrt LAPACK_GLOBAL(dgemqrt,DGEMQRT) -void LAPACK_dgemqrt( +#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT) +void LAPACK_dgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_sgemqrt LAPACK_GLOBAL(sgemqrt,SGEMQRT) -void LAPACK_sgemqrt( +#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT) +void LAPACK_sgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_zgemqrt LAPACK_GLOBAL(zgemqrt,ZGEMQRT) -void LAPACK_zgemqrt( +#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT) +void LAPACK_zgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__) +#endif #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2) void LAPACK_cgeql2( @@ -2124,8 +2949,8 @@ void LAPACK_zgeqrt3( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_cgerfs LAPACK_GLOBAL(cgerfs,CGERFS) -void LAPACK_cgerfs( +#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS) +void LAPACK_cgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -2136,10 +2961,19 @@ void LAPACK_cgerfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgerfs LAPACK_GLOBAL(dgerfs,DGERFS) -void LAPACK_dgerfs( +#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS) +void LAPACK_dgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -2150,10 +2984,19 @@ void LAPACK_dgerfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgerfs LAPACK_GLOBAL(sgerfs,SGERFS) -void LAPACK_sgerfs( +#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS) +void LAPACK_sgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -2164,10 +3007,19 @@ void LAPACK_sgerfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgerfs LAPACK_GLOBAL(zgerfs,ZGERFS) -void LAPACK_zgerfs( +#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS) +void LAPACK_zgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -2178,10 +3030,19 @@ void LAPACK_zgerfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_cgerfsx LAPACK_GLOBAL(cgerfsx,CGERFSX) -void LAPACK_cgerfsx( +#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX) +void LAPACK_cgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -2197,10 +3058,19 @@ void LAPACK_cgerfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dgerfsx LAPACK_GLOBAL(dgerfsx,DGERFSX) -void LAPACK_dgerfsx( +#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX) +void LAPACK_dgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -2216,10 +3086,19 @@ void LAPACK_dgerfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sgerfsx LAPACK_GLOBAL(sgerfsx,SGERFSX) -void LAPACK_sgerfsx( +#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX) +void LAPACK_sgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -2235,10 +3114,19 @@ void LAPACK_sgerfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zgerfsx LAPACK_GLOBAL(zgerfsx,ZGERFSX) -void LAPACK_zgerfsx( +#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX) +void LAPACK_zgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -2254,7 +3142,16 @@ void LAPACK_zgerfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__) +#endif #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2) void LAPACK_cgerq2( @@ -2320,8 +3217,8 @@ void LAPACK_zgerqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgesdd LAPACK_GLOBAL(cgesdd,CGESDD) -void LAPACK_cgesdd( +#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD) +void LAPACK_cgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2331,10 +3228,19 @@ void LAPACK_cgesdd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_dgesdd LAPACK_GLOBAL(dgesdd,DGESDD) -void LAPACK_dgesdd( +#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD) +void LAPACK_dgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2343,10 +3249,19 @@ void LAPACK_dgesdd( double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_sgesdd LAPACK_GLOBAL(sgesdd,SGESDD) -void LAPACK_sgesdd( +#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD) +void LAPACK_sgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2355,10 +3270,19 @@ void LAPACK_sgesdd( float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_zgesdd LAPACK_GLOBAL(zgesdd,ZGESDD) -void LAPACK_zgesdd( +#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD) +void LAPACK_zgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2368,7 +3292,16 @@ void LAPACK_zgesdd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__) +#endif #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV) void LAPACK_cgesv( @@ -2419,8 +3352,8 @@ void LAPACK_zcgesv( double* rwork, lapack_int* iter, lapack_int* info ); -#define LAPACK_cgesvd LAPACK_GLOBAL(cgesvd,CGESVD) -void LAPACK_cgesvd( +#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD) +void LAPACK_cgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2429,10 +3362,19 @@ void LAPACK_cgesvd( lapack_complex_float* VT, lapack_int const* ldvt, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvd LAPACK_GLOBAL(dgesvd,DGESVD) -void LAPACK_dgesvd( +#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD) +void LAPACK_dgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2440,10 +3382,19 @@ void LAPACK_dgesvd( double* U, lapack_int const* ldu, double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvd LAPACK_GLOBAL(sgesvd,SGESVD) -void LAPACK_sgesvd( +#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD) +void LAPACK_sgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2451,10 +3402,19 @@ void LAPACK_sgesvd( float* U, lapack_int const* ldu, float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvd LAPACK_GLOBAL(zgesvd,ZGESVD) -void LAPACK_zgesvd( +#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD) +void LAPACK_zgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2463,10 +3423,19 @@ void LAPACK_zgesvd( lapack_complex_double* VT, lapack_int const* ldvt, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvdq LAPACK_GLOBAL(cgesvdq,CGESVDQ) -void LAPACK_cgesvdq( +#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ) +void LAPACK_cgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2476,10 +3445,19 @@ void LAPACK_cgesvdq( lapack_int* iwork, lapack_int const* liwork, lapack_complex_float* cwork, lapack_int* lcwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvdq LAPACK_GLOBAL(dgesvdq,DGESVDQ) -void LAPACK_dgesvdq( +#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ) +void LAPACK_dgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2489,10 +3467,19 @@ void LAPACK_dgesvdq( lapack_int* iwork, lapack_int const* liwork, double* work, lapack_int* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvdq LAPACK_GLOBAL(sgesvdq,SGESVDQ) -void LAPACK_sgesvdq( +#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ) +void LAPACK_sgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2502,10 +3489,19 @@ void LAPACK_sgesvdq( lapack_int* iwork, lapack_int const* liwork, float* work, lapack_int* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvdq LAPACK_GLOBAL(zgesvdq,ZGESVDQ) -void LAPACK_zgesvdq( +#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ) +void LAPACK_zgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2515,10 +3511,19 @@ void LAPACK_zgesvdq( lapack_int* iwork, lapack_int const* liwork, lapack_complex_double* cwork, lapack_int* lcwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvdx LAPACK_GLOBAL(cgesvdx,CGESVDX) -void LAPACK_cgesvdx( +#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX) +void LAPACK_cgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2530,10 +3535,20 @@ void LAPACK_cgesvdx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvdx LAPACK_GLOBAL(dgesvdx,DGESVDX) -void LAPACK_dgesvdx( + +#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX) +void LAPACK_dgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2544,10 +3559,19 @@ void LAPACK_dgesvdx( double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvdx LAPACK_GLOBAL(sgesvdx,SGESVDX) -void LAPACK_sgesvdx( +#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX) +void LAPACK_sgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2558,10 +3582,19 @@ void LAPACK_sgesvdx( float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvdx LAPACK_GLOBAL(zgesvdx,ZGESVDX) -void LAPACK_zgesvdx( +#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX) +void LAPACK_zgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2573,10 +3606,19 @@ void LAPACK_zgesvdx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvj LAPACK_GLOBAL(cgesvj,CGESVJ) -void LAPACK_cgesvj( +#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ) +void LAPACK_cgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2584,30 +3626,57 @@ void LAPACK_cgesvj( lapack_complex_float* V, lapack_int const* ldv, lapack_complex_float* cwork, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvj LAPACK_GLOBAL(dgesvj,DGESVJ) -void LAPACK_dgesvj( +#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ) +void LAPACK_dgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, double* SVA, lapack_int const* mv, double* V, lapack_int const* ldv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvj LAPACK_GLOBAL(sgesvj,SGESVJ) -void LAPACK_sgesvj( +#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ) +void LAPACK_sgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, float* SVA, lapack_int const* mv, float* V, lapack_int const* ldv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvj LAPACK_GLOBAL(zgesvj,ZGESVJ) -void LAPACK_zgesvj( +#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ) +void LAPACK_zgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2615,10 +3684,19 @@ void LAPACK_zgesvj( lapack_complex_double* V, lapack_int const* ldv, lapack_complex_double* cwork, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvx LAPACK_GLOBAL(cgesvx,CGESVX) -void LAPACK_cgesvx( +#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX) +void LAPACK_cgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -2633,10 +3711,19 @@ void LAPACK_cgesvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvx LAPACK_GLOBAL(dgesvx,DGESVX) -void LAPACK_dgesvx( +#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX) +void LAPACK_dgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -2651,10 +3738,19 @@ void LAPACK_dgesvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvx LAPACK_GLOBAL(sgesvx,SGESVX) -void LAPACK_sgesvx( +#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX) +void LAPACK_sgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -2669,10 +3765,19 @@ void LAPACK_sgesvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvx LAPACK_GLOBAL(zgesvx,ZGESVX) -void LAPACK_zgesvx( +#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX) +void LAPACK_zgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -2687,10 +3792,19 @@ void LAPACK_zgesvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvxx LAPACK_GLOBAL(cgesvxx,CGESVXX) -void LAPACK_cgesvxx( +#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX) +void LAPACK_cgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -2708,10 +3822,19 @@ void LAPACK_cgesvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvxx LAPACK_GLOBAL(dgesvxx,DGESVXX) -void LAPACK_dgesvxx( +#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX) +void LAPACK_dgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -2729,10 +3852,19 @@ void LAPACK_dgesvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvxx LAPACK_GLOBAL(sgesvxx,SGESVXX) -void LAPACK_sgesvxx( +#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX) +void LAPACK_sgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -2750,10 +3882,19 @@ void LAPACK_sgesvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvxx LAPACK_GLOBAL(zgesvxx,ZGESVXX) -void LAPACK_zgesvxx( +#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX) +void LAPACK_zgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -2771,7 +3912,16 @@ void LAPACK_zgesvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__) +#endif #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2) void LAPACK_cgetf2( @@ -2873,73 +4023,145 @@ void LAPACK_zgetri( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgetrs LAPACK_GLOBAL(cgetrs,CGETRS) -void LAPACK_cgetrs( +#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS) +void LAPACK_cgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dgetrs LAPACK_GLOBAL(dgetrs,DGETRS) -void LAPACK_dgetrs( - char const* trans, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__) +#endif + +#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS) +void LAPACK_dgetrs_base( + char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgetrs LAPACK_GLOBAL(sgetrs,SGETRS) -void LAPACK_sgetrs( +#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS) +void LAPACK_sgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgetrs LAPACK_GLOBAL(zgetrs,ZGETRS) -void LAPACK_zgetrs( +#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS) +void LAPACK_zgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_cgetsls LAPACK_GLOBAL(cgetsls,CGETSLS) -void LAPACK_cgetsls( +#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS) +void LAPACK_cgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_dgetsls LAPACK_GLOBAL(dgetsls,DGETSLS) -void LAPACK_dgetsls( +#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS) +void LAPACK_dgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_sgetsls LAPACK_GLOBAL(sgetsls,SGETSLS) -void LAPACK_sgetsls( +#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS) +void LAPACK_sgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_zgetsls LAPACK_GLOBAL(zgetsls,ZGETSLS) -void LAPACK_zgetsls( +#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS) +void LAPACK_zgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__) +#endif #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT) void LAPACK_cgetsqrhrt( @@ -2977,44 +4199,80 @@ void LAPACK_zgetsqrhrt( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK) -void LAPACK_cggbak( +#define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK) +void LAPACK_cggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* lscale, float const* rscale, lapack_int const* m, lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__) +#endif -#define LAPACK_dggbak LAPACK_GLOBAL(dggbak,DGGBAK) -void LAPACK_dggbak( +#define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK) +void LAPACK_dggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* lscale, double const* rscale, lapack_int const* m, double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__) +#endif -#define LAPACK_sggbak LAPACK_GLOBAL(sggbak,SGGBAK) -void LAPACK_sggbak( +#define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK) +void LAPACK_sggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* lscale, float const* rscale, lapack_int const* m, float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__) +#endif -#define LAPACK_zggbak LAPACK_GLOBAL(zggbak,ZGGBAK) -void LAPACK_zggbak( +#define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK) +void LAPACK_zggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* lscale, double const* rscale, lapack_int const* m, lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__) +#endif -#define LAPACK_cggbal LAPACK_GLOBAL(cggbal,CGGBAL) -void LAPACK_cggbal( +#define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL) +void LAPACK_cggbal_base( char const* job, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3022,10 +4280,19 @@ void LAPACK_cggbal( float* lscale, float* rscale, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__) +#endif -#define LAPACK_dggbal LAPACK_GLOBAL(dggbal,DGGBAL) -void LAPACK_dggbal( +#define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL) +void LAPACK_dggbal_base( char const* job, lapack_int const* n, double* A, lapack_int const* lda, @@ -3033,10 +4300,19 @@ void LAPACK_dggbal( double* lscale, double* rscale, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__) +#endif -#define LAPACK_sggbal LAPACK_GLOBAL(sggbal,SGGBAL) -void LAPACK_sggbal( +#define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL) +void LAPACK_sggbal_base( char const* job, lapack_int const* n, float* A, lapack_int const* lda, @@ -3044,10 +4320,19 @@ void LAPACK_sggbal( float* lscale, float* rscale, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__) +#endif -#define LAPACK_zggbal LAPACK_GLOBAL(zggbal,ZGGBAL) -void LAPACK_zggbal( +#define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL) +void LAPACK_zggbal_base( char const* job, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3055,10 +4340,19 @@ void LAPACK_zggbal( double* lscale, double* rscale, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__) +#endif -#define LAPACK_cgges LAPACK_GLOBAL(cgges,CGGES) -void LAPACK_cgges( +#define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES) +void LAPACK_cgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3069,10 +4363,19 @@ void LAPACK_cgges( lapack_complex_float* VSR, lapack_int const* ldvsr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__) +#endif -#define LAPACK_dgges LAPACK_GLOBAL(dgges,DGGES) -void LAPACK_dgges( +#define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES) +void LAPACK_dgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, lapack_int const* n, double* A, lapack_int const* lda, @@ -3083,10 +4386,19 @@ void LAPACK_dgges( double* VSL, lapack_int const* ldvsl, double* VSR, lapack_int const* ldvsr, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__) +#endif -#define LAPACK_sgges LAPACK_GLOBAL(sgges,SGGES) -void LAPACK_sgges( +#define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES) +void LAPACK_sgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, lapack_int const* n, float* A, lapack_int const* lda, @@ -3097,10 +4409,19 @@ void LAPACK_sgges( float* VSL, lapack_int const* ldvsl, float* VSR, lapack_int const* ldvsr, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__) +#endif -#define LAPACK_zgges LAPACK_GLOBAL(zgges,ZGGES) -void LAPACK_zgges( +#define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES) +void LAPACK_zgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3111,10 +4432,19 @@ void LAPACK_zgges( lapack_complex_double* VSR, lapack_int const* ldvsr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__) +#endif -#define LAPACK_cgges3 LAPACK_GLOBAL(cgges3,CGGES3) -void LAPACK_cgges3( +#define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3) +void LAPACK_cgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3125,10 +4455,19 @@ void LAPACK_cgges3( lapack_complex_float* VSR, lapack_int const* ldvsr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__) +#endif -#define LAPACK_dgges3 LAPACK_GLOBAL(dgges3,DGGES3) -void LAPACK_dgges3( +#define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3) +void LAPACK_dgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, lapack_int const* n, double* A, lapack_int const* lda, @@ -3139,10 +4478,19 @@ void LAPACK_dgges3( double* VSL, lapack_int const* ldvsl, double* VSR, lapack_int const* ldvsr, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__) +#endif -#define LAPACK_sgges3 LAPACK_GLOBAL(sgges3,SGGES3) -void LAPACK_sgges3( +#define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3) +void LAPACK_sgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, lapack_int const* n, float* A, lapack_int const* lda, @@ -3153,10 +4501,19 @@ void LAPACK_sgges3( float* VSL, lapack_int const* ldvsl, float* VSR, lapack_int const* ldvsr, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__) +#endif -#define LAPACK_zgges3 LAPACK_GLOBAL(zgges3,ZGGES3) -void LAPACK_zgges3( +#define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3) +void LAPACK_zgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3167,10 +4524,19 @@ void LAPACK_zgges3( lapack_complex_double* VSR, lapack_int const* ldvsr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__) +#endif -#define LAPACK_cggesx LAPACK_GLOBAL(cggesx,CGGESX) -void LAPACK_cggesx( +#define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX) +void LAPACK_cggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3184,10 +4550,19 @@ void LAPACK_cggesx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__) +#endif -#define LAPACK_dggesx LAPACK_GLOBAL(dggesx,DGGESX) -void LAPACK_dggesx( +#define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX) +void LAPACK_dggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -3201,10 +4576,19 @@ void LAPACK_dggesx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__) +#endif -#define LAPACK_sggesx LAPACK_GLOBAL(sggesx,SGGESX) -void LAPACK_sggesx( +#define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX) +void LAPACK_sggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -3218,10 +4602,19 @@ void LAPACK_sggesx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__) +#endif -#define LAPACK_zggesx LAPACK_GLOBAL(zggesx,ZGGESX) -void LAPACK_zggesx( +#define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX) +void LAPACK_zggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3235,10 +4628,19 @@ void LAPACK_zggesx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__) +#endif -#define LAPACK_cggev LAPACK_GLOBAL(cggev,CGGEV) -void LAPACK_cggev( +#define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV) +void LAPACK_cggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3249,10 +4651,19 @@ void LAPACK_cggev( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__) +#endif -#define LAPACK_dggev LAPACK_GLOBAL(dggev,DGGEV) -void LAPACK_dggev( +#define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV) +void LAPACK_dggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -3263,10 +4674,19 @@ void LAPACK_dggev( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__) +#endif -#define LAPACK_sggev LAPACK_GLOBAL(sggev,SGGEV) -void LAPACK_sggev( +#define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV) +void LAPACK_sggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -3277,10 +4697,19 @@ void LAPACK_sggev( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__) +#endif -#define LAPACK_zggev LAPACK_GLOBAL(zggev,ZGGEV) -void LAPACK_zggev( +#define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV) +void LAPACK_zggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3291,10 +4720,19 @@ void LAPACK_zggev( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__) +#endif -#define LAPACK_cggev3 LAPACK_GLOBAL(cggev3,CGGEV3) -void LAPACK_cggev3( +#define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3) +void LAPACK_cggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3305,10 +4743,19 @@ void LAPACK_cggev3( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__) +#endif -#define LAPACK_dggev3 LAPACK_GLOBAL(dggev3,DGGEV3) -void LAPACK_dggev3( +#define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3) +void LAPACK_dggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -3319,10 +4766,19 @@ void LAPACK_dggev3( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__) +#endif -#define LAPACK_sggev3 LAPACK_GLOBAL(sggev3,SGGEV3) -void LAPACK_sggev3( +#define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3) +void LAPACK_sggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -3333,10 +4789,19 @@ void LAPACK_sggev3( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__) +#endif -#define LAPACK_zggev3 LAPACK_GLOBAL(zggev3,ZGGEV3) -void LAPACK_zggev3( +#define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3) +void LAPACK_zggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3347,10 +4812,19 @@ void LAPACK_zggev3( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__) +#endif -#define LAPACK_cggevx LAPACK_GLOBAL(cggevx,CGGEVX) -void LAPACK_cggevx( +#define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX) +void LAPACK_cggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3368,10 +4842,19 @@ void LAPACK_cggevx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__) +#endif -#define LAPACK_dggevx LAPACK_GLOBAL(dggevx,DGGEVX) -void LAPACK_dggevx( +#define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX) +void LAPACK_dggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -3389,10 +4872,19 @@ void LAPACK_dggevx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__) +#endif -#define LAPACK_sggevx LAPACK_GLOBAL(sggevx,SGGEVX) -void LAPACK_sggevx( +#define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX) +void LAPACK_sggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -3410,10 +4902,19 @@ void LAPACK_sggevx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__) +#endif -#define LAPACK_zggevx LAPACK_GLOBAL(zggevx,ZGGEVX) -void LAPACK_zggevx( +#define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX) +void LAPACK_zggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3431,7 +4932,16 @@ void LAPACK_zggevx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__) +#endif #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM) void LAPACK_cggglm( @@ -3477,8 +4987,8 @@ void LAPACK_zggglm( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgghd3 LAPACK_GLOBAL(cgghd3,CGGHD3) -void LAPACK_cgghd3( +#define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3) +void LAPACK_cgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* A, lapack_int const* lda, @@ -3486,10 +4996,19 @@ void LAPACK_cgghd3( lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_dgghd3 LAPACK_GLOBAL(dgghd3,DGGHD3) -void LAPACK_dgghd3( +#define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3) +void LAPACK_dgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* A, lapack_int const* lda, @@ -3497,10 +5016,19 @@ void LAPACK_dgghd3( double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_sgghd3 LAPACK_GLOBAL(sgghd3,SGGHD3) -void LAPACK_sgghd3( +#define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3) +void LAPACK_sgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* A, lapack_int const* lda, @@ -3508,10 +5036,19 @@ void LAPACK_sgghd3( float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_zgghd3 LAPACK_GLOBAL(zgghd3,ZGGHD3) -void LAPACK_zgghd3( +#define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3) +void LAPACK_zgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* A, lapack_int const* lda, @@ -3519,47 +5056,92 @@ void LAPACK_zgghd3( lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_cgghrd LAPACK_GLOBAL(cgghrd,CGGHRD) -void LAPACK_cgghrd( +#define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD) +void LAPACK_cgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_dgghrd LAPACK_GLOBAL(dgghrd,DGGHRD) -void LAPACK_dgghrd( +#define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD) +void LAPACK_dgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_sgghrd LAPACK_GLOBAL(sgghrd,SGGHRD) -void LAPACK_sgghrd( +#define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD) +void LAPACK_sgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_zgghrd LAPACK_GLOBAL(zgghrd,ZGGHRD) -void LAPACK_zgghrd( +#define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD) +void LAPACK_zgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__) +#endif #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE) void LAPACK_cgglse( @@ -3685,8 +5267,31 @@ void LAPACK_zggrqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD) -lapack_int LAPACK_sggsvd( +#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD) +lapack_int LAPACK_cggsvd_base( + char const* jobu, char const* jobv, char const* jobq, + lapack_int const* m, lapack_int const* n, lapack_int const* p, + lapack_int* k, lapack_int* l, + lapack_complex_float* a, lapack_int const* lda, + lapack_complex_float* b, lapack_int const* ldb, + float* alpha, float* beta, + lapack_complex_float* u, lapack_int const* ldu, + lapack_complex_float* v, lapack_int const* ldv, + lapack_complex_float* q, lapack_int const* ldq, + lapack_complex_float* work, float* rwork, + lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__) +#endif + +#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD) +lapack_int LAPACK_sggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3696,10 +5301,19 @@ lapack_int LAPACK_sggsvd( float* u, lapack_int const* ldu, float* v, lapack_int const* ldv, float* q, lapack_int const* ldq, - float* work, lapack_int* iwork, lapack_int* info ); + float* work, lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD) -lapack_int LAPACK_dggsvd( +#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD) +lapack_int LAPACK_dggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3709,24 +5323,19 @@ lapack_int LAPACK_dggsvd( double* u, lapack_int const* ldu, double* v, lapack_int const* ldv, double* q, lapack_int const* ldq, - double* work, lapack_int* iwork, lapack_int* info ); - -#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD) -lapack_int LAPACK_cggsvd( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int const* lda, - lapack_complex_float* b, lapack_int const* ldb, - float* alpha, float* beta, - lapack_complex_float* u, lapack_int const* ldu, - lapack_complex_float* v, lapack_int const* ldv, - lapack_complex_float* q, lapack_int const* ldq, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* info ); + double* work, lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD) -lapack_int LAPACK_zggsvd( +#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD) +lapack_int LAPACK_zggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3737,10 +5346,19 @@ lapack_int LAPACK_zggsvd( lapack_complex_double* v, lapack_int const* ldv, lapack_complex_double* q, lapack_int const* ldq, lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* info ); + lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3) -void LAPACK_cggsvd3( +#define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3) +void LAPACK_cggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, lapack_complex_float* A, lapack_int const* lda, @@ -3753,10 +5371,19 @@ void LAPACK_cggsvd3( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvd3 LAPACK_GLOBAL(dggsvd3,DGGSVD3) -void LAPACK_dggsvd3( +#define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3) +void LAPACK_dggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, double* A, lapack_int const* lda, @@ -3768,10 +5395,19 @@ void LAPACK_dggsvd3( double* Q, lapack_int const* ldq, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvd3 LAPACK_GLOBAL(sggsvd3,SGGSVD3) -void LAPACK_sggsvd3( +#define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3) +void LAPACK_sggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, float* A, lapack_int const* lda, @@ -3783,10 +5419,19 @@ void LAPACK_sggsvd3( float* Q, lapack_int const* ldq, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvd3 LAPACK_GLOBAL(zggsvd3,ZGGSVD3) -void LAPACK_zggsvd3( +#define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3) +void LAPACK_zggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, lapack_complex_double* A, lapack_int const* lda, @@ -3799,10 +5444,19 @@ void LAPACK_zggsvd3( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP) -lapack_int LAPACK_sggsvp( +#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP) +lapack_int LAPACK_sggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, float* a, lapack_int const* lda, @@ -3813,10 +5467,19 @@ lapack_int LAPACK_sggsvp( float* v, lapack_int const* ldv, float* q, lapack_int const* ldq, lapack_int* iwork, float* tau, - float* work, lapack_int* info ); + float* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP) -lapack_int LAPACK_dggsvp( +#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP) +lapack_int LAPACK_dggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, double* a, lapack_int const* lda, @@ -3827,10 +5490,19 @@ lapack_int LAPACK_dggsvp( double* v, lapack_int const* ldv, double* q, lapack_int const* ldq, lapack_int* iwork, double* tau, - double* work, lapack_int* info ); + double* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP) -lapack_int LAPACK_cggsvp( +#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP) +lapack_int LAPACK_cggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_float* a, lapack_int const* lda, @@ -3840,10 +5512,19 @@ lapack_int LAPACK_cggsvp( lapack_complex_float* v, lapack_int const* ldv, lapack_complex_float* q, lapack_int const* ldq, lapack_int* iwork, float* rwork, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int* info ); + lapack_complex_float* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP) -lapack_int LAPACK_zggsvp( +#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP) +lapack_int LAPACK_zggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_double* a, lapack_int const* lda, @@ -3853,10 +5534,19 @@ lapack_int LAPACK_zggsvp( lapack_complex_double* v, lapack_int const* ldv, lapack_complex_double* q, lapack_int const* ldq, lapack_int* iwork, double* rwork, lapack_complex_double* tau, - lapack_complex_double* work, lapack_int* info ); + lapack_complex_double* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3) -void LAPACK_cggsvp3( +#define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3) +void LAPACK_cggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3870,10 +5560,19 @@ void LAPACK_cggsvp3( float* rwork, lapack_complex_float* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvp3 LAPACK_GLOBAL(dggsvp3,DGGSVP3) -void LAPACK_dggsvp3( +#define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3) +void LAPACK_dggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, double* A, lapack_int const* lda, @@ -3886,10 +5585,19 @@ void LAPACK_dggsvp3( lapack_int* iwork, double* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvp3 LAPACK_GLOBAL(sggsvp3,SGGSVP3) -void LAPACK_sggsvp3( +#define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3) +void LAPACK_sggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, float* A, lapack_int const* lda, @@ -3902,10 +5610,19 @@ void LAPACK_sggsvp3( lapack_int* iwork, float* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvp3 LAPACK_GLOBAL(zggsvp3,ZGGSVP3) -void LAPACK_zggsvp3( +#define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3) +void LAPACK_zggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3919,10 +5636,19 @@ void LAPACK_zggsvp3( double* rwork, lapack_complex_double* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_cgtcon LAPACK_GLOBAL(cgtcon,CGTCON) -void LAPACK_cgtcon( +#define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON) +void LAPACK_cgtcon_base( char const* norm, lapack_int const* n, lapack_complex_float const* DL, @@ -3932,10 +5658,19 @@ void LAPACK_cgtcon( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_dgtcon LAPACK_GLOBAL(dgtcon,DGTCON) -void LAPACK_dgtcon( +#define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON) +void LAPACK_dgtcon_base( char const* norm, lapack_int const* n, double const* DL, @@ -3946,10 +5681,19 @@ void LAPACK_dgtcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_sgtcon LAPACK_GLOBAL(sgtcon,SGTCON) -void LAPACK_sgtcon( +#define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON) +void LAPACK_sgtcon_base( char const* norm, lapack_int const* n, float const* DL, @@ -3960,10 +5704,19 @@ void LAPACK_sgtcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_zgtcon LAPACK_GLOBAL(zgtcon,ZGTCON) -void LAPACK_zgtcon( +#define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON) +void LAPACK_zgtcon_base( char const* norm, lapack_int const* n, lapack_complex_double const* DL, @@ -3973,10 +5726,19 @@ void LAPACK_zgtcon( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_cgtrfs LAPACK_GLOBAL(cgtrfs,CGTRFS) -void LAPACK_cgtrfs( +#define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS) +void LAPACK_cgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -3992,10 +5754,19 @@ void LAPACK_cgtrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgtrfs LAPACK_GLOBAL(dgtrfs,DGTRFS) -void LAPACK_dgtrfs( +#define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS) +void LAPACK_dgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4011,10 +5782,19 @@ void LAPACK_dgtrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgtrfs LAPACK_GLOBAL(sgtrfs,SGTRFS) -void LAPACK_sgtrfs( +#define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS) +void LAPACK_sgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4030,10 +5810,19 @@ void LAPACK_sgtrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgtrfs LAPACK_GLOBAL(zgtrfs,ZGTRFS) -void LAPACK_zgtrfs( +#define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS) +void LAPACK_zgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4049,7 +5838,16 @@ void LAPACK_zgtrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__) +#endif #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV) void LAPACK_cgtsv( @@ -4087,8 +5885,8 @@ void LAPACK_zgtsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cgtsvx LAPACK_GLOBAL(cgtsvx,CGTSVX) -void LAPACK_cgtsvx( +#define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX) +void LAPACK_cgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -4105,10 +5903,19 @@ void LAPACK_cgtsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgtsvx LAPACK_GLOBAL(dgtsvx,DGTSVX) -void LAPACK_dgtsvx( +#define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX) +void LAPACK_dgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4125,10 +5932,19 @@ void LAPACK_dgtsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgtsvx LAPACK_GLOBAL(sgtsvx,SGTSVX) -void LAPACK_sgtsvx( +#define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX) +void LAPACK_sgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4145,10 +5961,19 @@ void LAPACK_sgtsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgtsvx LAPACK_GLOBAL(zgtsvx,ZGTSVX) -void LAPACK_zgtsvx( +#define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX) +void LAPACK_zgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4165,7 +5990,16 @@ void LAPACK_zgtsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__) +#endif #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF) void LAPACK_cgttrf( @@ -4203,8 +6037,8 @@ void LAPACK_zgttrf( lapack_complex_double* DU2, lapack_int* ipiv, lapack_int* info ); -#define LAPACK_cgttrs LAPACK_GLOBAL(cgttrs,CGTTRS) -void LAPACK_cgttrs( +#define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS) +void LAPACK_cgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -4212,10 +6046,19 @@ void LAPACK_cgttrs( lapack_complex_float const* DU, lapack_complex_float const* DU2, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_dgttrs LAPACK_GLOBAL(dgttrs,DGTTRS) -void LAPACK_dgttrs( +#define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS) +void LAPACK_dgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4223,10 +6066,19 @@ void LAPACK_dgttrs( double const* DU, double const* DU2, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgttrs LAPACK_GLOBAL(sgttrs,SGTTRS) -void LAPACK_sgttrs( +#define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS) +void LAPACK_sgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4234,10 +6086,19 @@ void LAPACK_sgttrs( float const* DU, float const* DU2, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgttrs LAPACK_GLOBAL(zgttrs,ZGTTRS) -void LAPACK_zgttrs( +#define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS) +void LAPACK_zgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4245,10 +6106,19 @@ void LAPACK_zgttrs( lapack_complex_double const* DU, lapack_complex_double const* DU2, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_chbev LAPACK_GLOBAL(chbev,CHBEV) -void LAPACK_chbev( +#define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV) +void LAPACK_chbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4256,10 +6126,19 @@ void LAPACK_chbev( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__) +#endif -#define LAPACK_zhbev LAPACK_GLOBAL(zhbev,ZHBEV) -void LAPACK_zhbev( +#define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV) +void LAPACK_zhbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4267,10 +6146,19 @@ void LAPACK_zhbev( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__) +#endif -#define LAPACK_chbev_2stage LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE) -void LAPACK_chbev_2stage( +#define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE) +void LAPACK_chbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4278,10 +6166,19 @@ void LAPACK_chbev_2stage( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbev_2stage LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE) -void LAPACK_zhbev_2stage( +#define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE) +void LAPACK_zhbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4289,10 +6186,19 @@ void LAPACK_zhbev_2stage( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbevd LAPACK_GLOBAL(chbevd,CHBEVD) -void LAPACK_chbevd( +#define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD) +void LAPACK_chbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4301,10 +6207,19 @@ void LAPACK_chbevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevd LAPACK_GLOBAL(zhbevd,ZHBEVD) -void LAPACK_zhbevd( +#define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD) +void LAPACK_zhbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4313,10 +6228,19 @@ void LAPACK_zhbevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__) +#endif -#define LAPACK_chbevd_2stage LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE) -void LAPACK_chbevd_2stage( +#define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE) +void LAPACK_chbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4325,10 +6249,19 @@ void LAPACK_chbevd_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevd_2stage LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE) -void LAPACK_zhbevd_2stage( +#define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE) +void LAPACK_zhbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4337,10 +6270,19 @@ void LAPACK_zhbevd_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbevx LAPACK_GLOBAL(chbevx,CHBEVX) -void LAPACK_chbevx( +#define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX) +void LAPACK_chbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4353,10 +6295,19 @@ void LAPACK_chbevx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevx LAPACK_GLOBAL(zhbevx,ZHBEVX) -void LAPACK_zhbevx( +#define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX) +void LAPACK_zhbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4369,10 +6320,19 @@ void LAPACK_zhbevx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__) +#endif -#define LAPACK_chbevx_2stage LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE) -void LAPACK_chbevx_2stage( +#define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE) +void LAPACK_chbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4385,10 +6345,19 @@ void LAPACK_chbevx_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevx_2stage LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE) -void LAPACK_zhbevx_2stage( +#define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE) +void LAPACK_zhbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4401,10 +6370,19 @@ void LAPACK_zhbevx_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbgst LAPACK_GLOBAL(chbgst,CHBGST) -void LAPACK_chbgst( +#define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST) +void LAPACK_chbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4412,10 +6390,19 @@ void LAPACK_chbgst( lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgst LAPACK_GLOBAL(zhbgst,ZHBGST) -void LAPACK_zhbgst( +#define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST) +void LAPACK_zhbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4423,10 +6410,19 @@ void LAPACK_zhbgst( lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__) +#endif -#define LAPACK_chbgv LAPACK_GLOBAL(chbgv,CHBGV) -void LAPACK_chbgv( +#define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV) +void LAPACK_chbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4435,10 +6431,19 @@ void LAPACK_chbgv( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgv LAPACK_GLOBAL(zhbgv,ZHBGV) -void LAPACK_zhbgv( +#define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV) +void LAPACK_zhbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4447,10 +6452,19 @@ void LAPACK_zhbgv( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__) +#endif -#define LAPACK_chbgvd LAPACK_GLOBAL(chbgvd,CHBGVD) -void LAPACK_chbgvd( +#define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD) +void LAPACK_chbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4460,10 +6474,19 @@ void LAPACK_chbgvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgvd LAPACK_GLOBAL(zhbgvd,ZHBGVD) -void LAPACK_zhbgvd( +#define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD) +void LAPACK_zhbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4473,10 +6496,19 @@ void LAPACK_zhbgvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_chbgvx LAPACK_GLOBAL(chbgvx,CHBGVX) -void LAPACK_chbgvx( +#define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX) +void LAPACK_chbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4490,10 +6522,19 @@ void LAPACK_chbgvx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgvx LAPACK_GLOBAL(zhbgvx,ZHBGVX) -void LAPACK_zhbgvx( +#define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX) +void LAPACK_zhbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4507,10 +6548,19 @@ void LAPACK_zhbgvx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_chbtrd LAPACK_GLOBAL(chbtrd,CHBTRD) -void LAPACK_chbtrd( +#define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD) +void LAPACK_chbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4518,10 +6568,19 @@ void LAPACK_chbtrd( float* E, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbtrd LAPACK_GLOBAL(zhbtrd,ZHBTRD) -void LAPACK_zhbtrd( +#define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD) +void LAPACK_zhbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4529,30 +6588,57 @@ void LAPACK_zhbtrd( double* E, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_checon LAPACK_GLOBAL(checon,CHECON) -void LAPACK_checon( +#define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON) +void LAPACK_checon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1) +#else + #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__) +#endif -#define LAPACK_zhecon LAPACK_GLOBAL(zhecon,ZHECON) -void LAPACK_zhecon( +#define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON) +void LAPACK_zhecon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__) +#endif -#define LAPACK_checon_3 LAPACK_GLOBAL(checon_3,CHECON_3) -void LAPACK_checon_3( +#define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3) +void LAPACK_checon_3_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -4560,10 +6646,19 @@ void LAPACK_checon_3( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhecon_3 LAPACK_GLOBAL(zhecon_3,ZHECON_3) -void LAPACK_zhecon_3( +#define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3) +void LAPACK_zhecon_3_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -4571,10 +6666,19 @@ void LAPACK_zhecon_3( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__) +#endif -#define LAPACK_cheequb LAPACK_GLOBAL(cheequb,CHEEQUB) -void LAPACK_cheequb( +#define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB) +void LAPACK_cheequb_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -4582,10 +6686,19 @@ void LAPACK_cheequb( float* scond, float* amax, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__) +#endif -#define LAPACK_zheequb LAPACK_GLOBAL(zheequb,ZHEEQUB) -void LAPACK_zheequb( +#define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB) +void LAPACK_zheequb_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -4593,50 +6706,95 @@ void LAPACK_zheequb( double* scond, double* amax, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__) +#endif -#define LAPACK_cheev LAPACK_GLOBAL(cheev,CHEEV) -void LAPACK_cheev( +#define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV) +void LAPACK_cheev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__) +#endif -#define LAPACK_zheev LAPACK_GLOBAL(zheev,ZHEEV) -void LAPACK_zheev( +#define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV) +void LAPACK_zheev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__) +#endif -#define LAPACK_cheev_2stage LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE) -void LAPACK_cheev_2stage( +#define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE) +void LAPACK_cheev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheev_2stage LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE) -void LAPACK_zheev_2stage( +#define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE) +void LAPACK_zheev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevd LAPACK_GLOBAL(cheevd,CHEEVD) -void LAPACK_cheevd( +#define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD) +void LAPACK_cheevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4644,10 +6802,19 @@ void LAPACK_cheevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__) +#endif -#define LAPACK_zheevd LAPACK_GLOBAL(zheevd,ZHEEVD) -void LAPACK_zheevd( +#define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD) +void LAPACK_zheevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4655,10 +6822,19 @@ void LAPACK_zheevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__) +#endif -#define LAPACK_cheevd_2stage LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE) -void LAPACK_cheevd_2stage( +#define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE) +void LAPACK_cheevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4666,10 +6842,19 @@ void LAPACK_cheevd_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevd_2stage LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE) -void LAPACK_zheevd_2stage( +#define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE) +void LAPACK_zheevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4677,10 +6862,19 @@ void LAPACK_zheevd_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevr LAPACK_GLOBAL(cheevr,CHEEVR) -void LAPACK_cheevr( +#define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR) +void LAPACK_cheevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4692,10 +6886,19 @@ void LAPACK_cheevr( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__) +#endif -#define LAPACK_zheevr LAPACK_GLOBAL(zheevr,ZHEEVR) -void LAPACK_zheevr( +#define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR) +void LAPACK_zheevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4707,10 +6910,19 @@ void LAPACK_zheevr( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__) +#endif -#define LAPACK_cheevr_2stage LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE) -void LAPACK_cheevr_2stage( +#define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE) +void LAPACK_cheevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4722,10 +6934,19 @@ void LAPACK_cheevr_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevr_2stage LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE) -void LAPACK_zheevr_2stage( +#define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE) +void LAPACK_zheevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4737,10 +6958,19 @@ void LAPACK_zheevr_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevx LAPACK_GLOBAL(cheevx,CHEEVX) -void LAPACK_cheevx( +#define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX) +void LAPACK_cheevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4752,10 +6982,19 @@ void LAPACK_cheevx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__) +#endif -#define LAPACK_zheevx LAPACK_GLOBAL(zheevx,ZHEEVX) -void LAPACK_zheevx( +#define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX) +void LAPACK_zheevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4767,10 +7006,19 @@ void LAPACK_zheevx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__) +#endif -#define LAPACK_cheevx_2stage LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE) -void LAPACK_cheevx_2stage( +#define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE) +void LAPACK_cheevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4782,10 +7030,19 @@ void LAPACK_cheevx_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevx_2stage LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE) -void LAPACK_zheevx_2stage( +#define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE) +void LAPACK_zheevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4797,26 +7054,53 @@ void LAPACK_zheevx_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chegst LAPACK_GLOBAL(chegst,CHEGST) -void LAPACK_chegst( +#define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST) +void LAPACK_chegst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, const lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1) +#else + #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__) +#endif -#define LAPACK_zhegst LAPACK_GLOBAL(zhegst,ZHEGST) -void LAPACK_zhegst( +#define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST) +void LAPACK_zhegst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, const lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__) +#endif -#define LAPACK_chegv LAPACK_GLOBAL(chegv,CHEGV) -void LAPACK_chegv( +#define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV) +void LAPACK_chegv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4824,10 +7108,19 @@ void LAPACK_chegv( float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__) +#endif -#define LAPACK_zhegv LAPACK_GLOBAL(zhegv,ZHEGV) -void LAPACK_zhegv( +#define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV) +void LAPACK_zhegv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4835,10 +7128,19 @@ void LAPACK_zhegv( double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__) +#endif -#define LAPACK_chegv_2stage LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE) -void LAPACK_chegv_2stage( +#define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE) +void LAPACK_chegv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4846,10 +7148,19 @@ void LAPACK_chegv_2stage( float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhegv_2stage LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE) -void LAPACK_zhegv_2stage( +#define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE) +void LAPACK_zhegv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4857,10 +7168,19 @@ void LAPACK_zhegv_2stage( double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chegvd LAPACK_GLOBAL(chegvd,CHEGVD) -void LAPACK_chegvd( +#define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD) +void LAPACK_chegvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4869,10 +7189,19 @@ void LAPACK_chegvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhegvd LAPACK_GLOBAL(zhegvd,ZHEGVD) -void LAPACK_zhegvd( +#define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD) +void LAPACK_zhegvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4881,10 +7210,19 @@ void LAPACK_zhegvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__) +#endif -#define LAPACK_chegvx LAPACK_GLOBAL(chegvx,CHEGVX) -void LAPACK_chegvx( +#define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX) +void LAPACK_chegvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4897,10 +7235,19 @@ void LAPACK_chegvx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhegvx LAPACK_GLOBAL(zhegvx,ZHEGVX) -void LAPACK_zhegvx( +#define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX) +void LAPACK_zhegvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4913,10 +7260,19 @@ void LAPACK_zhegvx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__) +#endif -#define LAPACK_cherfs LAPACK_GLOBAL(cherfs,CHERFS) -void LAPACK_cherfs( +#define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS) +void LAPACK_cherfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -4927,10 +7283,19 @@ void LAPACK_cherfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__) +#endif -#define LAPACK_zherfs LAPACK_GLOBAL(zherfs,ZHERFS) -void LAPACK_zherfs( +#define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS) +void LAPACK_zherfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -4941,10 +7306,19 @@ void LAPACK_zherfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__) +#endif -#define LAPACK_cherfsx LAPACK_GLOBAL(cherfsx,CHERFSX) -void LAPACK_cherfsx( +#define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX) +void LAPACK_cherfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -4959,10 +7333,19 @@ void LAPACK_cherfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zherfsx LAPACK_GLOBAL(zherfsx,ZHERFSX) -void LAPACK_zherfsx( +#define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX) +void LAPACK_zherfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -4977,104 +7360,203 @@ void LAPACK_zherfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__) +#endif -#define LAPACK_chesv LAPACK_GLOBAL(chesv,CHESV) -void LAPACK_chesv( +#define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV) +void LAPACK_chesv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv LAPACK_GLOBAL(zhesv,ZHESV) -void LAPACK_zhesv( +#define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV) +void LAPACK_zhesv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_aa LAPACK_GLOBAL(chesv_aa,CHESV_AA) -void LAPACK_chesv_aa( +#define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA) +void LAPACK_chesv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_aa LAPACK_GLOBAL(zhesv_aa,ZHESV_AA) -void LAPACK_zhesv_aa( +#define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA) +void LAPACK_zhesv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_aa_2stage LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE) -void LAPACK_chesv_aa_2stage( +#define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE) +void LAPACK_chesv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_aa_2stage LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE) -void LAPACK_zhesv_aa_2stage( +#define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE) +void LAPACK_zhesv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_rk LAPACK_GLOBAL(chesv_rk,CHESV_RK) -void LAPACK_chesv_rk( +#define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK) +void LAPACK_chesv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_rk LAPACK_GLOBAL(zhesv_rk,ZHESV_RK) -void LAPACK_zhesv_rk( +#define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK) +void LAPACK_zhesv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_rook LAPACK_GLOBAL(chesv_rook,CHESV_ROOK) -void LAPACK_chesv_rook( +#define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK) +void LAPACK_chesv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_rook LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK) -void LAPACK_zhesv_rook( +#define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK) +void LAPACK_zhesv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chesvx LAPACK_GLOBAL(chesvx,CHESVX) -void LAPACK_chesvx( +#define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX) +void LAPACK_chesvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -5086,10 +7568,19 @@ void LAPACK_chesvx( float* berr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhesvx LAPACK_GLOBAL(zhesvx,ZHESVX) -void LAPACK_zhesvx( +#define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX) +void LAPACK_zhesvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -5101,10 +7592,19 @@ void LAPACK_zhesvx( double* berr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__) +#endif -#define LAPACK_chesvxx LAPACK_GLOBAL(chesvxx,CHESVXX) -void LAPACK_chesvxx( +#define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX) +void LAPACK_chesvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -5121,10 +7621,19 @@ void LAPACK_chesvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zhesvxx LAPACK_GLOBAL(zhesvxx,ZHESVXX) -void LAPACK_zhesvxx( +#define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX) +void LAPACK_zhesvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -5141,22 +7650,49 @@ void LAPACK_zhesvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_cheswapr LAPACK_GLOBAL(cheswapr,CHESWAPR) -void LAPACK_cheswapr( +#define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR) +void LAPACK_cheswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__) +#endif -#define LAPACK_zheswapr LAPACK_GLOBAL(zheswapr,ZHESWAPR) -void LAPACK_zheswapr( +#define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR) +void LAPACK_zheswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__) +#endif -#define LAPACK_chetrd LAPACK_GLOBAL(chetrd,CHETRD) -void LAPACK_chetrd( +#define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD) +void LAPACK_chetrd_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -5164,10 +7700,19 @@ void LAPACK_chetrd( float* E, lapack_complex_float* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrd LAPACK_GLOBAL(zhetrd,ZHETRD) -void LAPACK_zhetrd( +#define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD) +void LAPACK_zhetrd_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -5175,10 +7720,19 @@ void LAPACK_zhetrd( double* E, lapack_complex_double* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__) +#endif -#define LAPACK_chetrd_2stage LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE) -void LAPACK_chetrd_2stage( +#define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE) +void LAPACK_chetrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -5187,10 +7741,19 @@ void LAPACK_chetrd_2stage( lapack_complex_float* tau, lapack_complex_float* HOUS2, lapack_int const* lhous2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrd_2stage LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE) -void LAPACK_zhetrd_2stage( +#define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE) +void LAPACK_zhetrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -5199,282 +7762,579 @@ void LAPACK_zhetrd_2stage( lapack_complex_double* tau, lapack_complex_double* HOUS2, lapack_int const* lhous2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf LAPACK_GLOBAL(chetrf,CHETRF) -void LAPACK_chetrf( +#define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF) +void LAPACK_chetrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf LAPACK_GLOBAL(zhetrf,ZHETRF) -void LAPACK_zhetrf( +#define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF) +void LAPACK_zhetrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_aa LAPACK_GLOBAL(chetrf_aa,CHETRF_AA) -void LAPACK_chetrf_aa( +#define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA) +void LAPACK_chetrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_aa LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA) -void LAPACK_zhetrf_aa( +#define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA) +void LAPACK_zhetrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_aa_2stage LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE) -void LAPACK_chetrf_aa_2stage( +#define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE) +void LAPACK_chetrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_aa_2stage LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE) -void LAPACK_zhetrf_aa_2stage( +#define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE) +void LAPACK_zhetrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_rk LAPACK_GLOBAL(chetrf_rk,CHETRF_RK) -void LAPACK_chetrf_rk( +#define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK) +void LAPACK_chetrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_rk LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK) -void LAPACK_zhetrf_rk( +#define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK) +void LAPACK_zhetrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_rook LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK) -void LAPACK_chetrf_rook( +#define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK) +void LAPACK_chetrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_rook LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK) -void LAPACK_zhetrf_rook( +#define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK) +void LAPACK_zhetrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chetri LAPACK_GLOBAL(chetri,CHETRI) -void LAPACK_chetri( +#define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI) +void LAPACK_chetri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri LAPACK_GLOBAL(zhetri,ZHETRI) -void LAPACK_zhetri( +#define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI) +void LAPACK_zhetri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__) +#endif -#define LAPACK_chetri2 LAPACK_GLOBAL(chetri2,CHETRI2) -void LAPACK_chetri2( +#define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2) +void LAPACK_chetri2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri2 LAPACK_GLOBAL(zhetri2,ZHETRI2) -void LAPACK_zhetri2( +#define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2) +void LAPACK_zhetri2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__) +#endif -#define LAPACK_chetri2x LAPACK_GLOBAL(chetri2x,CHETRI2X) -void LAPACK_chetri2x( +#define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X) +void LAPACK_chetri2x_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri2x LAPACK_GLOBAL(zhetri2x,ZHETRI2X) -void LAPACK_zhetri2x( +#define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X) +void LAPACK_zhetri2x_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__) +#endif -#define LAPACK_chetri_3 LAPACK_GLOBAL(chetri_3,CHETRI_3) -void LAPACK_chetri_3( +#define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3) +void LAPACK_chetri_3_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri_3 LAPACK_GLOBAL(zhetri_3,ZHETRI_3) -void LAPACK_zhetri_3( +#define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3) +void LAPACK_zhetri_3_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs LAPACK_GLOBAL(chetrs,CHETRS) -void LAPACK_chetrs( +#define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS) +void LAPACK_chetrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs LAPACK_GLOBAL(zhetrs,ZHETRS) -void LAPACK_zhetrs( +#define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS) +void LAPACK_zhetrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs2 LAPACK_GLOBAL(chetrs2,CHETRS2) -void LAPACK_chetrs2( +#define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2) +void LAPACK_chetrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs2 LAPACK_GLOBAL(zhetrs2,ZHETRS2) -void LAPACK_zhetrs2( +#define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2) +void LAPACK_zhetrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_3 LAPACK_GLOBAL(chetrs_3,CHETRS_3) -void LAPACK_chetrs_3( +#define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3) +void LAPACK_chetrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_3 LAPACK_GLOBAL(zhetrs_3,ZHETRS_3) -void LAPACK_zhetrs_3( +#define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3) +void LAPACK_zhetrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_aa LAPACK_GLOBAL(chetrs_aa,CHETRS_AA) -void LAPACK_chetrs_aa( +#define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA) +void LAPACK_chetrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_aa LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA) -void LAPACK_zhetrs_aa( +#define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA) +void LAPACK_zhetrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_aa_2stage LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE) -void LAPACK_chetrs_aa_2stage( +#define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE) +void LAPACK_chetrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_aa_2stage LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE) -void LAPACK_zhetrs_aa_2stage( +#define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE) +void LAPACK_zhetrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_rook LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK) -void LAPACK_chetrs_rook( +#define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK) +void LAPACK_chetrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_rook LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK) -void LAPACK_zhetrs_rook( +#define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK) +void LAPACK_zhetrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chfrk LAPACK_GLOBAL(chfrk,CHFRK) -void LAPACK_chfrk( +#define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK) +void LAPACK_chfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, float const* alpha, lapack_complex_float const* A, lapack_int const* lda, float const* beta, - lapack_complex_float* C ); + lapack_complex_float* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__) +#endif -#define LAPACK_zhfrk LAPACK_GLOBAL(zhfrk,ZHFRK) -void LAPACK_zhfrk( +#define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK) +void LAPACK_zhfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, double const* alpha, lapack_complex_double const* A, lapack_int const* lda, double const* beta, - lapack_complex_double* C ); + lapack_complex_double* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__) +#endif -#define LAPACK_chgeqz LAPACK_GLOBAL(chgeqz,CHGEQZ) -void LAPACK_chgeqz( +#define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ) +void LAPACK_chgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* H, lapack_int const* ldh, @@ -5485,10 +8345,19 @@ void LAPACK_chgeqz( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_dhgeqz LAPACK_GLOBAL(dhgeqz,DHGEQZ) -void LAPACK_dhgeqz( +#define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ) +void LAPACK_dhgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* H, lapack_int const* ldh, @@ -5499,10 +8368,19 @@ void LAPACK_dhgeqz( double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_shgeqz LAPACK_GLOBAL(shgeqz,SHGEQZ) -void LAPACK_shgeqz( +#define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ) +void LAPACK_shgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* H, lapack_int const* ldh, @@ -5513,10 +8391,19 @@ void LAPACK_shgeqz( float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_zhgeqz LAPACK_GLOBAL(zhgeqz,ZHGEQZ) -void LAPACK_zhgeqz( +#define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ) +void LAPACK_zhgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* H, lapack_int const* ldh, @@ -5527,30 +8414,57 @@ void LAPACK_zhgeqz( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_chpcon LAPACK_GLOBAL(chpcon,CHPCON) -void LAPACK_chpcon( +#define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON) +void LAPACK_chpcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__) +#endif -#define LAPACK_zhpcon LAPACK_GLOBAL(zhpcon,ZHPCON) -void LAPACK_zhpcon( +#define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON) +void LAPACK_zhpcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__) +#endif -#define LAPACK_chpev LAPACK_GLOBAL(chpev,CHPEV) -void LAPACK_chpev( +#define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV) +void LAPACK_chpev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5558,10 +8472,19 @@ void LAPACK_chpev( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__) +#endif -#define LAPACK_zhpev LAPACK_GLOBAL(zhpev,ZHPEV) -void LAPACK_zhpev( +#define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV) +void LAPACK_zhpev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5569,10 +8492,19 @@ void LAPACK_zhpev( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__) +#endif -#define LAPACK_chpevd LAPACK_GLOBAL(chpevd,CHPEVD) -void LAPACK_chpevd( +#define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD) +void LAPACK_chpevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5581,10 +8513,19 @@ void LAPACK_chpevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__) +#endif -#define LAPACK_zhpevd LAPACK_GLOBAL(zhpevd,ZHPEVD) -void LAPACK_zhpevd( +#define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD) +void LAPACK_zhpevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5593,10 +8534,19 @@ void LAPACK_zhpevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__) +#endif -#define LAPACK_chpevx LAPACK_GLOBAL(chpevx,CHPEVX) -void LAPACK_chpevx( +#define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX) +void LAPACK_chpevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5608,10 +8558,19 @@ void LAPACK_chpevx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpevx LAPACK_GLOBAL(zhpevx,ZHPEVX) -void LAPACK_zhpevx( +#define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX) +void LAPACK_zhpevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5623,26 +8582,53 @@ void LAPACK_zhpevx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__) +#endif -#define LAPACK_chpgst LAPACK_GLOBAL(chpgst,CHPGST) -void LAPACK_chpgst( +#define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST) +void LAPACK_chpgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_complex_float const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgst LAPACK_GLOBAL(zhpgst,ZHPGST) -void LAPACK_zhpgst( +#define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST) +void LAPACK_zhpgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_complex_double const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__) +#endif -#define LAPACK_chpgv LAPACK_GLOBAL(chpgv,CHPGV) -void LAPACK_chpgv( +#define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV) +void LAPACK_chpgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5651,10 +8637,19 @@ void LAPACK_chpgv( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgv LAPACK_GLOBAL(zhpgv,ZHPGV) -void LAPACK_zhpgv( +#define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV) +void LAPACK_zhpgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5663,10 +8658,19 @@ void LAPACK_zhpgv( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__) +#endif -#define LAPACK_chpgvd LAPACK_GLOBAL(chpgvd,CHPGVD) -void LAPACK_chpgvd( +#define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD) +void LAPACK_chpgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5676,10 +8680,19 @@ void LAPACK_chpgvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgvd LAPACK_GLOBAL(zhpgvd,ZHPGVD) -void LAPACK_zhpgvd( +#define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD) +void LAPACK_zhpgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5689,10 +8702,19 @@ void LAPACK_zhpgvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__) +#endif -#define LAPACK_chpgvx LAPACK_GLOBAL(chpgvx,CHPGVX) -void LAPACK_chpgvx( +#define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX) +void LAPACK_chpgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5705,10 +8727,19 @@ void LAPACK_chpgvx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgvx LAPACK_GLOBAL(zhpgvx,ZHPGVX) -void LAPACK_zhpgvx( +#define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX) +void LAPACK_zhpgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5721,10 +8752,19 @@ void LAPACK_zhpgvx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__) +#endif -#define LAPACK_chprfs LAPACK_GLOBAL(chprfs,CHPRFS) -void LAPACK_chprfs( +#define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS) +void LAPACK_chprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -5735,10 +8775,19 @@ void LAPACK_chprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zhprfs LAPACK_GLOBAL(zhprfs,ZHPRFS) -void LAPACK_zhprfs( +#define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS) +void LAPACK_zhprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -5749,26 +8798,53 @@ void LAPACK_zhprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__) +#endif -#define LAPACK_chpsv LAPACK_GLOBAL(chpsv,CHPSV) -void LAPACK_chpsv( +#define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV) +void LAPACK_chpsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__) +#endif -#define LAPACK_zhpsv LAPACK_GLOBAL(zhpsv,ZHPSV) -void LAPACK_zhpsv( +#define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV) +void LAPACK_zhpsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__) +#endif -#define LAPACK_chpsvx LAPACK_GLOBAL(chpsvx,CHPSVX) -void LAPACK_chpsvx( +#define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX) +void LAPACK_chpsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -5780,10 +8856,19 @@ void LAPACK_chpsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpsvx LAPACK_GLOBAL(zhpsvx,ZHPSVX) -void LAPACK_zhpsvx( +#define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX) +void LAPACK_zhpsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -5795,76 +8880,157 @@ void LAPACK_zhpsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__) +#endif -#define LAPACK_chptrd LAPACK_GLOBAL(chptrd,CHPTRD) -void LAPACK_chptrd( +#define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD) +void LAPACK_chptrd_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, float* D, float* E, lapack_complex_float* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrd LAPACK_GLOBAL(zhptrd,ZHPTRD) -void LAPACK_zhptrd( +#define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD) +void LAPACK_zhptrd_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, double* D, double* E, lapack_complex_double* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__) +#endif -#define LAPACK_chptrf LAPACK_GLOBAL(chptrf,CHPTRF) -void LAPACK_chptrf( +#define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF) +void LAPACK_chptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrf LAPACK_GLOBAL(zhptrf,ZHPTRF) -void LAPACK_zhptrf( +#define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF) +void LAPACK_zhptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__) +#endif -#define LAPACK_chptri LAPACK_GLOBAL(chptri,CHPTRI) -void LAPACK_chptri( +#define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI) +void LAPACK_chptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__) +#endif -#define LAPACK_zhptri LAPACK_GLOBAL(zhptri,ZHPTRI) -void LAPACK_zhptri( +#define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI) +void LAPACK_zhptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__) +#endif -#define LAPACK_chptrs LAPACK_GLOBAL(chptrs,CHPTRS) -void LAPACK_chptrs( +#define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS) +void LAPACK_chptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrs LAPACK_GLOBAL(zhptrs,ZHPTRS) -void LAPACK_zhptrs( +#define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS) +void LAPACK_zhptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__) +#endif -#define LAPACK_chsein LAPACK_GLOBAL(chsein,CHSEIN) -void LAPACK_chsein( +#define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN) +void LAPACK_chsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical const* select, lapack_int const* n, @@ -5874,10 +9040,19 @@ void LAPACK_chsein( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__) +#endif -#define LAPACK_dhsein LAPACK_GLOBAL(dhsein,DHSEIN) -void LAPACK_dhsein( +#define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN) +void LAPACK_dhsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical* select, lapack_int const* n, @@ -5887,10 +9062,19 @@ void LAPACK_dhsein( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__) +#endif -#define LAPACK_shsein LAPACK_GLOBAL(shsein,SHSEIN) -void LAPACK_shsein( +#define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN) +void LAPACK_shsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical* select, lapack_int const* n, @@ -5900,10 +9084,19 @@ void LAPACK_shsein( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__) +#endif -#define LAPACK_zhsein LAPACK_GLOBAL(zhsein,ZHSEIN) -void LAPACK_zhsein( +#define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN) +void LAPACK_zhsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical const* select, lapack_int const* n, @@ -5913,20 +9106,38 @@ void LAPACK_zhsein( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__) +#endif -#define LAPACK_chseqr LAPACK_GLOBAL(chseqr,CHSEQR) -void LAPACK_chseqr( +#define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR) +void LAPACK_chseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* H, lapack_int const* ldh, lapack_complex_float* W, lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__) +#endif -#define LAPACK_dhseqr LAPACK_GLOBAL(dhseqr,DHSEQR) -void LAPACK_dhseqr( +#define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR) +void LAPACK_dhseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* H, lapack_int const* ldh, @@ -5934,10 +9145,19 @@ void LAPACK_dhseqr( double* WI, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__) +#endif -#define LAPACK_shseqr LAPACK_GLOBAL(shseqr,SHSEQR) -void LAPACK_shseqr( +#define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR) +void LAPACK_shseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* H, lapack_int const* ldh, @@ -5945,17 +9165,35 @@ void LAPACK_shseqr( float* WI, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__) +#endif -#define LAPACK_zhseqr LAPACK_GLOBAL(zhseqr,ZHSEQR) -void LAPACK_zhseqr( +#define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR) +void LAPACK_zhseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* H, lapack_int const* ldh, lapack_complex_double* W, lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__) +#endif #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV) void LAPACK_clacgv( @@ -5995,47 +9233,101 @@ void LAPACK_zlacn2( lapack_complex_double* X, double* est, lapack_int* kase, lapack_int* ISAVE ); -#define LAPACK_clacp2 LAPACK_GLOBAL(clacp2,CLACP2) -void LAPACK_clacp2( +#define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2) +void LAPACK_clacp2_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1) +#else + #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__) +#endif -#define LAPACK_zlacp2 LAPACK_GLOBAL(zlacp2,ZLACP2) -void LAPACK_zlacp2( +#define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2) +void LAPACK_zlacp2_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__) +#endif -#define LAPACK_clacpy LAPACK_GLOBAL(clacpy,CLACPY) -void LAPACK_clacpy( +#define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY) +void LAPACK_clacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__) +#endif -#define LAPACK_dlacpy LAPACK_GLOBAL(dlacpy,DLACPY) -void LAPACK_dlacpy( +#define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY) +void LAPACK_dlacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* B, lapack_int const* ldb ); + double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__) +#endif -#define LAPACK_slacpy LAPACK_GLOBAL(slacpy,SLACPY) -void LAPACK_slacpy( +#define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY) +void LAPACK_slacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* B, lapack_int const* ldb ); + float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__) +#endif -#define LAPACK_zlacpy LAPACK_GLOBAL(zlacpy,ZLACPY) -void LAPACK_zlacpy( +#define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY) +void LAPACK_zlacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__) +#endif #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM) void LAPACK_clacrm( @@ -6161,367 +9453,835 @@ void LAPACK_zlagsy( lapack_complex_double* work, lapack_int* info ); -#define LAPACK_dlamch LAPACK_GLOBAL(dlamch,DLAMCH) -double LAPACK_dlamch( - char const* cmach ); +#define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH) +double LAPACK_dlamch_base( + char const* cmach +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__) +#endif -#define LAPACK_slamch LAPACK_GLOBAL(slamch,SLAMCH) -lapack_float_return LAPACK_slamch( - char const* cmach ); +#define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH) +lapack_float_return LAPACK_slamch_base( + char const* cmach +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1) +#else + #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__) +#endif -#define LAPACK_clangb LAPACK_GLOBAL(clangb,CLANGB) -lapack_float_return LAPACK_clangb( +#define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB) +lapack_float_return LAPACK_clangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__) +#endif -#define LAPACK_dlangb LAPACK_GLOBAL(dlangb,DLANGB) -double LAPACK_dlangb( +#define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB) +double LAPACK_dlangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__) +#endif -#define LAPACK_slangb LAPACK_GLOBAL(slangb,SLANGB) -lapack_float_return LAPACK_slangb( +#define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB) +lapack_float_return LAPACK_slangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__) +#endif -#define LAPACK_zlangb LAPACK_GLOBAL(zlangb,ZLANGB) -double LAPACK_zlangb( +#define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB) +double LAPACK_zlangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__) +#endif -#define LAPACK_clange LAPACK_GLOBAL(clange,CLANGE) -lapack_float_return LAPACK_clange( +#define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE) +lapack_float_return LAPACK_clange_base( char const* norm, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1) +#else + #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__) +#endif -#define LAPACK_dlange LAPACK_GLOBAL(dlange,DLANGE) -double LAPACK_dlange( +#define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE) +double LAPACK_dlange_base( char const* norm, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__) +#endif -#define LAPACK_slange LAPACK_GLOBAL(slange,SLANGE) -lapack_float_return LAPACK_slange( +#define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE) +lapack_float_return LAPACK_slange_base( char const* norm, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1) +#else + #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__) +#endif -#define LAPACK_zlange LAPACK_GLOBAL(zlange,ZLANGE) -double LAPACK_zlange( +#define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE) +double LAPACK_zlange_base( char const* norm, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__) +#endif -#define LAPACK_clangt LAPACK_GLOBAL(clangt,CLANGT) -lapack_float_return LAPACK_clangt( +#define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT) +lapack_float_return LAPACK_clangt_base( char const* norm, lapack_int const* n, lapack_complex_float const* DL, lapack_complex_float const* D, - lapack_complex_float const* DU ); + lapack_complex_float const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__) +#endif -#define LAPACK_dlangt LAPACK_GLOBAL(dlangt,DLANGT) -double LAPACK_dlangt( +#define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT) +double LAPACK_dlangt_base( char const* norm, lapack_int const* n, double const* DL, double const* D, - double const* DU ); + double const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__) +#endif -#define LAPACK_slangt LAPACK_GLOBAL(slangt,SLANGT) -lapack_float_return LAPACK_slangt( +#define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT) +lapack_float_return LAPACK_slangt_base( char const* norm, lapack_int const* n, float const* DL, float const* D, - float const* DU ); + float const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__) +#endif -#define LAPACK_zlangt LAPACK_GLOBAL(zlangt,ZLANGT) -double LAPACK_zlangt( +#define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT) +double LAPACK_zlangt_base( char const* norm, lapack_int const* n, lapack_complex_double const* DL, lapack_complex_double const* D, - lapack_complex_double const* DU ); + lapack_complex_double const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__) +#endif -#define LAPACK_clanhb LAPACK_GLOBAL(clanhb,CLANHB) -lapack_float_return LAPACK_clanhb( +#define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB) +lapack_float_return LAPACK_clanhb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhb LAPACK_GLOBAL(zlanhb,ZLANHB) -double LAPACK_zlanhb( +#define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB) +double LAPACK_zlanhb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__) +#endif -#define LAPACK_clanhe LAPACK_GLOBAL(clanhe,CLANHE) -lapack_float_return LAPACK_clanhe( +#define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE) +lapack_float_return LAPACK_clanhe_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhe LAPACK_GLOBAL(zlanhe,ZLANHE) -double LAPACK_zlanhe( +#define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE) +double LAPACK_zlanhe_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__) +#endif -#define LAPACK_clanhp LAPACK_GLOBAL(clanhp,CLANHP) -lapack_float_return LAPACK_clanhp( +#define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP) +lapack_float_return LAPACK_clanhp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhp LAPACK_GLOBAL(zlanhp,ZLANHP) -double LAPACK_zlanhp( +#define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP) +double LAPACK_zlanhp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__) +#endif -#define LAPACK_clanhs LAPACK_GLOBAL(clanhs,CLANHS) -lapack_float_return LAPACK_clanhs( +#define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS) +lapack_float_return LAPACK_clanhs_base( char const* norm, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__) +#endif -#define LAPACK_dlanhs LAPACK_GLOBAL(dlanhs,DLANHS) -double LAPACK_dlanhs( +#define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS) +double LAPACK_dlanhs_base( char const* norm, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__) +#endif -#define LAPACK_slanhs LAPACK_GLOBAL(slanhs,SLANHS) -lapack_float_return LAPACK_slanhs( +#define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS) +lapack_float_return LAPACK_slanhs_base( char const* norm, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); - -#define LAPACK_zlanhs LAPACK_GLOBAL(zlanhs,ZLANHS) -double LAPACK_zlanhs( + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__) +#endif + +#define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS) +double LAPACK_zlanhs_base( char const* norm, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__) +#endif -#define LAPACK_clanht LAPACK_GLOBAL(clanht,CLANHT) -lapack_float_return LAPACK_clanht( +#define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT) +lapack_float_return LAPACK_clanht_base( char const* norm, lapack_int const* n, float const* D, - lapack_complex_float const* E ); + lapack_complex_float const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1) +#else + #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__) +#endif -#define LAPACK_zlanht LAPACK_GLOBAL(zlanht,ZLANHT) -double LAPACK_zlanht( +#define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT) +double LAPACK_zlanht_base( char const* norm, lapack_int const* n, double const* D, - lapack_complex_double const* E ); + lapack_complex_double const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__) +#endif -#define LAPACK_clansb LAPACK_GLOBAL(clansb,CLANSB) -lapack_float_return LAPACK_clansb( +#define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB) +lapack_float_return LAPACK_clansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__) +#endif -#define LAPACK_dlansb LAPACK_GLOBAL(dlansb,DLANSB) -double LAPACK_dlansb( +#define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB) +double LAPACK_dlansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__) +#endif -#define LAPACK_slansb LAPACK_GLOBAL(slansb,SLANSB) -lapack_float_return LAPACK_slansb( +#define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB) +lapack_float_return LAPACK_slansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__) +#endif -#define LAPACK_zlansb LAPACK_GLOBAL(zlansb,ZLANSB) -double LAPACK_zlansb( +#define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB) +double LAPACK_zlansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__) +#endif -#define LAPACK_clansp LAPACK_GLOBAL(clansp,CLANSP) -lapack_float_return LAPACK_clansp( +#define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP) +lapack_float_return LAPACK_clansp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__) +#endif -#define LAPACK_dlansp LAPACK_GLOBAL(dlansp,DLANSP) -double LAPACK_dlansp( +#define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP) +double LAPACK_dlansp_base( char const* norm, char const* uplo, lapack_int const* n, double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__) +#endif -#define LAPACK_slansp LAPACK_GLOBAL(slansp,SLANSP) -lapack_float_return LAPACK_slansp( +#define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP) +lapack_float_return LAPACK_slansp_base( char const* norm, char const* uplo, lapack_int const* n, float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__) +#endif -#define LAPACK_zlansp LAPACK_GLOBAL(zlansp,ZLANSP) -double LAPACK_zlansp( +#define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP) +double LAPACK_zlansp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__) +#endif -#define LAPACK_dlanst LAPACK_GLOBAL(dlanst,DLANST) -double LAPACK_dlanst( +#define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST) +double LAPACK_dlanst_base( char const* norm, lapack_int const* n, double const* D, - double const* E ); + double const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__) +#endif -#define LAPACK_slanst LAPACK_GLOBAL(slanst,SLANST) -lapack_float_return LAPACK_slanst( +#define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST) +lapack_float_return LAPACK_slanst_base( char const* norm, lapack_int const* n, float const* D, - float const* E ); + float const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1) +#else + #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__) +#endif -#define LAPACK_clansy LAPACK_GLOBAL(clansy,CLANSY) -lapack_float_return LAPACK_clansy( +#define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY) +lapack_float_return LAPACK_clansy_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__) +#endif -#define LAPACK_dlansy LAPACK_GLOBAL(dlansy,DLANSY) -double LAPACK_dlansy( +#define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY) +double LAPACK_dlansy_base( char const* norm, char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__) +#endif -#define LAPACK_slansy LAPACK_GLOBAL(slansy,SLANSY) -lapack_float_return LAPACK_slansy( +#define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY) +lapack_float_return LAPACK_slansy_base( char const* norm, char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__) +#endif -#define LAPACK_zlansy LAPACK_GLOBAL(zlansy,ZLANSY) -double LAPACK_zlansy( +#define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY) +double LAPACK_zlansy_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__) +#endif -#define LAPACK_clantb LAPACK_GLOBAL(clantb,CLANTB) -lapack_float_return LAPACK_clantb( +#define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB) +lapack_float_return LAPACK_clantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__) +#endif -#define LAPACK_dlantb LAPACK_GLOBAL(dlantb,DLANTB) -double LAPACK_dlantb( +#define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB) +double LAPACK_dlantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__) +#endif -#define LAPACK_slantb LAPACK_GLOBAL(slantb,SLANTB) -lapack_float_return LAPACK_slantb( +#define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB) +lapack_float_return LAPACK_slantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__) +#endif -#define LAPACK_zlantb LAPACK_GLOBAL(zlantb,ZLANTB) -double LAPACK_zlantb( +#define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB) +double LAPACK_zlantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__) +#endif -#define LAPACK_clantp LAPACK_GLOBAL(clantp,CLANTP) -lapack_float_return LAPACK_clantp( +#define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP) +lapack_float_return LAPACK_clantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__) +#endif -#define LAPACK_dlantp LAPACK_GLOBAL(dlantp,DLANTP) -double LAPACK_dlantp( +#define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP) +double LAPACK_dlantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__) +#endif -#define LAPACK_slantp LAPACK_GLOBAL(slantp,SLANTP) -lapack_float_return LAPACK_slantp( +#define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP) +lapack_float_return LAPACK_slantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__) +#endif -#define LAPACK_zlantp LAPACK_GLOBAL(zlantp,ZLANTP) -double LAPACK_zlantp( +#define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP) +double LAPACK_zlantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__) +#endif -#define LAPACK_clantr LAPACK_GLOBAL(clantr,CLANTR) -lapack_float_return LAPACK_clantr( +#define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR) +lapack_float_return LAPACK_clantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__) +#endif -#define LAPACK_dlantr LAPACK_GLOBAL(dlantr,DLANTR) -double LAPACK_dlantr( +#define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR) +double LAPACK_dlantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__) +#endif -#define LAPACK_slantr LAPACK_GLOBAL(slantr,SLANTR) -lapack_float_return LAPACK_slantr( +#define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR) +lapack_float_return LAPACK_slantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__) +#endif -#define LAPACK_zlantr LAPACK_GLOBAL(zlantr,ZLANTR) -double LAPACK_zlantr( +#define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR) +double LAPACK_zlantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__) +#endif #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR) void LAPACK_clapmr( @@ -6601,77 +10361,149 @@ void LAPACK_zlarcm( lapack_complex_double* C, lapack_int const* ldc, double* rwork ); -#define LAPACK_clarf LAPACK_GLOBAL(clarf,CLARF) -void LAPACK_clarf( +#define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF) +void LAPACK_clarf_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_float const* V, lapack_int const* incv, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work ); + lapack_complex_float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__) +#endif -#define LAPACK_dlarf LAPACK_GLOBAL(dlarf,DLARF) -void LAPACK_dlarf( +#define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF) +void LAPACK_dlarf_base( char const* side, lapack_int const* m, lapack_int const* n, double const* V, lapack_int const* incv, double const* tau, double* C, lapack_int const* ldc, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__) +#endif -#define LAPACK_slarf LAPACK_GLOBAL(slarf,SLARF) -void LAPACK_slarf( +#define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF) +void LAPACK_slarf_base( char const* side, lapack_int const* m, lapack_int const* n, float const* V, lapack_int const* incv, float const* tau, float* C, lapack_int const* ldc, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__) +#endif -#define LAPACK_zlarf LAPACK_GLOBAL(zlarf,ZLARF) -void LAPACK_zlarf( +#define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF) +void LAPACK_zlarf_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_double const* V, lapack_int const* incv, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work ); + lapack_complex_double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__) +#endif -#define LAPACK_clarfb LAPACK_GLOBAL(clarfb,CLARFB) -void LAPACK_clarfb( +#define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB) +void LAPACK_clarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* ldwork ); + lapack_complex_float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__) +#endif -#define LAPACK_dlarfb LAPACK_GLOBAL(dlarfb,DLARFB) -void LAPACK_dlarfb( +#define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB) +void LAPACK_dlarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* C, lapack_int const* ldc, - double* work, lapack_int const* ldwork ); + double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__) +#endif -#define LAPACK_slarfb LAPACK_GLOBAL(slarfb,SLARFB) -void LAPACK_slarfb( +#define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB) +void LAPACK_slarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* C, lapack_int const* ldc, - float* work, lapack_int const* ldwork ); + float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__) +#endif -#define LAPACK_zlarfb LAPACK_GLOBAL(zlarfb,ZLARFB) -void LAPACK_zlarfb( +#define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB) +void LAPACK_zlarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* ldwork ); + lapack_complex_double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__) +#endif #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG) void LAPACK_clarfg( @@ -6701,73 +10533,145 @@ void LAPACK_zlarfg( lapack_complex_double* X, lapack_int const* incx, lapack_complex_double* tau ); -#define LAPACK_clarft LAPACK_GLOBAL(clarft,CLARFT) -void LAPACK_clarft( +#define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT) +void LAPACK_clarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* tau, - lapack_complex_float* T, lapack_int const* ldt ); + lapack_complex_float* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__) +#endif -#define LAPACK_dlarft LAPACK_GLOBAL(dlarft,DLARFT) -void LAPACK_dlarft( +#define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT) +void LAPACK_dlarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, double const* V, lapack_int const* ldv, double const* tau, - double* T, lapack_int const* ldt ); + double* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__) +#endif -#define LAPACK_slarft LAPACK_GLOBAL(slarft,SLARFT) -void LAPACK_slarft( +#define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT) +void LAPACK_slarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, float const* V, lapack_int const* ldv, float const* tau, - float* T, lapack_int const* ldt ); + float* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__) +#endif -#define LAPACK_zlarft LAPACK_GLOBAL(zlarft,ZLARFT) -void LAPACK_zlarft( +#define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT) +void LAPACK_zlarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* tau, - lapack_complex_double* T, lapack_int const* ldt ); + lapack_complex_double* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__) +#endif -#define LAPACK_clarfx LAPACK_GLOBAL(clarfx,CLARFX) -void LAPACK_clarfx( +#define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX) +void LAPACK_clarfx_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_float const* V, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work ); + lapack_complex_float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__) +#endif -#define LAPACK_dlarfx LAPACK_GLOBAL(dlarfx,DLARFX) -void LAPACK_dlarfx( +#define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX) +void LAPACK_dlarfx_base( char const* side, lapack_int const* m, lapack_int const* n, double const* V, double const* tau, double* C, lapack_int const* ldc, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__) +#endif -#define LAPACK_slarfx LAPACK_GLOBAL(slarfx,SLARFX) -void LAPACK_slarfx( +#define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX) +void LAPACK_slarfx_base( char const* side, lapack_int const* m, lapack_int const* n, float const* V, float const* tau, float* C, lapack_int const* ldc, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__) +#endif -#define LAPACK_zlarfx LAPACK_GLOBAL(zlarfx,ZLARFX) -void LAPACK_zlarfx( +#define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX) +void LAPACK_zlarfx_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_double const* V, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work ); + lapack_complex_double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__) +#endif #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV) void LAPACK_clarnv( @@ -6821,87 +10725,177 @@ void LAPACK_slartgs( float* cs, float* sn ); -#define LAPACK_clascl LAPACK_GLOBAL(clascl,CLASCL) -void LAPACK_clascl( +#define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL) +void LAPACK_clascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, float const* cfrom, float const* cto, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__) +#endif -#define LAPACK_dlascl LAPACK_GLOBAL(dlascl,DLASCL) -void LAPACK_dlascl( +#define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL) +void LAPACK_dlascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, double const* cfrom, double const* cto, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__) +#endif -#define LAPACK_slascl LAPACK_GLOBAL(slascl,SLASCL) -void LAPACK_slascl( +#define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL) +void LAPACK_slascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, float const* cfrom, float const* cto, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__) +#endif -#define LAPACK_zlascl LAPACK_GLOBAL(zlascl,ZLASCL) -void LAPACK_zlascl( +#define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL) +void LAPACK_zlascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, double const* cfrom, double const* cto, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__) +#endif -#define LAPACK_claset LAPACK_GLOBAL(claset,CLASET) -void LAPACK_claset( +#define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET) +void LAPACK_claset_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* beta, - lapack_complex_float* A, lapack_int const* lda ); + lapack_complex_float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1) +#else + #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__) +#endif -#define LAPACK_dlaset LAPACK_GLOBAL(dlaset,DLASET) -void LAPACK_dlaset( +#define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET) +void LAPACK_dlaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* alpha, double const* beta, - double* A, lapack_int const* lda ); + double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__) +#endif -#define LAPACK_slaset LAPACK_GLOBAL(slaset,SLASET) -void LAPACK_slaset( +#define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET) +void LAPACK_slaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* alpha, float const* beta, - float* A, lapack_int const* lda ); + float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__) +#endif -#define LAPACK_zlaset LAPACK_GLOBAL(zlaset,ZLASET) -void LAPACK_zlaset( +#define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET) +void LAPACK_zlaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* beta, - lapack_complex_double* A, lapack_int const* lda ); + lapack_complex_double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__) +#endif -#define LAPACK_dlasrt LAPACK_GLOBAL(dlasrt,DLASRT) -void LAPACK_dlasrt( +#define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT) +void LAPACK_dlasrt_base( char const* id, lapack_int const* n, double* D, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__) +#endif -#define LAPACK_slasrt LAPACK_GLOBAL(slasrt,SLASRT) -void LAPACK_slasrt( +#define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT) +void LAPACK_slasrt_base( char const* id, lapack_int const* n, float* D, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1) +#else + #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__) +#endif #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ) void LAPACK_classq( @@ -6951,8 +10945,8 @@ void LAPACK_zlaswp( lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); -#define LAPACK_clatms LAPACK_GLOBAL(clatms,CLATMS) -void LAPACK_clatms( +#define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS) +void LAPACK_clatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, float* D, @@ -6962,10 +10956,19 @@ void LAPACK_clatms( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__) +#endif -#define LAPACK_dlatms LAPACK_GLOBAL(dlatms,DLATMS) -void LAPACK_dlatms( +#define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS) +void LAPACK_dlatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, double* D, @@ -6975,10 +10978,19 @@ void LAPACK_dlatms( double* A, lapack_int const* lda, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__) +#endif -#define LAPACK_slatms LAPACK_GLOBAL(slatms,SLATMS) -void LAPACK_slatms( +#define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS) +void LAPACK_slatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, float* D, @@ -6988,10 +11000,19 @@ void LAPACK_slatms( float* A, lapack_int const* lda, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__) +#endif -#define LAPACK_zlatms LAPACK_GLOBAL(zlatms,ZLATMS) -void LAPACK_zlatms( +#define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS) +void LAPACK_zlatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, double* D, @@ -7001,82 +11022,163 @@ void LAPACK_zlatms( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__) +#endif -#define LAPACK_clauum LAPACK_GLOBAL(clauum,CLAUUM) -void LAPACK_clauum( +#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM) +void LAPACK_clauum_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__) +#endif -#define LAPACK_dlauum LAPACK_GLOBAL(dlauum,DLAUUM) -void LAPACK_dlauum( +#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM) +void LAPACK_dlauum_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__) +#endif -#define LAPACK_slauum LAPACK_GLOBAL(slauum,SLAUUM) -void LAPACK_slauum( +#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM) +void LAPACK_slauum_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__) +#endif -#define LAPACK_zlauum LAPACK_GLOBAL(zlauum,ZLAUUM) -void LAPACK_zlauum( +#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM) +void LAPACK_zlauum_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__) +#endif #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER) void LAPACK_ilaver( lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch ); -#define LAPACK_dopgtr LAPACK_GLOBAL(dopgtr,DOPGTR) -void LAPACK_dopgtr( +#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR) +void LAPACK_dopgtr_base( char const* uplo, lapack_int const* n, double const* AP, double const* tau, double* Q, lapack_int const* ldq, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__) +#endif -#define LAPACK_sopgtr LAPACK_GLOBAL(sopgtr,SOPGTR) -void LAPACK_sopgtr( +#define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR) +void LAPACK_sopgtr_base( char const* uplo, lapack_int const* n, float const* AP, float const* tau, float* Q, lapack_int const* ldq, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__) +#endif -#define LAPACK_dopmtr LAPACK_GLOBAL(dopmtr,DOPMTR) -void LAPACK_dopmtr( +#define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR) +void LAPACK_dopmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, double const* AP, double const* tau, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__) +#endif -#define LAPACK_sopmtr LAPACK_GLOBAL(sopmtr,SOPMTR) -void LAPACK_sopmtr( +#define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR) +void LAPACK_sopmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, float const* AP, float const* tau, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__) +#endif -#define LAPACK_dorbdb LAPACK_GLOBAL(dorbdb,DORBDB) -void LAPACK_dorbdb( +#define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB) +void LAPACK_dorbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7090,10 +11192,19 @@ void LAPACK_dorbdb( double* TAUQ1, double* TAUQ2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__) +#endif -#define LAPACK_sorbdb LAPACK_GLOBAL(sorbdb,SORBDB) -void LAPACK_sorbdb( +#define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB) +void LAPACK_sorbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7107,10 +11218,19 @@ void LAPACK_sorbdb( float* TAUQ1, float* TAUQ2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__) +#endif -#define LAPACK_dorcsd LAPACK_GLOBAL(dorcsd,DORCSD) -void LAPACK_dorcsd( +#define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD) +void LAPACK_dorcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7124,10 +11244,19 @@ void LAPACK_dorcsd( double* V2T, lapack_int const* ldv2t, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__) +#endif -#define LAPACK_sorcsd LAPACK_GLOBAL(sorcsd,SORCSD) -void LAPACK_sorcsd( +#define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD) +void LAPACK_sorcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7141,10 +11270,19 @@ void LAPACK_sorcsd( float* V2T, lapack_int const* ldv2t, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dorcsd2by1 LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1) -void LAPACK_dorcsd2by1( +#define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1) +void LAPACK_dorcsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7155,10 +11293,19 @@ void LAPACK_dorcsd2by1( double* V1T, lapack_int const* ldv1t, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_sorcsd2by1 LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1) -void LAPACK_sorcsd2by1( +#define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1) +void LAPACK_sorcsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7169,25 +11316,52 @@ void LAPACK_sorcsd2by1( float* V1T, lapack_int const* ldv1t, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_dorgbr LAPACK_GLOBAL(dorgbr,DORGBR) -void LAPACK_dorgbr( +#define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR) +void LAPACK_dorgbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, double* A, lapack_int const* lda, double const* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__) +#endif -#define LAPACK_sorgbr LAPACK_GLOBAL(sorgbr,SORGBR) -void LAPACK_sorgbr( +#define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR) +void LAPACK_sorgbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, float* A, lapack_int const* lda, float const* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__) +#endif #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR) void LAPACK_dorghr( @@ -7269,23 +11443,41 @@ void LAPACK_sorgrq( float* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_dorgtr LAPACK_GLOBAL(dorgtr,DORGTR) -void LAPACK_dorgtr( +#define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR) +void LAPACK_dorgtr_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__) +#endif -#define LAPACK_sorgtr LAPACK_GLOBAL(sorgtr,SORGTR) -void LAPACK_sorgtr( +#define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR) +void LAPACK_sorgtr_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__) +#endif #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW) void LAPACK_dorgtsqr_row( @@ -7305,168 +11497,312 @@ void LAPACK_sorgtsqr_row( float* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_dormbr LAPACK_GLOBAL(dormbr,DORMBR) -void LAPACK_dormbr( +#define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR) +void LAPACK_dormbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__) +#endif -#define LAPACK_sormbr LAPACK_GLOBAL(sormbr,SORMBR) -void LAPACK_sormbr( +#define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR) +void LAPACK_sormbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__) +#endif -#define LAPACK_dormhr LAPACK_GLOBAL(dormhr,DORMHR) -void LAPACK_dormhr( +#define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR) +void LAPACK_dormhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__) +#endif -#define LAPACK_sormhr LAPACK_GLOBAL(sormhr,SORMHR) -void LAPACK_sormhr( +#define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR) +void LAPACK_sormhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__) +#endif -#define LAPACK_dormlq LAPACK_GLOBAL(dormlq,DORMLQ) -void LAPACK_dormlq( +#define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ) +void LAPACK_dormlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__) +#endif -#define LAPACK_sormlq LAPACK_GLOBAL(sormlq,SORMLQ) -void LAPACK_sormlq( +#define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ) +void LAPACK_sormlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__) +#endif -#define LAPACK_dormql LAPACK_GLOBAL(dormql,DORMQL) -void LAPACK_dormql( +#define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL) +void LAPACK_dormql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__) +#endif -#define LAPACK_sormql LAPACK_GLOBAL(sormql,SORMQL) -void LAPACK_sormql( +#define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL) +void LAPACK_sormql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__) +#endif -#define LAPACK_dormqr LAPACK_GLOBAL(dormqr,DORMQR) -void LAPACK_dormqr( +#define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR) +void LAPACK_dormqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__) +#endif -#define LAPACK_sormqr LAPACK_GLOBAL(sormqr,SORMQR) -void LAPACK_sormqr( +#define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR) +void LAPACK_sormqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__) +#endif -#define LAPACK_dormrq LAPACK_GLOBAL(dormrq,DORMRQ) -void LAPACK_dormrq( +#define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ) +void LAPACK_dormrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__) +#endif -#define LAPACK_sormrq LAPACK_GLOBAL(sormrq,SORMRQ) -void LAPACK_sormrq( +#define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ) +void LAPACK_sormrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__) +#endif -#define LAPACK_dormrz LAPACK_GLOBAL(dormrz,DORMRZ) -void LAPACK_dormrz( +#define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ) +void LAPACK_dormrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__) +#endif -#define LAPACK_sormrz LAPACK_GLOBAL(sormrz,SORMRZ) -void LAPACK_sormrz( +#define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ) +void LAPACK_sormrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__) +#endif -#define LAPACK_dormtr LAPACK_GLOBAL(dormtr,DORMTR) -void LAPACK_dormtr( +#define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR) +void LAPACK_dormtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__) +#endif -#define LAPACK_sormtr LAPACK_GLOBAL(sormtr,SORMTR) -void LAPACK_sormtr( +#define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR) +void LAPACK_sormtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__) +#endif -#define LAPACK_cpbcon LAPACK_GLOBAL(cpbcon,CPBCON) -void LAPACK_cpbcon( +#define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON) +void LAPACK_cpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, @@ -7474,10 +11810,19 @@ void LAPACK_cpbcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dpbcon LAPACK_GLOBAL(dpbcon,DPBCON) -void LAPACK_dpbcon( +#define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON) +void LAPACK_dpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, @@ -7485,10 +11830,19 @@ void LAPACK_dpbcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_spbcon LAPACK_GLOBAL(spbcon,SPBCON) -void LAPACK_spbcon( +#define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON) +void LAPACK_spbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, @@ -7496,10 +11850,19 @@ void LAPACK_spbcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__) +#endif -#define LAPACK_zpbcon LAPACK_GLOBAL(zpbcon,ZPBCON) -void LAPACK_zpbcon( +#define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON) +void LAPACK_zpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, @@ -7507,50 +11870,95 @@ void LAPACK_zpbcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_cpbequ LAPACK_GLOBAL(cpbequ,CPBEQU) -void LAPACK_cpbequ( +#define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU) +void LAPACK_cpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_dpbequ LAPACK_GLOBAL(dpbequ,DPBEQU) -void LAPACK_dpbequ( +#define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU) +void LAPACK_dpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_spbequ LAPACK_GLOBAL(spbequ,SPBEQU) -void LAPACK_spbequ( +#define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU) +void LAPACK_spbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__) +#endif -#define LAPACK_zpbequ LAPACK_GLOBAL(zpbequ,ZPBEQU) -void LAPACK_zpbequ( +#define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU) +void LAPACK_zpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_cpbrfs LAPACK_GLOBAL(cpbrfs,CPBRFS) -void LAPACK_cpbrfs( +#define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS) +void LAPACK_cpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -7561,10 +11969,19 @@ void LAPACK_cpbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dpbrfs LAPACK_GLOBAL(dpbrfs,DPBRFS) -void LAPACK_dpbrfs( +#define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS) +void LAPACK_dpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -7575,10 +11992,19 @@ void LAPACK_dpbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_spbrfs LAPACK_GLOBAL(spbrfs,SPBRFS) -void LAPACK_spbrfs( +#define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS) +void LAPACK_spbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -7589,10 +12015,19 @@ void LAPACK_spbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zpbrfs LAPACK_GLOBAL(zpbrfs,ZPBRFS) -void LAPACK_zpbrfs( +#define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS) +void LAPACK_zpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -7603,70 +12038,151 @@ void LAPACK_zpbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_cpbstf LAPACK_GLOBAL(cpbstf,CPBSTF) -void LAPACK_cpbstf( +#define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF) +void LAPACK_cpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_dpbstf LAPACK_GLOBAL(dpbstf,DPBSTF) -void LAPACK_dpbstf( +#define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF) +void LAPACK_dpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_spbstf LAPACK_GLOBAL(spbstf,SPBSTF) -void LAPACK_spbstf( +#define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF) +void LAPACK_spbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__) +#endif -#define LAPACK_zpbstf LAPACK_GLOBAL(zpbstf,ZPBSTF) -void LAPACK_zpbstf( +#define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF) +void LAPACK_zpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_cpbsv LAPACK_GLOBAL(cpbsv,CPBSV) -void LAPACK_cpbsv( +#define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV) +void LAPACK_cpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_dpbsv LAPACK_GLOBAL(dpbsv,DPBSV) -void LAPACK_dpbsv( +#define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV) +void LAPACK_dpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_spbsv LAPACK_GLOBAL(spbsv,SPBSV) -void LAPACK_spbsv( +#define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV) +void LAPACK_spbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__) +#endif -#define LAPACK_zpbsv LAPACK_GLOBAL(zpbsv,ZPBSV) -void LAPACK_zpbsv( +#define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV) +void LAPACK_zpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_cpbsvx LAPACK_GLOBAL(cpbsvx,CPBSVX) -void LAPACK_cpbsvx( +#define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX) +void LAPACK_cpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -7680,10 +12196,19 @@ void LAPACK_cpbsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dpbsvx LAPACK_GLOBAL(dpbsvx,DPBSVX) -void LAPACK_dpbsvx( +#define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX) +void LAPACK_dpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -7697,10 +12222,19 @@ void LAPACK_dpbsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_spbsvx LAPACK_GLOBAL(spbsvx,SPBSVX) -void LAPACK_spbsvx( +#define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX) +void LAPACK_spbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -7714,10 +12248,19 @@ void LAPACK_spbsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zpbsvx LAPACK_GLOBAL(zpbsvx,ZPBSVX) -void LAPACK_zpbsvx( +#define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX) +void LAPACK_zpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -7731,158 +12274,347 @@ void LAPACK_zpbsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cpbtrf LAPACK_GLOBAL(cpbtrf,CPBTRF) -void LAPACK_cpbtrf( +#define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF) +void LAPACK_cpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpbtrf LAPACK_GLOBAL(dpbtrf,DPBTRF) -void LAPACK_dpbtrf( +#define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF) +void LAPACK_dpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_spbtrf LAPACK_GLOBAL(spbtrf,SPBTRF) -void LAPACK_spbtrf( +#define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF) +void LAPACK_spbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpbtrf LAPACK_GLOBAL(zpbtrf,ZPBTRF) -void LAPACK_zpbtrf( +#define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF) +void LAPACK_zpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpbtrs LAPACK_GLOBAL(cpbtrs,CPBTRS) -void LAPACK_cpbtrs( +#define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS) +void LAPACK_cpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpbtrs LAPACK_GLOBAL(dpbtrs,DPBTRS) -void LAPACK_dpbtrs( +#define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS) +void LAPACK_dpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_spbtrs LAPACK_GLOBAL(spbtrs,SPBTRS) -void LAPACK_spbtrs( +#define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS) +void LAPACK_spbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpbtrs LAPACK_GLOBAL(zpbtrs,ZPBTRS) -void LAPACK_zpbtrs( +#define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS) +void LAPACK_zpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpftrf LAPACK_GLOBAL(cpftrf,CPFTRF) -void LAPACK_cpftrf( +#define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF) +void LAPACK_cpftrf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpftrf LAPACK_GLOBAL(dpftrf,DPFTRF) -void LAPACK_dpftrf( +#define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF) +void LAPACK_dpftrf_base( char const* transr, char const* uplo, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_spftrf LAPACK_GLOBAL(spftrf,SPFTRF) -void LAPACK_spftrf( +#define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF) +void LAPACK_spftrf_base( char const* transr, char const* uplo, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpftrf LAPACK_GLOBAL(zpftrf,ZPFTRF) -void LAPACK_zpftrf( +#define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF) +void LAPACK_zpftrf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpftri LAPACK_GLOBAL(cpftri,CPFTRI) -void LAPACK_cpftri( +#define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI) +void LAPACK_cpftri_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__) +#endif -#define LAPACK_dpftri LAPACK_GLOBAL(dpftri,DPFTRI) -void LAPACK_dpftri( +#define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI) +void LAPACK_dpftri_base( char const* transr, char const* uplo, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__) +#endif -#define LAPACK_spftri LAPACK_GLOBAL(spftri,SPFTRI) -void LAPACK_spftri( +#define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI) +void LAPACK_spftri_base( char const* transr, char const* uplo, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__) +#endif -#define LAPACK_zpftri LAPACK_GLOBAL(zpftri,ZPFTRI) -void LAPACK_zpftri( +#define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI) +void LAPACK_zpftri_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__) +#endif -#define LAPACK_cpftrs LAPACK_GLOBAL(cpftrs,CPFTRS) -void LAPACK_cpftrs( +#define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS) +void LAPACK_cpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpftrs LAPACK_GLOBAL(dpftrs,DPFTRS) -void LAPACK_dpftrs( +#define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS) +void LAPACK_dpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_spftrs LAPACK_GLOBAL(spftrs,SPFTRS) -void LAPACK_spftrs( +#define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS) +void LAPACK_spftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpftrs LAPACK_GLOBAL(zpftrs,ZPFTRS) -void LAPACK_zpftrs( +#define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS) +void LAPACK_zpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpocon LAPACK_GLOBAL(cpocon,CPOCON) -void LAPACK_cpocon( +#define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON) +void LAPACK_cpocon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -7890,10 +12622,19 @@ void LAPACK_cpocon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__) +#endif -#define LAPACK_dpocon LAPACK_GLOBAL(dpocon,DPOCON) -void LAPACK_dpocon( +#define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON) +void LAPACK_dpocon_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -7901,10 +12642,19 @@ void LAPACK_dpocon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__) +#endif -#define LAPACK_spocon LAPACK_GLOBAL(spocon,SPOCON) -void LAPACK_spocon( +#define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON) +void LAPACK_spocon_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, @@ -7912,10 +12662,19 @@ void LAPACK_spocon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__) +#endif -#define LAPACK_zpocon LAPACK_GLOBAL(zpocon,ZPOCON) -void LAPACK_zpocon( +#define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON) +void LAPACK_zpocon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -7923,7 +12682,16 @@ void LAPACK_zpocon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__) +#endif #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU) void LAPACK_cpoequ( @@ -7997,8 +12765,8 @@ void LAPACK_zpoequb( double* amax, lapack_int* info ); -#define LAPACK_cporfs LAPACK_GLOBAL(cporfs,CPORFS) -void LAPACK_cporfs( +#define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS) +void LAPACK_cporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -8009,10 +12777,19 @@ void LAPACK_cporfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__) +#endif -#define LAPACK_dporfs LAPACK_GLOBAL(dporfs,DPORFS) -void LAPACK_dporfs( +#define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS) +void LAPACK_dporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -8023,10 +12800,19 @@ void LAPACK_dporfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__) +#endif -#define LAPACK_sporfs LAPACK_GLOBAL(sporfs,SPORFS) -void LAPACK_sporfs( +#define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS) +void LAPACK_sporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -8037,10 +12823,19 @@ void LAPACK_sporfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__) +#endif -#define LAPACK_zporfs LAPACK_GLOBAL(zporfs,ZPORFS) -void LAPACK_zporfs( +#define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS) +void LAPACK_zporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -8051,10 +12846,19 @@ void LAPACK_zporfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__) +#endif -#define LAPACK_cporfsx LAPACK_GLOBAL(cporfsx,CPORFSX) -void LAPACK_cporfsx( +#define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX) +void LAPACK_cporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -8069,10 +12873,19 @@ void LAPACK_cporfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dporfsx LAPACK_GLOBAL(dporfsx,DPORFSX) -void LAPACK_dporfsx( +#define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX) +void LAPACK_dporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -8087,10 +12900,19 @@ void LAPACK_dporfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sporfsx LAPACK_GLOBAL(sporfsx,SPORFSX) -void LAPACK_sporfsx( +#define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX) +void LAPACK_sporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -8105,10 +12927,19 @@ void LAPACK_sporfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zporfsx LAPACK_GLOBAL(zporfsx,ZPORFSX) -void LAPACK_zporfsx( +#define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX) +void LAPACK_zporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -8123,42 +12954,87 @@ void LAPACK_zporfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_cposv LAPACK_GLOBAL(cposv,CPOSV) -void LAPACK_cposv( +#define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV) +void LAPACK_cposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__) +#endif -#define LAPACK_dposv LAPACK_GLOBAL(dposv,DPOSV) -void LAPACK_dposv( +#define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV) +void LAPACK_dposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__) +#endif -#define LAPACK_sposv LAPACK_GLOBAL(sposv,SPOSV) -void LAPACK_sposv( +#define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV) +void LAPACK_sposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__) +#endif -#define LAPACK_zposv LAPACK_GLOBAL(zposv,ZPOSV) -void LAPACK_zposv( +#define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV) +void LAPACK_zposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__) +#endif -#define LAPACK_dsposv LAPACK_GLOBAL(dsposv,DSPOSV) -void LAPACK_dsposv( +#define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV) +void LAPACK_dsposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8166,10 +13042,19 @@ void LAPACK_dsposv( double* X, lapack_int const* ldx, double* work, float* swork, lapack_int* iter, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__) +#endif -#define LAPACK_zcposv LAPACK_GLOBAL(zcposv,ZCPOSV) -void LAPACK_zcposv( +#define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV) +void LAPACK_zcposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8178,10 +13063,19 @@ void LAPACK_zcposv( lapack_complex_double* work, lapack_complex_float* swork, double* rwork, lapack_int* iter, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__) +#endif -#define LAPACK_cposvx LAPACK_GLOBAL(cposvx,CPOSVX) -void LAPACK_cposvx( +#define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX) +void LAPACK_cposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -8195,10 +13089,19 @@ void LAPACK_cposvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__) +#endif -#define LAPACK_dposvx LAPACK_GLOBAL(dposvx,DPOSVX) -void LAPACK_dposvx( +#define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX) +void LAPACK_dposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8212,10 +13115,19 @@ void LAPACK_dposvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__) +#endif -#define LAPACK_sposvx LAPACK_GLOBAL(sposvx,SPOSVX) -void LAPACK_sposvx( +#define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX) +void LAPACK_sposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -8229,10 +13141,19 @@ void LAPACK_sposvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__) +#endif -#define LAPACK_zposvx LAPACK_GLOBAL(zposvx,ZPOSVX) -void LAPACK_zposvx( +#define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX) +void LAPACK_zposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8246,10 +13167,19 @@ void LAPACK_zposvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__) +#endif -#define LAPACK_cposvxx LAPACK_GLOBAL(cposvxx,CPOSVXX) -void LAPACK_cposvxx( +#define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX) +void LAPACK_cposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -8266,10 +13196,19 @@ void LAPACK_cposvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dposvxx LAPACK_GLOBAL(dposvxx,DPOSVXX) -void LAPACK_dposvxx( +#define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX) +void LAPACK_dposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8286,10 +13225,19 @@ void LAPACK_dposvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sposvxx LAPACK_GLOBAL(sposvxx,SPOSVXX) -void LAPACK_sposvxx( +#define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX) +void LAPACK_sposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -8306,10 +13254,19 @@ void LAPACK_sposvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zposvxx LAPACK_GLOBAL(zposvxx,ZPOSVXX) -void LAPACK_zposvxx( +#define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX) +void LAPACK_zposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8326,154 +13283,343 @@ void LAPACK_zposvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_cpotf2 LAPACK_GLOBAL(cpotf2,CPOTF2) -void LAPACK_cpotf2( +#define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2) +void LAPACK_cpotf2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_dpotf2 LAPACK_GLOBAL(dpotf2,DPOTF2) -void LAPACK_dpotf2( +#define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2) +void LAPACK_dpotf2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_spotf2 LAPACK_GLOBAL(spotf2,SPOTF2) -void LAPACK_spotf2( +#define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2) +void LAPACK_spotf2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__) +#endif -#define LAPACK_zpotf2 LAPACK_GLOBAL(zpotf2,ZPOTF2) -void LAPACK_zpotf2( +#define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2) +void LAPACK_zpotf2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrf LAPACK_GLOBAL(cpotrf,CPOTRF) -void LAPACK_cpotrf( +#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF) +void LAPACK_cpotrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrf LAPACK_GLOBAL(dpotrf,DPOTRF) -void LAPACK_dpotrf( +#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF) +void LAPACK_dpotrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_spotrf LAPACK_GLOBAL(spotrf,SPOTRF) -void LAPACK_spotrf( +#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF) +void LAPACK_spotrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrf LAPACK_GLOBAL(zpotrf,ZPOTRF) -void LAPACK_zpotrf( +#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF) +void LAPACK_zpotrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrf2 LAPACK_GLOBAL(cpotrf2,CPOTRF2) -void LAPACK_cpotrf2( +#define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2) +void LAPACK_cpotrf2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrf2 LAPACK_GLOBAL(dpotrf2,DPOTRF2) -void LAPACK_dpotrf2( +#define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2) +void LAPACK_dpotrf2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_spotrf2 LAPACK_GLOBAL(spotrf2,SPOTRF2) -void LAPACK_spotrf2( +#define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2) +void LAPACK_spotrf2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrf2 LAPACK_GLOBAL(zpotrf2,ZPOTRF2) -void LAPACK_zpotrf2( +#define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2) +void LAPACK_zpotrf2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_cpotri LAPACK_GLOBAL(cpotri,CPOTRI) -void LAPACK_cpotri( +#define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI) +void LAPACK_cpotri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__) +#endif -#define LAPACK_dpotri LAPACK_GLOBAL(dpotri,DPOTRI) -void LAPACK_dpotri( +#define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI) +void LAPACK_dpotri_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__) +#endif -#define LAPACK_spotri LAPACK_GLOBAL(spotri,SPOTRI) -void LAPACK_spotri( +#define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI) +void LAPACK_spotri_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__) +#endif -#define LAPACK_zpotri LAPACK_GLOBAL(zpotri,ZPOTRI) -void LAPACK_zpotri( +#define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI) +void LAPACK_zpotri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrs LAPACK_GLOBAL(cpotrs,CPOTRS) -void LAPACK_cpotrs( +#define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS) +void LAPACK_cpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrs LAPACK_GLOBAL(dpotrs,DPOTRS) -void LAPACK_dpotrs( +#define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS) +void LAPACK_dpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_spotrs LAPACK_GLOBAL(spotrs,SPOTRS) -void LAPACK_spotrs( +#define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS) +void LAPACK_spotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrs LAPACK_GLOBAL(zpotrs,ZPOTRS) -void LAPACK_zpotrs( +#define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS) +void LAPACK_zpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_cppcon LAPACK_GLOBAL(cppcon,CPPCON) -void LAPACK_cppcon( +#define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON) +void LAPACK_cppcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, @@ -8481,10 +13627,19 @@ void LAPACK_cppcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__) +#endif -#define LAPACK_dppcon LAPACK_GLOBAL(dppcon,DPPCON) -void LAPACK_dppcon( +#define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON) +void LAPACK_dppcon_base( char const* uplo, lapack_int const* n, double const* AP, @@ -8492,10 +13647,19 @@ void LAPACK_dppcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__) +#endif -#define LAPACK_sppcon LAPACK_GLOBAL(sppcon,SPPCON) -void LAPACK_sppcon( +#define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON) +void LAPACK_sppcon_base( char const* uplo, lapack_int const* n, float const* AP, @@ -8503,10 +13667,19 @@ void LAPACK_sppcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__) +#endif -#define LAPACK_zppcon LAPACK_GLOBAL(zppcon,ZPPCON) -void LAPACK_zppcon( +#define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON) +void LAPACK_zppcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, @@ -8514,50 +13687,95 @@ void LAPACK_zppcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__) +#endif -#define LAPACK_cppequ LAPACK_GLOBAL(cppequ,CPPEQU) -void LAPACK_cppequ( +#define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU) +void LAPACK_cppequ_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__) +#endif -#define LAPACK_dppequ LAPACK_GLOBAL(dppequ,DPPEQU) -void LAPACK_dppequ( +#define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU) +void LAPACK_dppequ_base( char const* uplo, lapack_int const* n, double const* AP, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__) +#endif -#define LAPACK_sppequ LAPACK_GLOBAL(sppequ,SPPEQU) -void LAPACK_sppequ( +#define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU) +void LAPACK_sppequ_base( char const* uplo, lapack_int const* n, float const* AP, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__) +#endif -#define LAPACK_zppequ LAPACK_GLOBAL(zppequ,ZPPEQU) -void LAPACK_zppequ( +#define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU) +void LAPACK_zppequ_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__) +#endif -#define LAPACK_cpprfs LAPACK_GLOBAL(cpprfs,CPPRFS) -void LAPACK_cpprfs( +#define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS) +void LAPACK_cpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -8568,10 +13786,19 @@ void LAPACK_cpprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dpprfs LAPACK_GLOBAL(dpprfs,DPPRFS) -void LAPACK_dpprfs( +#define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS) +void LAPACK_dpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -8582,10 +13809,19 @@ void LAPACK_dpprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_spprfs LAPACK_GLOBAL(spprfs,SPPRFS) -void LAPACK_spprfs( +#define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS) +void LAPACK_spprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -8596,10 +13832,19 @@ void LAPACK_spprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zpprfs LAPACK_GLOBAL(zpprfs,ZPPRFS) -void LAPACK_zpprfs( +#define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS) +void LAPACK_zpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -8610,42 +13855,87 @@ void LAPACK_zpprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_cppsv LAPACK_GLOBAL(cppsv,CPPSV) -void LAPACK_cppsv( +#define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV) +void LAPACK_cppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__) +#endif -#define LAPACK_dppsv LAPACK_GLOBAL(dppsv,DPPSV) -void LAPACK_dppsv( +#define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV) +void LAPACK_dppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__) +#endif -#define LAPACK_sppsv LAPACK_GLOBAL(sppsv,SPPSV) -void LAPACK_sppsv( +#define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV) +void LAPACK_sppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__) +#endif -#define LAPACK_zppsv LAPACK_GLOBAL(zppsv,ZPPSV) -void LAPACK_zppsv( +#define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV) +void LAPACK_zppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__) +#endif -#define LAPACK_cppsvx LAPACK_GLOBAL(cppsvx,CPPSVX) -void LAPACK_cppsvx( +#define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX) +void LAPACK_cppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, @@ -8659,10 +13949,19 @@ void LAPACK_cppsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dppsvx LAPACK_GLOBAL(dppsvx,DPPSVX) -void LAPACK_dppsvx( +#define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX) +void LAPACK_dppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, @@ -8676,10 +13975,19 @@ void LAPACK_dppsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sppsvx LAPACK_GLOBAL(sppsvx,SPPSVX) -void LAPACK_sppsvx( +#define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX) +void LAPACK_sppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, @@ -8693,10 +14001,19 @@ void LAPACK_sppsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zppsvx LAPACK_GLOBAL(zppsvx,ZPPSVX) -void LAPACK_zppsvx( +#define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX) +void LAPACK_zppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, @@ -8710,131 +14027,284 @@ void LAPACK_zppsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cpptrf LAPACK_GLOBAL(cpptrf,CPPTRF) -void LAPACK_cpptrf( +#define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF) +void LAPACK_cpptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpptrf LAPACK_GLOBAL(dpptrf,DPPTRF) -void LAPACK_dpptrf( +#define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF) +void LAPACK_dpptrf_base( char const* uplo, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_spptrf LAPACK_GLOBAL(spptrf,SPPTRF) -void LAPACK_spptrf( +#define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF) +void LAPACK_spptrf_base( char const* uplo, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpptrf LAPACK_GLOBAL(zpptrf,ZPPTRF) -void LAPACK_zpptrf( +#define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF) +void LAPACK_zpptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpptri LAPACK_GLOBAL(cpptri,CPPTRI) -void LAPACK_cpptri( +#define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI) +void LAPACK_cpptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__) +#endif -#define LAPACK_dpptri LAPACK_GLOBAL(dpptri,DPPTRI) -void LAPACK_dpptri( +#define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI) +void LAPACK_dpptri_base( char const* uplo, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__) +#endif -#define LAPACK_spptri LAPACK_GLOBAL(spptri,SPPTRI) -void LAPACK_spptri( +#define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI) +void LAPACK_spptri_base( char const* uplo, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__) +#endif -#define LAPACK_zpptri LAPACK_GLOBAL(zpptri,ZPPTRI) -void LAPACK_zpptri( +#define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI) +void LAPACK_zpptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__) +#endif -#define LAPACK_cpptrs LAPACK_GLOBAL(cpptrs,CPPTRS) -void LAPACK_cpptrs( +#define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS) +void LAPACK_cpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpptrs LAPACK_GLOBAL(dpptrs,DPPTRS) -void LAPACK_dpptrs( +#define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS) +void LAPACK_dpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_spptrs LAPACK_GLOBAL(spptrs,SPPTRS) -void LAPACK_spptrs( +#define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS) +void LAPACK_spptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpptrs LAPACK_GLOBAL(zpptrs,ZPPTRS) -void LAPACK_zpptrs( +#define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS) +void LAPACK_zpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpstrf LAPACK_GLOBAL(cpstrf,CPSTRF) -void LAPACK_cpstrf( +#define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF) +void LAPACK_cpstrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, float const* tol, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpstrf LAPACK_GLOBAL(dpstrf,DPSTRF) -void LAPACK_dpstrf( +#define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF) +void LAPACK_dpstrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, double const* tol, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__) +#endif -#define LAPACK_spstrf LAPACK_GLOBAL(spstrf,SPSTRF) -void LAPACK_spstrf( +#define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF) +void LAPACK_spstrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, float const* tol, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpstrf LAPACK_GLOBAL(zpstrf,ZPSTRF) -void LAPACK_zpstrf( +#define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF) +void LAPACK_zpstrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, double const* tol, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__) +#endif #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON) void LAPACK_cptcon( @@ -8876,48 +14346,84 @@ void LAPACK_zptcon( double* rwork, lapack_int* info ); -#define LAPACK_cpteqr LAPACK_GLOBAL(cpteqr,CPTEQR) -void LAPACK_cpteqr( +#define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR) +void LAPACK_cpteqr_base( char const* compz, lapack_int const* n, float* D, float* E, lapack_complex_float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_dpteqr LAPACK_GLOBAL(dpteqr,DPTEQR) -void LAPACK_dpteqr( +#define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR) +void LAPACK_dpteqr_base( char const* compz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_spteqr LAPACK_GLOBAL(spteqr,SPTEQR) -void LAPACK_spteqr( +#define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR) +void LAPACK_spteqr_base( char const* compz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__) +#endif -#define LAPACK_zpteqr LAPACK_GLOBAL(zpteqr,ZPTEQR) -void LAPACK_zpteqr( +#define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR) +void LAPACK_zpteqr_base( char const* compz, lapack_int const* n, double* D, double* E, lapack_complex_double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_cptrfs LAPACK_GLOBAL(cptrfs,CPTRFS) -void LAPACK_cptrfs( +#define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS) +void LAPACK_cptrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -8930,7 +14436,16 @@ void LAPACK_cptrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__) +#endif #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS) void LAPACK_dptrfs( @@ -8960,8 +14475,8 @@ void LAPACK_sptrfs( float* work, lapack_int* info ); -#define LAPACK_zptrfs LAPACK_GLOBAL(zptrfs,ZPTRFS) -void LAPACK_zptrfs( +#define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS) +void LAPACK_zptrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -8974,7 +14489,16 @@ void LAPACK_zptrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__) +#endif #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV) void LAPACK_cptsv( @@ -9008,8 +14532,8 @@ void LAPACK_zptsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cptsvx LAPACK_GLOBAL(cptsvx,CPTSVX) -void LAPACK_cptsvx( +#define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX) +void LAPACK_cptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -9023,10 +14547,19 @@ void LAPACK_cptsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dptsvx LAPACK_GLOBAL(dptsvx,DPTSVX) -void LAPACK_dptsvx( +#define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX) +void LAPACK_dptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -9039,10 +14572,19 @@ void LAPACK_dptsvx( double* ferr, double* berr, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sptsvx LAPACK_GLOBAL(sptsvx,SPTSVX) -void LAPACK_sptsvx( +#define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX) +void LAPACK_sptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -9055,10 +14597,19 @@ void LAPACK_sptsvx( float* ferr, float* berr, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zptsvx LAPACK_GLOBAL(zptsvx,ZPTSVX) -void LAPACK_zptsvx( +#define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX) +void LAPACK_zptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -9072,7 +14623,16 @@ void LAPACK_zptsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__) +#endif #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF) void LAPACK_cpttrf( @@ -9102,14 +14662,23 @@ void LAPACK_zpttrf( lapack_complex_double* E, lapack_int* info ); -#define LAPACK_cpttrs LAPACK_GLOBAL(cpttrs,CPTTRS) -void LAPACK_cpttrs( +#define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS) +void LAPACK_cpttrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* D, lapack_complex_float const* E, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__) +#endif #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS) void LAPACK_dpttrs( @@ -9127,57 +14696,102 @@ void LAPACK_spttrs( float* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_zpttrs LAPACK_GLOBAL(zpttrs,ZPTTRS) -void LAPACK_zpttrs( +#define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS) +void LAPACK_zpttrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* D, lapack_complex_double const* E, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsbev LAPACK_GLOBAL(dsbev,DSBEV) -void LAPACK_dsbev( +#define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV) +void LAPACK_dsbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__) +#endif -#define LAPACK_ssbev LAPACK_GLOBAL(ssbev,SSBEV) -void LAPACK_ssbev( +#define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV) +void LAPACK_ssbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__) +#endif -#define LAPACK_dsbev_2stage LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE) -void LAPACK_dsbev_2stage( +#define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE) +void LAPACK_dsbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, double* W, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbev_2stage LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE) -void LAPACK_ssbev_2stage( +#define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE) +void LAPACK_ssbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, float* W, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevd LAPACK_GLOBAL(dsbevd,DSBEVD) -void LAPACK_dsbevd( +#define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD) +void LAPACK_dsbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9185,10 +14799,19 @@ void LAPACK_dsbevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevd LAPACK_GLOBAL(ssbevd,SSBEVD) -void LAPACK_ssbevd( +#define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD) +void LAPACK_ssbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9196,10 +14819,19 @@ void LAPACK_ssbevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevd_2stage LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE) -void LAPACK_dsbevd_2stage( +#define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE) +void LAPACK_dsbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9207,10 +14839,19 @@ void LAPACK_dsbevd_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevd_2stage LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE) -void LAPACK_ssbevd_2stage( +#define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE) +void LAPACK_ssbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9218,10 +14859,19 @@ void LAPACK_ssbevd_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevx LAPACK_GLOBAL(dsbevx,DSBEVX) -void LAPACK_dsbevx( +#define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX) +void LAPACK_dsbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9233,10 +14883,19 @@ void LAPACK_dsbevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevx LAPACK_GLOBAL(ssbevx,SSBEVX) -void LAPACK_ssbevx( +#define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX) +void LAPACK_ssbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9248,10 +14907,19 @@ void LAPACK_ssbevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevx_2stage LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE) -void LAPACK_dsbevx_2stage( +#define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE) +void LAPACK_dsbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9263,10 +14931,19 @@ void LAPACK_dsbevx_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevx_2stage LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE) -void LAPACK_ssbevx_2stage( +#define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE) +void LAPACK_ssbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9278,30 +14955,57 @@ void LAPACK_ssbevx_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgst LAPACK_GLOBAL(dsbgst,DSBGST) -void LAPACK_dsbgst( +#define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST) +void LAPACK_dsbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, double const* BB, lapack_int const* ldbb, double* X, lapack_int const* ldx, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgst LAPACK_GLOBAL(ssbgst,SSBGST) -void LAPACK_ssbgst( +#define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST) +void LAPACK_ssbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, float const* BB, lapack_int const* ldbb, float* X, lapack_int const* ldx, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgv LAPACK_GLOBAL(dsbgv,DSBGV) -void LAPACK_dsbgv( +#define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV) +void LAPACK_dsbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9309,10 +15013,19 @@ void LAPACK_dsbgv( double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgv LAPACK_GLOBAL(ssbgv,SSBGV) -void LAPACK_ssbgv( +#define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV) +void LAPACK_ssbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9320,10 +15033,19 @@ void LAPACK_ssbgv( float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgvd LAPACK_GLOBAL(dsbgvd,DSBGVD) -void LAPACK_dsbgvd( +#define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD) +void LAPACK_dsbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9332,10 +15054,19 @@ void LAPACK_dsbgvd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgvd LAPACK_GLOBAL(ssbgvd,SSBGVD) -void LAPACK_ssbgvd( +#define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD) +void LAPACK_ssbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9344,10 +15075,19 @@ void LAPACK_ssbgvd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgvx LAPACK_GLOBAL(dsbgvx,DSBGVX) -void LAPACK_dsbgvx( +#define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX) +void LAPACK_dsbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9360,10 +15100,19 @@ void LAPACK_dsbgvx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgvx LAPACK_GLOBAL(ssbgvx,SSBGVX) -void LAPACK_ssbgvx( +#define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX) +void LAPACK_ssbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9376,10 +15125,19 @@ void LAPACK_ssbgvx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsbtrd LAPACK_GLOBAL(dsbtrd,DSBTRD) -void LAPACK_dsbtrd( +#define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD) +void LAPACK_dsbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9387,10 +15145,19 @@ void LAPACK_dsbtrd( double* E, double* Q, lapack_int const* ldq, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbtrd LAPACK_GLOBAL(ssbtrd,SSBTRD) -void LAPACK_ssbtrd( +#define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD) +void LAPACK_ssbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9398,38 +15165,74 @@ void LAPACK_ssbtrd( float* E, float* Q, lapack_int const* ldq, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_dsfrk LAPACK_GLOBAL(dsfrk,DSFRK) -void LAPACK_dsfrk( +#define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK) +void LAPACK_dsfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, double const* alpha, double const* A, lapack_int const* lda, double const* beta, - double* C ); + double* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__) +#endif -#define LAPACK_ssfrk LAPACK_GLOBAL(ssfrk,SSFRK) -void LAPACK_ssfrk( +#define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK) +void LAPACK_ssfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, float const* alpha, float const* A, lapack_int const* lda, float const* beta, - float* C ); + float* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__) +#endif -#define LAPACK_cspcon LAPACK_GLOBAL(cspcon,CSPCON) -void LAPACK_cspcon( +#define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON) +void LAPACK_cspcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__) +#endif -#define LAPACK_dspcon LAPACK_GLOBAL(dspcon,DSPCON) -void LAPACK_dspcon( +#define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON) +void LAPACK_dspcon_base( char const* uplo, lapack_int const* n, double const* AP, lapack_int const* ipiv, @@ -9437,10 +15240,19 @@ void LAPACK_dspcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__) +#endif -#define LAPACK_sspcon LAPACK_GLOBAL(sspcon,SSPCON) -void LAPACK_sspcon( +#define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON) +void LAPACK_sspcon_base( char const* uplo, lapack_int const* n, float const* AP, lapack_int const* ipiv, @@ -9448,40 +15260,76 @@ void LAPACK_sspcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__) +#endif -#define LAPACK_zspcon LAPACK_GLOBAL(zspcon,ZSPCON) -void LAPACK_zspcon( +#define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON) +void LAPACK_zspcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__) +#endif -#define LAPACK_dspev LAPACK_GLOBAL(dspev,DSPEV) -void LAPACK_dspev( +#define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV) +void LAPACK_dspev_base( char const* jobz, char const* uplo, lapack_int const* n, double* AP, double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__) +#endif -#define LAPACK_sspev LAPACK_GLOBAL(sspev,SSPEV) -void LAPACK_sspev( +#define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV) +void LAPACK_sspev_base( char const* jobz, char const* uplo, lapack_int const* n, float* AP, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__) +#endif -#define LAPACK_dspevd LAPACK_GLOBAL(dspevd,DSPEVD) -void LAPACK_dspevd( +#define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD) +void LAPACK_dspevd_base( char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9489,10 +15337,19 @@ void LAPACK_dspevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__) +#endif -#define LAPACK_sspevd LAPACK_GLOBAL(sspevd,SSPEVD) -void LAPACK_sspevd( +#define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD) +void LAPACK_sspevd_base( char const* jobz, char const* uplo, lapack_int const* n, float* AP, @@ -9500,10 +15357,19 @@ void LAPACK_sspevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__) +#endif -#define LAPACK_dspevx LAPACK_GLOBAL(dspevx,DSPEVX) -void LAPACK_dspevx( +#define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX) +void LAPACK_dspevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* AP, @@ -9514,10 +15380,19 @@ void LAPACK_dspevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__) +#endif -#define LAPACK_sspevx LAPACK_GLOBAL(sspevx,SSPEVX) -void LAPACK_sspevx( +#define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX) +void LAPACK_sspevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* AP, @@ -9528,26 +15403,53 @@ void LAPACK_sspevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__) +#endif -#define LAPACK_dspgst LAPACK_GLOBAL(dspgst,DSPGST) -void LAPACK_dspgst( +#define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST) +void LAPACK_dspgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, double* AP, double const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__) +#endif -#define LAPACK_sspgst LAPACK_GLOBAL(sspgst,SSPGST) -void LAPACK_sspgst( +#define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST) +void LAPACK_sspgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, float* AP, float const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__) +#endif -#define LAPACK_dspgv LAPACK_GLOBAL(dspgv,DSPGV) -void LAPACK_dspgv( +#define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV) +void LAPACK_dspgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9555,21 +15457,39 @@ void LAPACK_dspgv( double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); - -#define LAPACK_sspgv LAPACK_GLOBAL(sspgv,SSPGV) -void LAPACK_sspgv( - lapack_int const* itype, char const* jobz, char const* uplo, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__) +#endif + +#define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV) +void LAPACK_sspgv_base( + lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* AP, float* BP, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__) +#endif -#define LAPACK_dspgvd LAPACK_GLOBAL(dspgvd,DSPGVD) -void LAPACK_dspgvd( +#define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD) +void LAPACK_dspgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9578,10 +15498,19 @@ void LAPACK_dspgvd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__) +#endif -#define LAPACK_sspgvd LAPACK_GLOBAL(sspgvd,SSPGVD) -void LAPACK_sspgvd( +#define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD) +void LAPACK_sspgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* AP, @@ -9590,10 +15519,19 @@ void LAPACK_sspgvd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__) +#endif -#define LAPACK_dspgvx LAPACK_GLOBAL(dspgvx,DSPGVX) -void LAPACK_dspgvx( +#define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX) +void LAPACK_dspgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* AP, @@ -9605,10 +15543,19 @@ void LAPACK_dspgvx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__) +#endif -#define LAPACK_sspgvx LAPACK_GLOBAL(sspgvx,SSPGVX) -void LAPACK_sspgvx( +#define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX) +void LAPACK_sspgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* AP, @@ -9620,10 +15567,19 @@ void LAPACK_sspgvx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__) +#endif -#define LAPACK_csprfs LAPACK_GLOBAL(csprfs,CSPRFS) -void LAPACK_csprfs( +#define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS) +void LAPACK_csprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -9634,10 +15590,19 @@ void LAPACK_csprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dsprfs LAPACK_GLOBAL(dsprfs,DSPRFS) -void LAPACK_dsprfs( +#define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS) +void LAPACK_dsprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -9648,10 +15613,19 @@ void LAPACK_dsprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ssprfs LAPACK_GLOBAL(ssprfs,SSPRFS) -void LAPACK_ssprfs( +#define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS) +void LAPACK_ssprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -9662,10 +15636,19 @@ void LAPACK_ssprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zsprfs LAPACK_GLOBAL(zsprfs,ZSPRFS) -void LAPACK_zsprfs( +#define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS) +void LAPACK_zsprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -9676,42 +15659,87 @@ void LAPACK_zsprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__) +#endif -#define LAPACK_cspsv LAPACK_GLOBAL(cspsv,CSPSV) -void LAPACK_cspsv( +#define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV) +void LAPACK_cspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__) +#endif -#define LAPACK_dspsv LAPACK_GLOBAL(dspsv,DSPSV) -void LAPACK_dspsv( +#define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV) +void LAPACK_dspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, lapack_int* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__) +#endif -#define LAPACK_sspsv LAPACK_GLOBAL(sspsv,SSPSV) -void LAPACK_sspsv( +#define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV) +void LAPACK_sspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, lapack_int* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__) +#endif -#define LAPACK_zspsv LAPACK_GLOBAL(zspsv,ZSPSV) -void LAPACK_zspsv( +#define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV) +void LAPACK_zspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__) +#endif -#define LAPACK_cspsvx LAPACK_GLOBAL(cspsvx,CSPSVX) -void LAPACK_cspsvx( +#define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX) +void LAPACK_cspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -9723,10 +15751,19 @@ void LAPACK_cspsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dspsvx LAPACK_GLOBAL(dspsvx,DSPSVX) -void LAPACK_dspsvx( +#define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX) +void LAPACK_dspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -9738,10 +15775,19 @@ void LAPACK_dspsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sspsvx LAPACK_GLOBAL(sspsvx,SSPSVX) -void LAPACK_sspsvx( +#define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX) +void LAPACK_sspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -9753,10 +15799,19 @@ void LAPACK_sspsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zspsvx LAPACK_GLOBAL(zspsvx,ZSPSVX) -void LAPACK_zspsvx( +#define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX) +void LAPACK_zspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -9768,122 +15823,257 @@ void LAPACK_zspsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrd LAPACK_GLOBAL(dsptrd,DSPTRD) -void LAPACK_dsptrd( +#define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD) +void LAPACK_dsptrd_base( char const* uplo, lapack_int const* n, double* AP, double* D, double* E, double* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrd LAPACK_GLOBAL(ssptrd,SSPTRD) -void LAPACK_ssptrd( +#define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD) +void LAPACK_ssptrd_base( char const* uplo, lapack_int const* n, float* AP, float* D, float* E, float* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__) +#endif -#define LAPACK_csptrf LAPACK_GLOBAL(csptrf,CSPTRF) -void LAPACK_csptrf( +#define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF) +void LAPACK_csptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrf LAPACK_GLOBAL(dsptrf,DSPTRF) -void LAPACK_dsptrf( +#define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF) +void LAPACK_dsptrf_base( char const* uplo, lapack_int const* n, double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrf LAPACK_GLOBAL(ssptrf,SSPTRF) -void LAPACK_ssptrf( +#define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF) +void LAPACK_ssptrf_base( char const* uplo, lapack_int const* n, float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zsptrf LAPACK_GLOBAL(zsptrf,ZSPTRF) -void LAPACK_zsptrf( +#define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF) +void LAPACK_zsptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__) +#endif -#define LAPACK_csptri LAPACK_GLOBAL(csptri,CSPTRI) -void LAPACK_csptri( +#define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI) +void LAPACK_csptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__) +#endif -#define LAPACK_dsptri LAPACK_GLOBAL(dsptri,DSPTRI) -void LAPACK_dsptri( +#define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI) +void LAPACK_dsptri_base( char const* uplo, lapack_int const* n, double* AP, lapack_int const* ipiv, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__) +#endif -#define LAPACK_ssptri LAPACK_GLOBAL(ssptri,SSPTRI) -void LAPACK_ssptri( +#define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI) +void LAPACK_ssptri_base( char const* uplo, lapack_int const* n, float* AP, lapack_int const* ipiv, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__) +#endif -#define LAPACK_zsptri LAPACK_GLOBAL(zsptri,ZSPTRI) -void LAPACK_zsptri( +#define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI) +void LAPACK_zsptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__) +#endif -#define LAPACK_csptrs LAPACK_GLOBAL(csptrs,CSPTRS) -void LAPACK_csptrs( +#define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS) +void LAPACK_csptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrs LAPACK_GLOBAL(dsptrs,DSPTRS) -void LAPACK_dsptrs( +#define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS) +void LAPACK_dsptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrs LAPACK_GLOBAL(ssptrs,SSPTRS) -void LAPACK_ssptrs( +#define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS) +void LAPACK_ssptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zsptrs LAPACK_GLOBAL(zsptrs,ZSPTRS) -void LAPACK_zsptrs( +#define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS) +void LAPACK_zsptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dstebz LAPACK_GLOBAL(dstebz,DSTEBZ) -void LAPACK_dstebz( +#define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ) +void LAPACK_dstebz_base( char const* range, char const* order, lapack_int const* n, double const* vl, @@ -9894,10 +16084,19 @@ void LAPACK_dstebz( double* W, lapack_int* IBLOCK, lapack_int* ISPLIT, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__) +#endif -#define LAPACK_sstebz LAPACK_GLOBAL(sstebz,SSTEBZ) -void LAPACK_sstebz( +#define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ) +void LAPACK_sstebz_base( char const* range, char const* order, lapack_int const* n, float const* vl, @@ -9908,10 +16107,19 @@ void LAPACK_sstebz( float* W, lapack_int* IBLOCK, lapack_int* ISPLIT, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__) +#endif -#define LAPACK_cstedc LAPACK_GLOBAL(cstedc,CSTEDC) -void LAPACK_cstedc( +#define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC) +void LAPACK_cstedc_base( char const* compz, lapack_int const* n, float* D, @@ -9920,10 +16128,19 @@ void LAPACK_cstedc( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__) +#endif -#define LAPACK_dstedc LAPACK_GLOBAL(dstedc,DSTEDC) -void LAPACK_dstedc( +#define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC) +void LAPACK_dstedc_base( char const* compz, lapack_int const* n, double* D, @@ -9931,10 +16148,19 @@ void LAPACK_dstedc( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__) +#endif -#define LAPACK_sstedc LAPACK_GLOBAL(sstedc,SSTEDC) -void LAPACK_sstedc( +#define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC) +void LAPACK_sstedc_base( char const* compz, lapack_int const* n, float* D, @@ -9942,10 +16168,19 @@ void LAPACK_sstedc( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__) +#endif -#define LAPACK_zstedc LAPACK_GLOBAL(zstedc,ZSTEDC) -void LAPACK_zstedc( +#define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC) +void LAPACK_zstedc_base( char const* compz, lapack_int const* n, double* D, @@ -9954,10 +16189,19 @@ void LAPACK_zstedc( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__) +#endif -#define LAPACK_cstegr LAPACK_GLOBAL(cstegr,CSTEGR) -void LAPACK_cstegr( +#define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR) +void LAPACK_cstegr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -9969,10 +16213,19 @@ void LAPACK_cstegr( lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__) +#endif -#define LAPACK_dstegr LAPACK_GLOBAL(dstegr,DSTEGR) -void LAPACK_dstegr( +#define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR) +void LAPACK_dstegr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -9984,10 +16237,19 @@ void LAPACK_dstegr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__) +#endif -#define LAPACK_sstegr LAPACK_GLOBAL(sstegr,SSTEGR) -void LAPACK_sstegr( +#define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR) +void LAPACK_sstegr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -9999,10 +16261,19 @@ void LAPACK_sstegr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__) +#endif -#define LAPACK_zstegr LAPACK_GLOBAL(zstegr,ZSTEGR) -void LAPACK_zstegr( +#define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR) +void LAPACK_zstegr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10014,7 +16285,16 @@ void LAPACK_zstegr( lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__) +#endif #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN) void LAPACK_cstein( @@ -10060,8 +16340,8 @@ void LAPACK_zstein( lapack_int* iwork, lapack_int* IFAIL, lapack_int* info ); -#define LAPACK_cstemr LAPACK_GLOBAL(cstemr,CSTEMR) -void LAPACK_cstemr( +#define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR) +void LAPACK_cstemr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10072,10 +16352,19 @@ void LAPACK_cstemr( lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__) +#endif -#define LAPACK_dstemr LAPACK_GLOBAL(dstemr,DSTEMR) -void LAPACK_dstemr( +#define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR) +void LAPACK_dstemr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10086,10 +16375,19 @@ void LAPACK_dstemr( double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__) +#endif -#define LAPACK_sstemr LAPACK_GLOBAL(sstemr,SSTEMR) -void LAPACK_sstemr( +#define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR) +void LAPACK_sstemr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10100,10 +16398,19 @@ void LAPACK_sstemr( float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__) +#endif -#define LAPACK_zstemr LAPACK_GLOBAL(zstemr,ZSTEMR) -void LAPACK_zstemr( +#define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR) +void LAPACK_zstemr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10114,47 +16421,92 @@ void LAPACK_zstemr( lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__) +#endif -#define LAPACK_csteqr LAPACK_GLOBAL(csteqr,CSTEQR) -void LAPACK_csteqr( +#define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR) +void LAPACK_csteqr_base( char const* compz, lapack_int const* n, float* D, float* E, lapack_complex_float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__) +#endif -#define LAPACK_dsteqr LAPACK_GLOBAL(dsteqr,DSTEQR) -void LAPACK_dsteqr( +#define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR) +void LAPACK_dsteqr_base( char const* compz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__) +#endif -#define LAPACK_ssteqr LAPACK_GLOBAL(ssteqr,SSTEQR) -void LAPACK_ssteqr( +#define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR) +void LAPACK_ssteqr_base( char const* compz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__) +#endif -#define LAPACK_zsteqr LAPACK_GLOBAL(zsteqr,ZSTEQR) -void LAPACK_zsteqr( +#define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR) +void LAPACK_zsteqr_base( char const* compz, lapack_int const* n, double* D, double* E, lapack_complex_double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__) +#endif #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF) void LAPACK_dsterf( @@ -10170,28 +16522,46 @@ void LAPACK_ssterf( float* E, lapack_int* info ); -#define LAPACK_dstev LAPACK_GLOBAL(dstev,DSTEV) -void LAPACK_dstev( +#define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV) +void LAPACK_dstev_base( char const* jobz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__) +#endif -#define LAPACK_sstev LAPACK_GLOBAL(sstev,SSTEV) -void LAPACK_sstev( +#define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV) +void LAPACK_sstev_base( char const* jobz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__) +#endif -#define LAPACK_dstevd LAPACK_GLOBAL(dstevd,DSTEVD) -void LAPACK_dstevd( +#define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD) +void LAPACK_dstevd_base( char const* jobz, lapack_int const* n, double* D, @@ -10199,10 +16569,19 @@ void LAPACK_dstevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__) +#endif -#define LAPACK_sstevd LAPACK_GLOBAL(sstevd,SSTEVD) -void LAPACK_sstevd( +#define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD) +void LAPACK_sstevd_base( char const* jobz, lapack_int const* n, float* D, @@ -10210,10 +16589,19 @@ void LAPACK_sstevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__) +#endif -#define LAPACK_dstevr LAPACK_GLOBAL(dstevr,DSTEVR) -void LAPACK_dstevr( +#define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR) +void LAPACK_dstevr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10225,10 +16613,19 @@ void LAPACK_dstevr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__) +#endif -#define LAPACK_sstevr LAPACK_GLOBAL(sstevr,SSTEVR) -void LAPACK_sstevr( +#define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR) +void LAPACK_sstevr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10240,10 +16637,19 @@ void LAPACK_sstevr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__) +#endif -#define LAPACK_dstevx LAPACK_GLOBAL(dstevx,DSTEVX) -void LAPACK_dstevx( +#define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX) +void LAPACK_dstevx_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10255,10 +16661,19 @@ void LAPACK_dstevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__) +#endif -#define LAPACK_sstevx LAPACK_GLOBAL(sstevx,SSTEVX) -void LAPACK_sstevx( +#define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX) +void LAPACK_sstevx_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10270,20 +16685,38 @@ void LAPACK_sstevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__) +#endif -#define LAPACK_csycon LAPACK_GLOBAL(csycon,CSYCON) -void LAPACK_csycon( +#define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON) +void LAPACK_csycon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__) +#endif -#define LAPACK_dsycon LAPACK_GLOBAL(dsycon,DSYCON) -void LAPACK_dsycon( +#define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON) +void LAPACK_dsycon_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, lapack_int const* ipiv, @@ -10291,10 +16724,19 @@ void LAPACK_dsycon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__) +#endif -#define LAPACK_ssycon LAPACK_GLOBAL(ssycon,SSYCON) -void LAPACK_ssycon( +#define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON) +void LAPACK_ssycon_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, lapack_int const* ipiv, @@ -10302,20 +16744,38 @@ void LAPACK_ssycon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__) +#endif -#define LAPACK_zsycon LAPACK_GLOBAL(zsycon,ZSYCON) -void LAPACK_zsycon( +#define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON) +void LAPACK_zsycon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__) +#endif -#define LAPACK_csycon_3 LAPACK_GLOBAL(csycon_3,CSYCON_3) -void LAPACK_csycon_3( +#define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3) +void LAPACK_csycon_3_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -10323,10 +16783,19 @@ void LAPACK_csycon_3( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsycon_3 LAPACK_GLOBAL(dsycon_3,DSYCON_3) -void LAPACK_dsycon_3( +#define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3) +void LAPACK_dsycon_3_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -10335,11 +16804,20 @@ void LAPACK_dsycon_3( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_ssycon_3 LAPACK_GLOBAL(ssycon_3,SSYCON_3) -void LAPACK_ssycon_3( - char const* uplo, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__) +#endif + +#define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3) +void LAPACK_ssycon_3_base( + char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, @@ -10347,10 +16825,19 @@ void LAPACK_ssycon_3( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsycon_3 LAPACK_GLOBAL(zsycon_3,ZSYCON_3) -void LAPACK_zsycon_3( +#define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3) +void LAPACK_zsycon_3_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -10358,42 +16845,87 @@ void LAPACK_zsycon_3( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_csyconv LAPACK_GLOBAL(csyconv,CSYCONV) -void LAPACK_csyconv( +#define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV) +void LAPACK_csyconv_base( char const* uplo, char const* way, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__) +#endif -#define LAPACK_dsyconv LAPACK_GLOBAL(dsyconv,DSYCONV) -void LAPACK_dsyconv( +#define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV) +void LAPACK_dsyconv_base( char const* uplo, char const* way, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__) +#endif -#define LAPACK_ssyconv LAPACK_GLOBAL(ssyconv,SSYCONV) -void LAPACK_ssyconv( +#define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV) +void LAPACK_ssyconv_base( char const* uplo, char const* way, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__) +#endif -#define LAPACK_zsyconv LAPACK_GLOBAL(zsyconv,ZSYCONV) -void LAPACK_zsyconv( +#define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV) +void LAPACK_zsyconv_base( char const* uplo, char const* way, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__) +#endif -#define LAPACK_csyequb LAPACK_GLOBAL(csyequb,CSYEQUB) -void LAPACK_csyequb( +#define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB) +void LAPACK_csyequb_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -10401,10 +16933,19 @@ void LAPACK_csyequb( float* scond, float* amax, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__) +#endif -#define LAPACK_dsyequb LAPACK_GLOBAL(dsyequb,DSYEQUB) -void LAPACK_dsyequb( +#define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB) +void LAPACK_dsyequb_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -10412,10 +16953,19 @@ void LAPACK_dsyequb( double* scond, double* amax, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__) +#endif -#define LAPACK_ssyequb LAPACK_GLOBAL(ssyequb,SSYEQUB) -void LAPACK_ssyequb( +#define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB) +void LAPACK_ssyequb_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, @@ -10423,10 +16973,19 @@ void LAPACK_ssyequb( float* scond, float* amax, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__) +#endif -#define LAPACK_zsyequb LAPACK_GLOBAL(zsyequb,ZSYEQUB) -void LAPACK_zsyequb( +#define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB) +void LAPACK_zsyequb_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -10434,86 +16993,167 @@ void LAPACK_zsyequb( double* scond, double* amax, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__) +#endif -#define LAPACK_dsyev LAPACK_GLOBAL(dsyev,DSYEV) -void LAPACK_dsyev( +#define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV) +void LAPACK_dsyev_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__) +#endif -#define LAPACK_ssyev LAPACK_GLOBAL(ssyev,SSYEV) -void LAPACK_ssyev( +#define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV) +void LAPACK_ssyev_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__) +#endif -#define LAPACK_dsyev_2stage LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE) -void LAPACK_dsyev_2stage( +#define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE) +void LAPACK_dsyev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyev_2stage LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE) -void LAPACK_ssyev_2stage( +#define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE) +void LAPACK_ssyev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevd LAPACK_GLOBAL(dsyevd,DSYEVD) -void LAPACK_dsyevd( +#define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD) +void LAPACK_dsyevd_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevd LAPACK_GLOBAL(ssyevd,SSYEVD) -void LAPACK_ssyevd( +#define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD) +void LAPACK_ssyevd_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevd_2stage LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE) -void LAPACK_dsyevd_2stage( +#define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE) +void LAPACK_dsyevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevd_2stage LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE) -void LAPACK_ssyevd_2stage( +#define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE) +void LAPACK_ssyevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevr LAPACK_GLOBAL(dsyevr,DSYEVR) -void LAPACK_dsyevr( +#define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR) +void LAPACK_dsyevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10524,10 +17164,19 @@ void LAPACK_dsyevr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevr LAPACK_GLOBAL(ssyevr,SSYEVR) -void LAPACK_ssyevr( +#define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR) +void LAPACK_ssyevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10538,10 +17187,19 @@ void LAPACK_ssyevr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevr_2stage LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE) -void LAPACK_dsyevr_2stage( +#define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE) +void LAPACK_dsyevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10552,10 +17210,19 @@ void LAPACK_dsyevr_2stage( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevr_2stage LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE) -void LAPACK_ssyevr_2stage( +#define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE) +void LAPACK_ssyevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10566,10 +17233,19 @@ void LAPACK_ssyevr_2stage( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevx LAPACK_GLOBAL(dsyevx,DSYEVX) -void LAPACK_dsyevx( +#define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX) +void LAPACK_dsyevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10580,10 +17256,19 @@ void LAPACK_dsyevx( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevx LAPACK_GLOBAL(ssyevx,SSYEVX) -void LAPACK_ssyevx( +#define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX) +void LAPACK_ssyevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10594,10 +17279,19 @@ void LAPACK_ssyevx( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevx_2stage LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE) -void LAPACK_dsyevx_2stage( +#define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE) +void LAPACK_dsyevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10608,10 +17302,19 @@ void LAPACK_dsyevx_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevx_2stage LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE) -void LAPACK_ssyevx_2stage( +#define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE) +void LAPACK_ssyevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10622,66 +17325,129 @@ void LAPACK_ssyevx_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsygst LAPACK_GLOBAL(dsygst,DSYGST) -void LAPACK_dsygst( +#define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST) +void LAPACK_dsygst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__) +#endif -#define LAPACK_ssygst LAPACK_GLOBAL(ssygst,SSYGST) -void LAPACK_ssygst( +#define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST) +void LAPACK_ssygst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__) +#endif -#define LAPACK_dsygv LAPACK_GLOBAL(dsygv,DSYGV) -void LAPACK_dsygv( +#define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV) +void LAPACK_dsygv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__) +#endif -#define LAPACK_ssygv LAPACK_GLOBAL(ssygv,SSYGV) -void LAPACK_ssygv( +#define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV) +void LAPACK_ssygv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__) +#endif -#define LAPACK_dsygv_2stage LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE) -void LAPACK_dsygv_2stage( +#define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE) +void LAPACK_dsygv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssygv_2stage LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE) -void LAPACK_ssygv_2stage( +#define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE) +void LAPACK_ssygv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsygvd LAPACK_GLOBAL(dsygvd,DSYGVD) -void LAPACK_dsygvd( +#define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD) +void LAPACK_dsygvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10689,10 +17455,19 @@ void LAPACK_dsygvd( double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__) +#endif -#define LAPACK_ssygvd LAPACK_GLOBAL(ssygvd,SSYGVD) -void LAPACK_ssygvd( +#define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD) +void LAPACK_ssygvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10700,10 +17475,19 @@ void LAPACK_ssygvd( float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__) +#endif -#define LAPACK_dsygvx LAPACK_GLOBAL(dsygvx,DSYGVX) -void LAPACK_dsygvx( +#define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX) +void LAPACK_dsygvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10715,10 +17499,19 @@ void LAPACK_dsygvx( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssygvx LAPACK_GLOBAL(ssygvx,SSYGVX) -void LAPACK_ssygvx( +#define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX) +void LAPACK_ssygvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10730,26 +17523,53 @@ void LAPACK_ssygvx( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__) +#endif -#define LAPACK_csyr LAPACK_GLOBAL(csyr,CSYR) -void LAPACK_csyr( +#define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR) +void LAPACK_csyr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* X, lapack_int const* incx, - lapack_complex_float* A, lapack_int const* lda ); + lapack_complex_float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__) +#endif -#define LAPACK_zsyr LAPACK_GLOBAL(zsyr,ZSYR) -void LAPACK_zsyr( +#define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR) +void LAPACK_zsyr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* X, lapack_int const* incx, - lapack_complex_double* A, lapack_int const* lda ); + lapack_complex_double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__) +#endif -#define LAPACK_csyrfs LAPACK_GLOBAL(csyrfs,CSYRFS) -void LAPACK_csyrfs( +#define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS) +void LAPACK_csyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -10760,10 +17580,19 @@ void LAPACK_csyrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dsyrfs LAPACK_GLOBAL(dsyrfs,DSYRFS) -void LAPACK_dsyrfs( +#define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS) +void LAPACK_dsyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -10774,10 +17603,19 @@ void LAPACK_dsyrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ssyrfs LAPACK_GLOBAL(ssyrfs,SSYRFS) -void LAPACK_ssyrfs( +#define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS) +void LAPACK_ssyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -10788,10 +17626,19 @@ void LAPACK_ssyrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zsyrfs LAPACK_GLOBAL(zsyrfs,ZSYRFS) -void LAPACK_zsyrfs( +#define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS) +void LAPACK_zsyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -10802,10 +17649,19 @@ void LAPACK_zsyrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_csyrfsx LAPACK_GLOBAL(csyrfsx,CSYRFSX) -void LAPACK_csyrfsx( +#define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX) +void LAPACK_csyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -10820,10 +17676,19 @@ void LAPACK_csyrfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dsyrfsx LAPACK_GLOBAL(dsyrfsx,DSYRFSX) -void LAPACK_dsyrfsx( +#define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX) +void LAPACK_dsyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -10838,10 +17703,19 @@ void LAPACK_dsyrfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_ssyrfsx LAPACK_GLOBAL(ssyrfsx,SSYRFSX) -void LAPACK_ssyrfsx( +#define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX) +void LAPACK_ssyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -10856,10 +17730,19 @@ void LAPACK_ssyrfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zsyrfsx LAPACK_GLOBAL(zsyrfsx,ZSYRFSX) -void LAPACK_zsyrfsx( +#define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX) +void LAPACK_zsyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -10874,198 +17757,387 @@ void LAPACK_zsyrfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_csysv LAPACK_GLOBAL(csysv,CSYSV) -void LAPACK_csysv( +#define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV) +void LAPACK_csysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv LAPACK_GLOBAL(dsysv,DSYSV) -void LAPACK_dsysv( +#define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV) +void LAPACK_dsysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv LAPACK_GLOBAL(ssysv,SSYSV) -void LAPACK_ssysv( +#define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV) +void LAPACK_ssysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv LAPACK_GLOBAL(zsysv,ZSYSV) -void LAPACK_zsysv( +#define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV) +void LAPACK_zsysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_aa LAPACK_GLOBAL(csysv_aa,CSYSV_AA) -void LAPACK_csysv_aa( +#define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA) +void LAPACK_csysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_aa LAPACK_GLOBAL(dsysv_aa,DSYSV_AA) -void LAPACK_dsysv_aa( +#define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA) +void LAPACK_dsysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_aa LAPACK_GLOBAL(ssysv_aa,SSYSV_AA) -void LAPACK_ssysv_aa( +#define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA) +void LAPACK_ssysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_aa LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA) -void LAPACK_zsysv_aa( +#define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA) +void LAPACK_zsysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_aa_2stage LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE) -void LAPACK_csysv_aa_2stage( +#define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE) +void LAPACK_csysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_aa_2stage LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE) -void LAPACK_dsysv_aa_2stage( +#define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE) +void LAPACK_dsysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_aa_2stage LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE) -void LAPACK_ssysv_aa_2stage( +#define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE) +void LAPACK_ssysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_aa_2stage LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE) -void LAPACK_zsysv_aa_2stage( +#define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE) +void LAPACK_zsysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_rk LAPACK_GLOBAL(csysv_rk,CSYSV_RK) -void LAPACK_csysv_rk( +#define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK) +void LAPACK_csysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_rk LAPACK_GLOBAL(dsysv_rk,DSYSV_RK) -void LAPACK_dsysv_rk( +#define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK) +void LAPACK_dsysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* E, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_rk LAPACK_GLOBAL(ssysv_rk,SSYSV_RK) -void LAPACK_ssysv_rk( +#define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK) +void LAPACK_ssysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* E, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_rk LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK) -void LAPACK_zsysv_rk( +#define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK) +void LAPACK_zsysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_rook LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK) -void LAPACK_csysv_rook( +#define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK) +void LAPACK_csysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_rook LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK) -void LAPACK_dsysv_rook( +#define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK) +void LAPACK_dsysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_rook LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK) -void LAPACK_ssysv_rook( +#define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK) +void LAPACK_ssysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_rook LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK) -void LAPACK_zsysv_rook( +#define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK) +void LAPACK_zsysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_csysvx LAPACK_GLOBAL(csysvx,CSYSVX) -void LAPACK_csysvx( +#define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX) +void LAPACK_csysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -11077,10 +18149,19 @@ void LAPACK_csysvx( float* berr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsysvx LAPACK_GLOBAL(dsysvx,DSYSVX) -void LAPACK_dsysvx( +#define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX) +void LAPACK_dsysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -11092,10 +18173,19 @@ void LAPACK_dsysvx( double* berr, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssysvx LAPACK_GLOBAL(ssysvx,SSYSVX) -void LAPACK_ssysvx( +#define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX) +void LAPACK_ssysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -11107,10 +18197,19 @@ void LAPACK_ssysvx( float* berr, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__) +#endif -#define LAPACK_zsysvx LAPACK_GLOBAL(zsysvx,ZSYSVX) -void LAPACK_zsysvx( +#define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX) +void LAPACK_zsysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -11122,10 +18221,19 @@ void LAPACK_zsysvx( double* berr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__) +#endif -#define LAPACK_csysvxx LAPACK_GLOBAL(csysvxx,CSYSVXX) -void LAPACK_csysvxx( +#define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX) +void LAPACK_csysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -11142,10 +18250,19 @@ void LAPACK_csysvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dsysvxx LAPACK_GLOBAL(dsysvxx,DSYSVXX) -void LAPACK_dsysvxx( +#define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX) +void LAPACK_dsysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -11162,10 +18279,19 @@ void LAPACK_dsysvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_ssysvxx LAPACK_GLOBAL(ssysvxx,SSYSVXX) -void LAPACK_ssysvxx( +#define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX) +void LAPACK_ssysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -11182,10 +18308,19 @@ void LAPACK_ssysvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zsysvxx LAPACK_GLOBAL(zsysvxx,ZSYSVXX) -void LAPACK_zsysvxx( +#define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX) +void LAPACK_zsysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -11202,34 +18337,79 @@ void LAPACK_zsysvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_csyswapr LAPACK_GLOBAL(csyswapr,CSYSWAPR) -void LAPACK_csyswapr( +#define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR) +void LAPACK_csyswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_dsyswapr LAPACK_GLOBAL(dsyswapr,DSYSWAPR) -void LAPACK_dsyswapr( +#define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR) +void LAPACK_dsyswapr_base( char const* uplo, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_ssyswapr LAPACK_GLOBAL(ssyswapr,SSYSWAPR) -void LAPACK_ssyswapr( +#define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR) +void LAPACK_ssyswapr_base( char const* uplo, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_zsyswapr LAPACK_GLOBAL(zsyswapr,ZSYSWAPR) -void LAPACK_zsyswapr( +#define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR) +void LAPACK_zsyswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrd LAPACK_GLOBAL(dsytrd,DSYTRD) -void LAPACK_dsytrd( +#define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD) +void LAPACK_dsytrd_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -11237,10 +18417,19 @@ void LAPACK_dsytrd( double* E, double* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrd LAPACK_GLOBAL(ssytrd,SSYTRD) -void LAPACK_ssytrd( +#define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD) +void LAPACK_ssytrd_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -11248,10 +18437,19 @@ void LAPACK_ssytrd( float* E, float* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrd_2stage LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE) -void LAPACK_dsytrd_2stage( +#define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE) +void LAPACK_dsytrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -11260,10 +18458,19 @@ void LAPACK_dsytrd_2stage( double* tau, double* HOUS2, lapack_int const* lhous2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrd_2stage LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE) -void LAPACK_ssytrd_2stage( +#define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE) +void LAPACK_ssytrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -11272,558 +18479,1143 @@ void LAPACK_ssytrd_2stage( float* tau, float* HOUS2, lapack_int const* lhous2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf LAPACK_GLOBAL(csytrf,CSYTRF) -void LAPACK_csytrf( +#define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF) +void LAPACK_csytrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf LAPACK_GLOBAL(dsytrf,DSYTRF) -void LAPACK_dsytrf( +#define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF) +void LAPACK_dsytrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf LAPACK_GLOBAL(ssytrf,SSYTRF) -void LAPACK_ssytrf( +#define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF) +void LAPACK_ssytrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf LAPACK_GLOBAL(zsytrf,ZSYTRF) -void LAPACK_zsytrf( +#define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF) +void LAPACK_zsytrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_aa LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA) -void LAPACK_csytrf_aa( +#define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA) +void LAPACK_csytrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_aa LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA) -void LAPACK_dsytrf_aa( +#define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA) +void LAPACK_dsytrf_aa_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_aa LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA) -void LAPACK_ssytrf_aa( +#define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA) +void LAPACK_ssytrf_aa_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_aa LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA) -void LAPACK_zsytrf_aa( +#define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA) +void LAPACK_zsytrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_aa_2stage LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE) -void LAPACK_csytrf_aa_2stage( +#define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE) +void LAPACK_csytrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_aa_2stage LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE) -void LAPACK_dsytrf_aa_2stage( +#define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE) +void LAPACK_dsytrf_aa_2stage_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_aa_2stage LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE) -void LAPACK_ssytrf_aa_2stage( +#define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE) +void LAPACK_ssytrf_aa_2stage_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_aa_2stage LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE) -void LAPACK_zsytrf_aa_2stage( +#define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE) +void LAPACK_zsytrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_rk LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK) -void LAPACK_csytrf_rk( +#define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK) +void LAPACK_csytrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_rk LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK) -void LAPACK_dsytrf_rk( +#define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK) +void LAPACK_dsytrf_rk_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* E, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_rk LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK) -void LAPACK_ssytrf_rk( +#define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK) +void LAPACK_ssytrf_rk_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* E, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_rk LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK) -void LAPACK_zsytrf_rk( +#define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK) +void LAPACK_zsytrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_rook LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK) -void LAPACK_csytrf_rook( +#define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK) +void LAPACK_csytrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_rook LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK) -void LAPACK_dsytrf_rook( +#define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK) +void LAPACK_dsytrf_rook_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_rook LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK) -void LAPACK_ssytrf_rook( +#define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK) +void LAPACK_ssytrf_rook_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_rook LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK) -void LAPACK_zsytrf_rook( +#define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK) +void LAPACK_zsytrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_csytri LAPACK_GLOBAL(csytri,CSYTRI) -void LAPACK_csytri( +#define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI) +void LAPACK_csytri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri LAPACK_GLOBAL(dsytri,DSYTRI) -void LAPACK_dsytri( +#define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI) +void LAPACK_dsytri_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri LAPACK_GLOBAL(ssytri,SSYTRI) -void LAPACK_ssytri( +#define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI) +void LAPACK_ssytri_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri LAPACK_GLOBAL(zsytri,ZSYTRI) -void LAPACK_zsytri( +#define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI) +void LAPACK_zsytri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__) +#endif -#define LAPACK_csytri2 LAPACK_GLOBAL(csytri2,CSYTRI2) -void LAPACK_csytri2( +#define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2) +void LAPACK_csytri2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri2 LAPACK_GLOBAL(dsytri2,DSYTRI2) -void LAPACK_dsytri2( +#define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2) +void LAPACK_dsytri2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri2 LAPACK_GLOBAL(ssytri2,SSYTRI2) -void LAPACK_ssytri2( +#define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2) +void LAPACK_ssytri2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri2 LAPACK_GLOBAL(zsytri2,ZSYTRI2) -void LAPACK_zsytri2( +#define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2) +void LAPACK_zsytri2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__) +#endif -#define LAPACK_csytri2x LAPACK_GLOBAL(csytri2x,CSYTRI2X) -void LAPACK_csytri2x( +#define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X) +void LAPACK_csytri2x_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri2x LAPACK_GLOBAL(dsytri2x,DSYTRI2X) -void LAPACK_dsytri2x( +#define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X) +void LAPACK_dsytri2x_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri2x LAPACK_GLOBAL(ssytri2x,SSYTRI2X) -void LAPACK_ssytri2x( +#define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X) +void LAPACK_ssytri2x_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri2x LAPACK_GLOBAL(zsytri2x,ZSYTRI2X) -void LAPACK_zsytri2x( +#define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X) +void LAPACK_zsytri2x_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_csytri_3 LAPACK_GLOBAL(csytri_3,CSYTRI_3) -void LAPACK_csytri_3( +#define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3) +void LAPACK_csytri_3_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri_3 LAPACK_GLOBAL(dsytri_3,DSYTRI_3) -void LAPACK_dsytri_3( +#define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3) +void LAPACK_dsytri_3_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* E, lapack_int const* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri_3 LAPACK_GLOBAL(ssytri_3,SSYTRI_3) -void LAPACK_ssytri_3( +#define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3) +void LAPACK_ssytri_3_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri_3 LAPACK_GLOBAL(zsytri_3,ZSYTRI_3) -void LAPACK_zsytri_3( +#define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3) +void LAPACK_zsytri_3_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs LAPACK_GLOBAL(csytrs,CSYTRS) -void LAPACK_csytrs( +#define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS) +void LAPACK_csytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs LAPACK_GLOBAL(dsytrs,DSYTRS) -void LAPACK_dsytrs( +#define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS) +void LAPACK_dsytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs LAPACK_GLOBAL(ssytrs,SSYTRS) -void LAPACK_ssytrs( +#define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS) +void LAPACK_ssytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs LAPACK_GLOBAL(zsytrs,ZSYTRS) -void LAPACK_zsytrs( +#define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS) +void LAPACK_zsytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs2 LAPACK_GLOBAL(csytrs2,CSYTRS2) -void LAPACK_csytrs2( +#define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2) +void LAPACK_csytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs2 LAPACK_GLOBAL(dsytrs2,DSYTRS2) -void LAPACK_dsytrs2( +#define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2) +void LAPACK_dsytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const double* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs2 LAPACK_GLOBAL(ssytrs2,SSYTRS2) -void LAPACK_ssytrs2( +#define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2) +void LAPACK_ssytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const float* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs2 LAPACK_GLOBAL(zsytrs2,ZSYTRS2) -void LAPACK_zsytrs2( +#define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2) +void LAPACK_zsytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_3 LAPACK_GLOBAL(csytrs_3,CSYTRS_3) -void LAPACK_csytrs_3( +#define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3) +void LAPACK_csytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_3 LAPACK_GLOBAL(dsytrs_3,DSYTRS_3) -void LAPACK_dsytrs_3( +#define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3) +void LAPACK_dsytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double const* E, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_3 LAPACK_GLOBAL(ssytrs_3,SSYTRS_3) -void LAPACK_ssytrs_3( +#define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3) +void LAPACK_ssytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_3 LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3) -void LAPACK_zsytrs_3( +#define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3) +void LAPACK_zsytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_aa LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA) -void LAPACK_csytrs_aa( +#define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA) +void LAPACK_csytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_aa LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA) -void LAPACK_dsytrs_aa( +#define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA) +void LAPACK_dsytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_aa LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA) -void LAPACK_ssytrs_aa( +#define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA) +void LAPACK_ssytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_aa LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA) -void LAPACK_zsytrs_aa( +#define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA) +void LAPACK_zsytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_aa_2stage LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE) -void LAPACK_csytrs_aa_2stage( +#define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE) +void LAPACK_csytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_aa_2stage LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE) -void LAPACK_dsytrs_aa_2stage( +#define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE) +void LAPACK_dsytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_aa_2stage LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE) -void LAPACK_ssytrs_aa_2stage( +#define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE) +void LAPACK_ssytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_aa_2stage LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE) -void LAPACK_zsytrs_aa_2stage( +#define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE) +void LAPACK_zsytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_rook LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK) -void LAPACK_csytrs_rook( +#define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK) +void LAPACK_csytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_rook LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK) -void LAPACK_dsytrs_rook( +#define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK) +void LAPACK_dsytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_rook LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK) -void LAPACK_ssytrs_rook( +#define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK) +void LAPACK_ssytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_rook LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK) -void LAPACK_zsytrs_rook( +#define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK) +void LAPACK_zsytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ctbcon LAPACK_GLOBAL(ctbcon,CTBCON) -void LAPACK_ctbcon( +#define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON) +void LAPACK_ctbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtbcon LAPACK_GLOBAL(dtbcon,DTBCON) -void LAPACK_dtbcon( +#define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON) +void LAPACK_dtbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__) +#endif -#define LAPACK_stbcon LAPACK_GLOBAL(stbcon,STBCON) -void LAPACK_stbcon( +#define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON) +void LAPACK_stbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztbcon LAPACK_GLOBAL(ztbcon,ZTBCON) -void LAPACK_ztbcon( +#define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON) +void LAPACK_ztbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__) +#endif -#define LAPACK_ctbrfs LAPACK_GLOBAL(ctbrfs,CTBRFS) -void LAPACK_ctbrfs( +#define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS) +void LAPACK_ctbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -11833,10 +19625,19 @@ void LAPACK_ctbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtbrfs LAPACK_GLOBAL(dtbrfs,DTBRFS) -void LAPACK_dtbrfs( +#define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS) +void LAPACK_dtbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -11846,10 +19647,19 @@ void LAPACK_dtbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_stbrfs LAPACK_GLOBAL(stbrfs,STBRFS) -void LAPACK_stbrfs( +#define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS) +void LAPACK_stbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -11859,10 +19669,19 @@ void LAPACK_stbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztbrfs LAPACK_GLOBAL(ztbrfs,ZTBRFS) -void LAPACK_ztbrfs( +#define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS) +void LAPACK_ztbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -11872,166 +19691,355 @@ void LAPACK_ztbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctbtrs LAPACK_GLOBAL(ctbtrs,CTBTRS) -void LAPACK_ctbtrs( +#define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS) +void LAPACK_ctbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtbtrs LAPACK_GLOBAL(dtbtrs,DTBTRS) -void LAPACK_dtbtrs( +#define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS) +void LAPACK_dtbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_stbtrs LAPACK_GLOBAL(stbtrs,STBTRS) -void LAPACK_stbtrs( +#define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS) +void LAPACK_stbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztbtrs LAPACK_GLOBAL(ztbtrs,ZTBTRS) -void LAPACK_ztbtrs( +#define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS) +void LAPACK_ztbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctfsm LAPACK_GLOBAL(ctfsm,CTFSM) -void LAPACK_ctfsm( +#define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM) +void LAPACK_ctfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* A, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__) +#endif -#define LAPACK_dtfsm LAPACK_GLOBAL(dtfsm,DTFSM) -void LAPACK_dtfsm( +#define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM) +void LAPACK_dtfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, double const* alpha, double const* A, - double* B, lapack_int const* ldb ); + double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__) +#endif -#define LAPACK_stfsm LAPACK_GLOBAL(stfsm,STFSM) -void LAPACK_stfsm( +#define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM) +void LAPACK_stfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, float const* alpha, float const* A, - float* B, lapack_int const* ldb ); + float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__) +#endif -#define LAPACK_ztfsm LAPACK_GLOBAL(ztfsm,ZTFSM) -void LAPACK_ztfsm( +#define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM) +void LAPACK_ztfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* A, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__) +#endif -#define LAPACK_ctftri LAPACK_GLOBAL(ctftri,CTFTRI) -void LAPACK_ctftri( +#define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI) +void LAPACK_ctftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__) +#endif -#define LAPACK_dtftri LAPACK_GLOBAL(dtftri,DTFTRI) -void LAPACK_dtftri( +#define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI) +void LAPACK_dtftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__) +#endif -#define LAPACK_stftri LAPACK_GLOBAL(stftri,STFTRI) -void LAPACK_stftri( +#define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI) +void LAPACK_stftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__) +#endif -#define LAPACK_ztftri LAPACK_GLOBAL(ztftri,ZTFTRI) -void LAPACK_ztftri( +#define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI) +void LAPACK_ztftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__) +#endif -#define LAPACK_ctfttp LAPACK_GLOBAL(ctfttp,CTFTTP) -void LAPACK_ctfttp( +#define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP) +void LAPACK_ctfttp_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* ARF, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__) +#endif -#define LAPACK_dtfttp LAPACK_GLOBAL(dtfttp,DTFTTP) -void LAPACK_dtfttp( +#define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP) +void LAPACK_dtfttp_base( char const* transr, char const* uplo, lapack_int const* n, double const* ARF, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__) +#endif -#define LAPACK_stfttp LAPACK_GLOBAL(stfttp,STFTTP) -void LAPACK_stfttp( +#define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP) +void LAPACK_stfttp_base( char const* transr, char const* uplo, lapack_int const* n, float const* ARF, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__) +#endif -#define LAPACK_ztfttp LAPACK_GLOBAL(ztfttp,ZTFTTP) -void LAPACK_ztfttp( +#define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP) +void LAPACK_ztfttp_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* ARF, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__) +#endif -#define LAPACK_ctfttr LAPACK_GLOBAL(ctfttr,CTFTTR) -void LAPACK_ctfttr( +#define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR) +void LAPACK_ctfttr_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* ARF, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__) +#endif -#define LAPACK_dtfttr LAPACK_GLOBAL(dtfttr,DTFTTR) -void LAPACK_dtfttr( +#define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR) +void LAPACK_dtfttr_base( char const* transr, char const* uplo, lapack_int const* n, double const* ARF, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__) +#endif -#define LAPACK_stfttr LAPACK_GLOBAL(stfttr,STFTTR) -void LAPACK_stfttr( +#define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR) +void LAPACK_stfttr_base( char const* transr, char const* uplo, lapack_int const* n, float const* ARF, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__) +#endif -#define LAPACK_ztfttr LAPACK_GLOBAL(ztfttr,ZTFTTR) -void LAPACK_ztfttr( +#define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR) +void LAPACK_ztfttr_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* ARF, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__) +#endif -#define LAPACK_ctgevc LAPACK_GLOBAL(ctgevc,CTGEVC) -void LAPACK_ctgevc( +#define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC) +void LAPACK_ctgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12041,10 +20049,19 @@ void LAPACK_ctgevc( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__) +#endif -#define LAPACK_dtgevc LAPACK_GLOBAL(dtgevc,DTGEVC) -void LAPACK_dtgevc( +#define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC) +void LAPACK_dtgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12053,10 +20070,19 @@ void LAPACK_dtgevc( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__) +#endif -#define LAPACK_stgevc LAPACK_GLOBAL(stgevc,STGEVC) -void LAPACK_stgevc( +#define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC) +void LAPACK_stgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12065,10 +20091,19 @@ void LAPACK_stgevc( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__) +#endif -#define LAPACK_ztgevc LAPACK_GLOBAL(ztgevc,ZTGEVC) -void LAPACK_ztgevc( +#define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC) +void LAPACK_ztgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12078,7 +20113,16 @@ void LAPACK_ztgevc( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__) +#endif #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC) void LAPACK_ctgexc( @@ -12184,8 +20228,8 @@ void LAPACK_ztgsen( lapack_int* iwork, lapack_int const* liwork, lapack_int* info ); -#define LAPACK_ctgsja LAPACK_GLOBAL(ctgsja,CTGSJA) -void LAPACK_ctgsja( +#define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA) +void LAPACK_ctgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float* A, lapack_int const* lda, @@ -12198,10 +20242,19 @@ void LAPACK_ctgsja( lapack_complex_float* V, lapack_int const* ldv, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsja LAPACK_GLOBAL(dtgsja,DTGSJA) -void LAPACK_dtgsja( +#define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA) +void LAPACK_dtgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, double* A, lapack_int const* lda, @@ -12214,10 +20267,19 @@ void LAPACK_dtgsja( double* V, lapack_int const* ldv, double* Q, lapack_int const* ldq, double* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__) +#endif -#define LAPACK_stgsja LAPACK_GLOBAL(stgsja,STGSJA) -void LAPACK_stgsja( +#define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA) +void LAPACK_stgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, float* A, lapack_int const* lda, @@ -12230,10 +20292,19 @@ void LAPACK_stgsja( float* V, lapack_int const* ldv, float* Q, lapack_int const* ldq, float* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsja LAPACK_GLOBAL(ztgsja,ZTGSJA) -void LAPACK_ztgsja( +#define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA) +void LAPACK_ztgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double* A, lapack_int const* lda, @@ -12246,10 +20317,19 @@ void LAPACK_ztgsja( lapack_complex_double* V, lapack_int const* ldv, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__) +#endif -#define LAPACK_ctgsna LAPACK_GLOBAL(ctgsna,CTGSNA) -void LAPACK_ctgsna( +#define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA) +void LAPACK_ctgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12261,10 +20341,19 @@ void LAPACK_ctgsna( float* DIF, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsna LAPACK_GLOBAL(dtgsna,DTGSNA) -void LAPACK_dtgsna( +#define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA) +void LAPACK_dtgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12276,10 +20365,19 @@ void LAPACK_dtgsna( double* DIF, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__) +#endif -#define LAPACK_stgsna LAPACK_GLOBAL(stgsna,STGSNA) -void LAPACK_stgsna( +#define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA) +void LAPACK_stgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12291,10 +20389,19 @@ void LAPACK_stgsna( float* DIF, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsna LAPACK_GLOBAL(ztgsna,ZTGSNA) -void LAPACK_ztgsna( +#define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA) +void LAPACK_ztgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12306,10 +20413,19 @@ void LAPACK_ztgsna( double* DIF, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__) +#endif -#define LAPACK_ctgsyl LAPACK_GLOBAL(ctgsyl,CTGSYL) -void LAPACK_ctgsyl( +#define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL) +void LAPACK_ctgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -12322,10 +20438,19 @@ void LAPACK_ctgsyl( float* scale, lapack_complex_float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsyl LAPACK_GLOBAL(dtgsyl,DTGSYL) -void LAPACK_dtgsyl( +#define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL) +void LAPACK_dtgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, @@ -12338,10 +20463,19 @@ void LAPACK_dtgsyl( double* scale, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_stgsyl LAPACK_GLOBAL(stgsyl,STGSYL) -void LAPACK_stgsyl( +#define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL) +void LAPACK_stgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, @@ -12354,10 +20488,19 @@ void LAPACK_stgsyl( float* scale, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsyl LAPACK_GLOBAL(ztgsyl,ZTGSYL) -void LAPACK_ztgsyl( +#define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL) +void LAPACK_ztgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -12370,47 +20513,92 @@ void LAPACK_ztgsyl( double* scale, lapack_complex_double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ctpcon LAPACK_GLOBAL(ctpcon,CTPCON) -void LAPACK_ctpcon( +#define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON) +void LAPACK_ctpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* AP, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtpcon LAPACK_GLOBAL(dtpcon,DTPCON) -void LAPACK_dtpcon( +#define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON) +void LAPACK_dtpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* AP, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__) +#endif -#define LAPACK_stpcon LAPACK_GLOBAL(stpcon,STPCON) -void LAPACK_stpcon( +#define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON) +void LAPACK_stpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* AP, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztpcon LAPACK_GLOBAL(ztpcon,ZTPCON) -void LAPACK_ztpcon( +#define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON) +void LAPACK_ztpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* AP, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__) +#endif #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT) void LAPACK_ctplqt( @@ -12480,8 +20668,8 @@ void LAPACK_ztplqt2( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_ctpmlqt LAPACK_GLOBAL(ctpmlqt,CTPMLQT) -void LAPACK_ctpmlqt( +#define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT) +void LAPACK_ctpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, lapack_complex_float const* V, lapack_int const* ldv, @@ -12489,10 +20677,19 @@ void LAPACK_ctpmlqt( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_dtpmlqt LAPACK_GLOBAL(dtpmlqt,DTPMLQT) -void LAPACK_dtpmlqt( +#define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT) +void LAPACK_dtpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, double const* V, lapack_int const* ldv, @@ -12500,10 +20697,19 @@ void LAPACK_dtpmlqt( double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_stpmlqt LAPACK_GLOBAL(stpmlqt,STPMLQT) -void LAPACK_stpmlqt( +#define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT) +void LAPACK_stpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, float const* V, lapack_int const* ldv, @@ -12511,10 +20717,19 @@ void LAPACK_stpmlqt( float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_ztpmlqt LAPACK_GLOBAL(ztpmlqt,ZTPMLQT) -void LAPACK_ztpmlqt( +#define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT) +void LAPACK_ztpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, lapack_complex_double const* V, lapack_int const* ldv, @@ -12522,10 +20737,19 @@ void LAPACK_ztpmlqt( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_ctpmqrt LAPACK_GLOBAL(ctpmqrt,CTPMQRT) -void LAPACK_ctpmqrt( +#define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT) +void LAPACK_ctpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, lapack_complex_float const* V, lapack_int const* ldv, @@ -12533,10 +20757,19 @@ void LAPACK_ctpmqrt( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_dtpmqrt LAPACK_GLOBAL(dtpmqrt,DTPMQRT) -void LAPACK_dtpmqrt( +#define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT) +void LAPACK_dtpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, double const* V, lapack_int const* ldv, @@ -12544,10 +20777,19 @@ void LAPACK_dtpmqrt( double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_stpmqrt LAPACK_GLOBAL(stpmqrt,STPMQRT) -void LAPACK_stpmqrt( +#define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT) +void LAPACK_stpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, float const* V, lapack_int const* ldv, @@ -12555,10 +20797,19 @@ void LAPACK_stpmqrt( float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_ztpmqrt LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) -void LAPACK_ztpmqrt( +#define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) +void LAPACK_ztpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, lapack_complex_double const* V, lapack_int const* ldv, @@ -12566,7 +20817,16 @@ void LAPACK_ztpmqrt( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__) +#endif #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT) void LAPACK_ctpqrt( @@ -12636,48 +20896,84 @@ void LAPACK_ztpqrt2( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_ctprfb LAPACK_GLOBAL(ctprfb,CTPRFB) -void LAPACK_ctprfb( +#define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB) +void LAPACK_ctprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* ldwork ); + lapack_complex_float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__) +#endif -#define LAPACK_dtprfb LAPACK_GLOBAL(dtprfb,DTPRFB) -void LAPACK_dtprfb( +#define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB) +void LAPACK_dtprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, - double* work, lapack_int const* ldwork ); + double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__) +#endif -#define LAPACK_stprfb LAPACK_GLOBAL(stprfb,STPRFB) -void LAPACK_stprfb( +#define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB) +void LAPACK_stprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, - float* work, lapack_int const* ldwork ); + float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__) +#endif -#define LAPACK_ztprfb LAPACK_GLOBAL(ztprfb,ZTPRFB) -void LAPACK_ztprfb( +#define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB) +void LAPACK_ztprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* ldwork ); + lapack_complex_double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__) +#endif -#define LAPACK_ctprfs LAPACK_GLOBAL(ctprfs,CTPRFS) -void LAPACK_ctprfs( +#define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS) +void LAPACK_ctprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -12687,10 +20983,19 @@ void LAPACK_ctprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtprfs LAPACK_GLOBAL(dtprfs,DTPRFS) -void LAPACK_dtprfs( +#define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS) +void LAPACK_dtprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -12700,10 +21005,19 @@ void LAPACK_dtprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__) +#endif -#define LAPACK_stprfs LAPACK_GLOBAL(stprfs,STPRFS) -void LAPACK_stprfs( +#define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS) +void LAPACK_stprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -12713,10 +21027,19 @@ void LAPACK_stprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztprfs LAPACK_GLOBAL(ztprfs,ZTPRFS) -void LAPACK_ztprfs( +#define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS) +void LAPACK_ztprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -12726,174 +21049,363 @@ void LAPACK_ztprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctptri LAPACK_GLOBAL(ctptri,CTPTRI) -void LAPACK_ctptri( +#define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI) +void LAPACK_ctptri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__) +#endif -#define LAPACK_dtptri LAPACK_GLOBAL(dtptri,DTPTRI) -void LAPACK_dtptri( +#define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI) +void LAPACK_dtptri_base( char const* uplo, char const* diag, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__) +#endif -#define LAPACK_stptri LAPACK_GLOBAL(stptri,STPTRI) -void LAPACK_stptri( +#define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI) +void LAPACK_stptri_base( char const* uplo, char const* diag, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__) +#endif -#define LAPACK_ztptri LAPACK_GLOBAL(ztptri,ZTPTRI) -void LAPACK_ztptri( +#define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI) +void LAPACK_ztptri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__) +#endif -#define LAPACK_ctptrs LAPACK_GLOBAL(ctptrs,CTPTRS) -void LAPACK_ctptrs( +#define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS) +void LAPACK_ctptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtptrs LAPACK_GLOBAL(dtptrs,DTPTRS) -void LAPACK_dtptrs( +#define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS) +void LAPACK_dtptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__) +#endif -#define LAPACK_stptrs LAPACK_GLOBAL(stptrs,STPTRS) -void LAPACK_stptrs( +#define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS) +void LAPACK_stptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztptrs LAPACK_GLOBAL(ztptrs,ZTPTRS) -void LAPACK_ztptrs( +#define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS) +void LAPACK_ztptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctpttf LAPACK_GLOBAL(ctpttf,CTPTTF) -void LAPACK_ctpttf( +#define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF) +void LAPACK_ctpttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__) +#endif -#define LAPACK_dtpttf LAPACK_GLOBAL(dtpttf,DTPTTF) -void LAPACK_dtpttf( +#define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF) +void LAPACK_dtpttf_base( char const* transr, char const* uplo, lapack_int const* n, double const* AP, double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__) +#endif -#define LAPACK_stpttf LAPACK_GLOBAL(stpttf,STPTTF) -void LAPACK_stpttf( +#define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF) +void LAPACK_stpttf_base( char const* transr, char const* uplo, lapack_int const* n, float const* AP, float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__) +#endif -#define LAPACK_ztpttf LAPACK_GLOBAL(ztpttf,ZTPTTF) -void LAPACK_ztpttf( +#define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF) +void LAPACK_ztpttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__) +#endif -#define LAPACK_ctpttr LAPACK_GLOBAL(ctpttr,CTPTTR) -void LAPACK_ctpttr( +#define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR) +void LAPACK_ctpttr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__) +#endif -#define LAPACK_dtpttr LAPACK_GLOBAL(dtpttr,DTPTTR) -void LAPACK_dtpttr( +#define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR) +void LAPACK_dtpttr_base( char const* uplo, lapack_int const* n, double const* AP, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__) +#endif -#define LAPACK_stpttr LAPACK_GLOBAL(stpttr,STPTTR) -void LAPACK_stpttr( +#define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR) +void LAPACK_stpttr_base( char const* uplo, lapack_int const* n, float const* AP, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__) +#endif -#define LAPACK_ztpttr LAPACK_GLOBAL(ztpttr,ZTPTTR) -void LAPACK_ztpttr( +#define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR) +void LAPACK_ztpttr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__) +#endif -#define LAPACK_ctrcon LAPACK_GLOBAL(ctrcon,CTRCON) -void LAPACK_ctrcon( +#define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON) +void LAPACK_ctrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtrcon LAPACK_GLOBAL(dtrcon,DTRCON) -void LAPACK_dtrcon( +#define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON) +void LAPACK_dtrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* A, lapack_int const* lda, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__) +#endif -#define LAPACK_strcon LAPACK_GLOBAL(strcon,STRCON) -void LAPACK_strcon( +#define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON) +void LAPACK_strcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* A, lapack_int const* lda, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztrcon LAPACK_GLOBAL(ztrcon,ZTRCON) -void LAPACK_ztrcon( +#define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON) +void LAPACK_ztrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__) +#endif -#define LAPACK_ctrevc LAPACK_GLOBAL(ctrevc,CTREVC) -void LAPACK_ctrevc( +#define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC) +void LAPACK_ctrevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12902,10 +21414,19 @@ void LAPACK_ctrevc( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__) +#endif -#define LAPACK_dtrevc LAPACK_GLOBAL(dtrevc,DTREVC) -void LAPACK_dtrevc( +#define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC) +void LAPACK_dtrevc_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12913,10 +21434,19 @@ void LAPACK_dtrevc( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__) +#endif -#define LAPACK_strevc LAPACK_GLOBAL(strevc,STREVC) -void LAPACK_strevc( +#define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC) +void LAPACK_strevc_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12924,10 +21454,19 @@ void LAPACK_strevc( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__) +#endif -#define LAPACK_ztrevc LAPACK_GLOBAL(ztrevc,ZTREVC) -void LAPACK_ztrevc( +#define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC) +void LAPACK_ztrevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12936,10 +21475,19 @@ void LAPACK_ztrevc( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__) +#endif -#define LAPACK_ctrevc3 LAPACK_GLOBAL(ctrevc3,CTREVC3) -void LAPACK_ctrevc3( +#define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3) +void LAPACK_ctrevc3_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12948,10 +21496,19 @@ void LAPACK_ctrevc3( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_dtrevc3 LAPACK_GLOBAL(dtrevc3,DTREVC3) -void LAPACK_dtrevc3( +#define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3) +void LAPACK_dtrevc3_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12959,10 +21516,19 @@ void LAPACK_dtrevc3( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_strevc3 LAPACK_GLOBAL(strevc3,STREVC3) -void LAPACK_strevc3( +#define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3) +void LAPACK_strevc3_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12970,10 +21536,19 @@ void LAPACK_strevc3( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__) +#endif -#define LAPACK_ztrevc3 LAPACK_GLOBAL(ztrevc3,ZTREVC3) -void LAPACK_ztrevc3( +#define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3) +void LAPACK_ztrevc3_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12982,44 +21557,89 @@ void LAPACK_ztrevc3( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_ctrexc LAPACK_GLOBAL(ctrexc,CTREXC) -void LAPACK_ctrexc( +#define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC) +void LAPACK_ctrexc_base( char const* compq, lapack_int const* n, lapack_complex_float* T, lapack_int const* ldt, lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__) +#endif -#define LAPACK_dtrexc LAPACK_GLOBAL(dtrexc,DTREXC) -void LAPACK_dtrexc( +#define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC) +void LAPACK_dtrexc_base( char const* compq, lapack_int const* n, double* T, lapack_int const* ldt, double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__) +#endif -#define LAPACK_strexc LAPACK_GLOBAL(strexc,STREXC) -void LAPACK_strexc( +#define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC) +void LAPACK_strexc_base( char const* compq, lapack_int const* n, float* T, lapack_int const* ldt, float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__) +#endif -#define LAPACK_ztrexc LAPACK_GLOBAL(ztrexc,ZTREXC) -void LAPACK_ztrexc( +#define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC) +void LAPACK_ztrexc_base( char const* compq, lapack_int const* n, lapack_complex_double* T, lapack_int const* ldt, lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__) +#endif -#define LAPACK_ctrrfs LAPACK_GLOBAL(ctrrfs,CTRRFS) -void LAPACK_ctrrfs( +#define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS) +void LAPACK_ctrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -13029,10 +21649,19 @@ void LAPACK_ctrrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtrrfs LAPACK_GLOBAL(dtrrfs,DTRRFS) -void LAPACK_dtrrfs( +#define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS) +void LAPACK_dtrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -13042,10 +21671,19 @@ void LAPACK_dtrrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_strrfs LAPACK_GLOBAL(strrfs,STRRFS) -void LAPACK_strrfs( +#define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS) +void LAPACK_strrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -13055,10 +21693,19 @@ void LAPACK_strrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztrrfs LAPACK_GLOBAL(ztrrfs,ZTRRFS) -void LAPACK_ztrrfs( +#define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS) +void LAPACK_ztrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -13068,10 +21715,19 @@ void LAPACK_ztrrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsen LAPACK_GLOBAL(ctrsen,CTRSEN) -void LAPACK_ctrsen( +#define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN) +void LAPACK_ctrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13081,10 +21737,19 @@ void LAPACK_ctrsen( float* s, float* sep, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsen LAPACK_GLOBAL(dtrsen,DTRSEN) -void LAPACK_dtrsen( +#define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN) +void LAPACK_dtrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13096,10 +21761,19 @@ void LAPACK_dtrsen( double* sep, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__) +#endif -#define LAPACK_strsen LAPACK_GLOBAL(strsen,STRSEN) -void LAPACK_strsen( +#define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN) +void LAPACK_strsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13111,10 +21785,19 @@ void LAPACK_strsen( float* sep, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsen LAPACK_GLOBAL(ztrsen,ZTRSEN) -void LAPACK_ztrsen( +#define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN) +void LAPACK_ztrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13124,10 +21807,19 @@ void LAPACK_ztrsen( double* s, double* sep, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsna LAPACK_GLOBAL(ctrsna,CTRSNA) -void LAPACK_ctrsna( +#define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA) +void LAPACK_ctrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13138,10 +21830,19 @@ void LAPACK_ctrsna( float* SEP, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* ldwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsna LAPACK_GLOBAL(dtrsna,DTRSNA) -void LAPACK_dtrsna( +#define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA) +void LAPACK_dtrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13152,10 +21853,19 @@ void LAPACK_dtrsna( double* SEP, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* ldwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__) +#endif -#define LAPACK_strsna LAPACK_GLOBAL(strsna,STRSNA) -void LAPACK_strsna( +#define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA) +void LAPACK_strsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13166,10 +21876,19 @@ void LAPACK_strsna( float* SEP, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* ldwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsna LAPACK_GLOBAL(ztrsna,ZTRSNA) -void LAPACK_ztrsna( +#define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA) +void LAPACK_ztrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13180,171 +21899,360 @@ void LAPACK_ztrsna( double* SEP, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* ldwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsyl LAPACK_GLOBAL(ctrsyl,CTRSYL) -void LAPACK_ctrsyl( +#define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL) +void LAPACK_ctrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float* C, lapack_int const* ldc, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsyl LAPACK_GLOBAL(dtrsyl,DTRSYL) -void LAPACK_dtrsyl( +#define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL) +void LAPACK_dtrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, double const* B, lapack_int const* ldb, double* C, lapack_int const* ldc, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_strsyl LAPACK_GLOBAL(strsyl,STRSYL) -void LAPACK_strsyl( +#define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL) +void LAPACK_strsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, float const* B, lapack_int const* ldb, float* C, lapack_int const* ldc, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsyl LAPACK_GLOBAL(ztrsyl,ZTRSYL) -void LAPACK_ztrsyl( +#define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL) +void LAPACK_ztrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double* C, lapack_int const* ldc, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ctrtri LAPACK_GLOBAL(ctrtri,CTRTRI) -void LAPACK_ctrtri( +#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI) +void LAPACK_ctrtri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__) +#endif -#define LAPACK_dtrtri LAPACK_GLOBAL(dtrtri,DTRTRI) -void LAPACK_dtrtri( +#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI) +void LAPACK_dtrtri_base( char const* uplo, char const* diag, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__) +#endif -#define LAPACK_strtri LAPACK_GLOBAL(strtri,STRTRI) -void LAPACK_strtri( +#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI) +void LAPACK_strtri_base( char const* uplo, char const* diag, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__) +#endif -#define LAPACK_ztrtri LAPACK_GLOBAL(ztrtri,ZTRTRI) -void LAPACK_ztrtri( +#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI) +void LAPACK_ztrtri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__) +#endif -#define LAPACK_ctrtrs LAPACK_GLOBAL(ctrtrs,CTRTRS) -void LAPACK_ctrtrs( +#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) +void LAPACK_ctrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtrtrs LAPACK_GLOBAL(dtrtrs,DTRTRS) -void LAPACK_dtrtrs( +#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) +void LAPACK_dtrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_strtrs LAPACK_GLOBAL(strtrs,STRTRS) -void LAPACK_strtrs( +#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) +void LAPACK_strtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztrtrs LAPACK_GLOBAL(ztrtrs,ZTRTRS) -void LAPACK_ztrtrs( +#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) +void LAPACK_ztrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctrttf LAPACK_GLOBAL(ctrttf,CTRTTF) -void LAPACK_ctrttf( +#define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF) +void LAPACK_ctrttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__) +#endif -#define LAPACK_dtrttf LAPACK_GLOBAL(dtrttf,DTRTTF) -void LAPACK_dtrttf( +#define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF) +void LAPACK_dtrttf_base( char const* transr, char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__) +#endif -#define LAPACK_strttf LAPACK_GLOBAL(strttf,STRTTF) -void LAPACK_strttf( +#define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF) +void LAPACK_strttf_base( char const* transr, char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__) +#endif -#define LAPACK_ztrttf LAPACK_GLOBAL(ztrttf,ZTRTTF) -void LAPACK_ztrttf( +#define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF) +void LAPACK_ztrttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__) +#endif -#define LAPACK_ctrttp LAPACK_GLOBAL(ctrttp,CTRTTP) -void LAPACK_ctrttp( +#define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP) +void LAPACK_ctrttp_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__) +#endif -#define LAPACK_dtrttp LAPACK_GLOBAL(dtrttp,DTRTTP) -void LAPACK_dtrttp( +#define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP) +void LAPACK_dtrttp_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__) +#endif -#define LAPACK_strttp LAPACK_GLOBAL(strttp,STRTTP) -void LAPACK_strttp( +#define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP) +void LAPACK_strttp_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__) +#endif -#define LAPACK_ztrttp LAPACK_GLOBAL(ztrttp,ZTRTTP) -void LAPACK_ztrttp( +#define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP) +void LAPACK_ztrttp_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__) +#endif #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF) void LAPACK_ctzrzf( @@ -13378,8 +22286,8 @@ void LAPACK_ztzrzf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cunbdb LAPACK_GLOBAL(cunbdb,CUNBDB) -void LAPACK_cunbdb( +#define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB) +void LAPACK_cunbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13393,10 +22301,19 @@ void LAPACK_cunbdb( lapack_complex_float* TAUQ1, lapack_complex_float* TAUQ2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__) +#endif -#define LAPACK_zunbdb LAPACK_GLOBAL(zunbdb,ZUNBDB) -void LAPACK_zunbdb( +#define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB) +void LAPACK_zunbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13410,10 +22327,19 @@ void LAPACK_zunbdb( lapack_complex_double* TAUQ1, lapack_complex_double* TAUQ2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__) +#endif -#define LAPACK_cuncsd LAPACK_GLOBAL(cuncsd,CUNCSD) -void LAPACK_cuncsd( +#define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD) +void LAPACK_cuncsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13428,10 +22354,19 @@ void LAPACK_cuncsd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__) +#endif -#define LAPACK_zuncsd LAPACK_GLOBAL(zuncsd,ZUNCSD) -void LAPACK_zuncsd( +#define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD) +void LAPACK_zuncsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13446,10 +22381,19 @@ void LAPACK_zuncsd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__) +#endif -#define LAPACK_cuncsd2by1 LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1) -void LAPACK_cuncsd2by1( +#define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1) +void LAPACK_cuncsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13461,10 +22405,19 @@ void LAPACK_cuncsd2by1( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_zuncsd2by1 LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1) -void LAPACK_zuncsd2by1( +#define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1) +void LAPACK_zuncsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13476,25 +22429,52 @@ void LAPACK_zuncsd2by1( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_cungbr LAPACK_GLOBAL(cungbr,CUNGBR) -void LAPACK_cungbr( +#define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR) +void LAPACK_cungbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__) +#endif -#define LAPACK_zungbr LAPACK_GLOBAL(zungbr,ZUNGBR) -void LAPACK_zungbr( +#define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR) +void LAPACK_zungbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__) +#endif #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR) void LAPACK_cunghr( @@ -13576,23 +22556,41 @@ void LAPACK_zungrq( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cungtr LAPACK_GLOBAL(cungtr,CUNGTR) -void LAPACK_cungtr( +#define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR) +void LAPACK_cungtr_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__) +#endif -#define LAPACK_zungtr LAPACK_GLOBAL(zungtr,ZUNGTR) -void LAPACK_zungtr( +#define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR) +void LAPACK_zungtr_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__) +#endif #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW) void LAPACK_cungtsqr_row( @@ -13612,205 +22610,385 @@ void LAPACK_zungtsqr_row( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cunmbr LAPACK_GLOBAL(cunmbr,CUNMBR) -void LAPACK_cunmbr( +#define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR) +void LAPACK_cunmbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmbr LAPACK_GLOBAL(zunmbr,ZUNMBR) -void LAPACK_zunmbr( +#define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR) +void LAPACK_zunmbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmhr LAPACK_GLOBAL(cunmhr,CUNMHR) -void LAPACK_cunmhr( +#define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR) +void LAPACK_cunmhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmhr LAPACK_GLOBAL(zunmhr,ZUNMHR) -void LAPACK_zunmhr( +#define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR) +void LAPACK_zunmhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmlq LAPACK_GLOBAL(cunmlq,CUNMLQ) -void LAPACK_cunmlq( +#define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ) +void LAPACK_cunmlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__) +#endif -#define LAPACK_zunmlq LAPACK_GLOBAL(zunmlq,ZUNMLQ) -void LAPACK_zunmlq( +#define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ) +void LAPACK_zunmlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__) +#endif -#define LAPACK_cunmql LAPACK_GLOBAL(cunmql,CUNMQL) -void LAPACK_cunmql( +#define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL) +void LAPACK_cunmql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__) +#endif -#define LAPACK_zunmql LAPACK_GLOBAL(zunmql,ZUNMQL) -void LAPACK_zunmql( +#define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL) +void LAPACK_zunmql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__) +#endif -#define LAPACK_cunmqr LAPACK_GLOBAL(cunmqr,CUNMQR) -void LAPACK_cunmqr( +#define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR) +void LAPACK_cunmqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmqr LAPACK_GLOBAL(zunmqr,ZUNMQR) -void LAPACK_zunmqr( +#define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR) +void LAPACK_zunmqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmrq LAPACK_GLOBAL(cunmrq,CUNMRQ) -void LAPACK_cunmrq( +#define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ) +void LAPACK_cunmrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__) +#endif -#define LAPACK_zunmrq LAPACK_GLOBAL(zunmrq,ZUNMRQ) -void LAPACK_zunmrq( +#define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ) +void LAPACK_zunmrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__) +#endif -#define LAPACK_cunmrz LAPACK_GLOBAL(cunmrz,CUNMRZ) -void LAPACK_cunmrz( +#define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ) +void LAPACK_cunmrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__) +#endif -#define LAPACK_zunmrz LAPACK_GLOBAL(zunmrz,ZUNMRZ) -void LAPACK_zunmrz( +#define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ) +void LAPACK_zunmrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__) +#endif -#define LAPACK_cunmtr LAPACK_GLOBAL(cunmtr,CUNMTR) -void LAPACK_cunmtr( +#define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR) +void LAPACK_cunmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmtr LAPACK_GLOBAL(zunmtr,ZUNMTR) -void LAPACK_zunmtr( +#define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR) +void LAPACK_zunmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__) +#endif -#define LAPACK_cupgtr LAPACK_GLOBAL(cupgtr,CUPGTR) -void LAPACK_cupgtr( +#define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR) +void LAPACK_cupgtr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float const* tau, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__) +#endif -#define LAPACK_zupgtr LAPACK_GLOBAL(zupgtr,ZUPGTR) -void LAPACK_zupgtr( +#define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR) +void LAPACK_zupgtr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double const* tau, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__) +#endif -#define LAPACK_cupmtr LAPACK_GLOBAL(cupmtr,CUPMTR) -void LAPACK_cupmtr( +#define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR) +void LAPACK_cupmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__) +#endif -#define LAPACK_zupmtr LAPACK_GLOBAL(zupmtr,ZUPMTR) -void LAPACK_zupmtr( +#define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR) +void LAPACK_zupmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__) +#endif #ifdef __cplusplus } /* extern "C" */ diff --git a/lapack-netlib/LAPACKE/include/lapacke.h b/lapack-netlib/LAPACKE/include/lapacke.h index 5c129db919..f6fbfcc33b 100644 --- a/lapack-netlib/LAPACKE/include/lapacke.h +++ b/lapack-netlib/LAPACKE/include/lapacke.h @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #ifndef _LAPACKE_H_ diff --git a/lapack-netlib/LAPACKE/include/lapacke_config.h b/lapack-netlib/LAPACKE/include/lapacke_config.h index c6542955e2..4a7d15760c 100644 --- a/lapack-netlib/LAPACKE/include/lapacke_config.h +++ b/lapack-netlib/LAPACKE/include/lapacke_config.h @@ -28,19 +28,11 @@ ****************************************************************************** * Contents: Native C interface to LAPACK * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #ifndef _LAPACKE_CONFIG_H_ #define _LAPACKE_CONFIG_H_ -// For Android prior to API 21 (no include) -#if defined(__ANDROID__) -#if __ANDROID_API__ < 21 -#define LAPACK_COMPLEX_STRUCTURE -#endif -#endif - #ifdef __cplusplus #if defined(LAPACK_COMPLEX_CPP) #include diff --git a/lapack-netlib/LAPACKE/include/lapacke_utils.h b/lapack-netlib/LAPACKE/include/lapacke_utils.h index ec29f24fcd..f84604e8a3 100644 --- a/lapack-netlib/LAPACKE/include/lapacke_utils.h +++ b/lapack-netlib/LAPACKE/include/lapacke_utils.h @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility functions * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #ifndef _LAPACKE_UTILS_H_ diff --git a/lapack-netlib/LAPACKE/src/CMakeLists.txt b/lapack-netlib/LAPACKE/src/CMakeLists.txt index 4c13dce0b2..4171a3bd42 100644 --- a/lapack-netlib/LAPACKE/src/CMakeLists.txt +++ b/lapack-netlib/LAPACKE/src/CMakeLists.txt @@ -113,6 +113,8 @@ lapacke_cgetrs.c lapacke_cgetrs_work.c lapacke_cgetsls.c lapacke_cgetsls_work.c +lapacke_cgetsqrhrt.c +lapacke_cgetsqrhrt_work.c lapacke_cggbak.c lapacke_cggbak_work.c lapacke_cggbal.c @@ -585,6 +587,8 @@ lapacke_cungrq.c lapacke_cungrq_work.c lapacke_cungtr.c lapacke_cungtr_work.c +lapacke_cungtsqr_row.c +lapacke_cungtsqr_row_work.c lapacke_cunmbr.c lapacke_cunmbr_work.c lapacke_cunmhr.c @@ -727,6 +731,8 @@ lapacke_dgetrs.c lapacke_dgetrs_work.c lapacke_dgetsls.c lapacke_dgetsls_work.c +lapacke_dgetsqrhrt.c +lapacke_dgetsqrhrt_work.c lapacke_dggbak.c lapacke_dggbak_work.c lapacke_dggbal.c @@ -849,6 +855,8 @@ lapacke_dorgrq.c lapacke_dorgrq_work.c lapacke_dorgtr.c lapacke_dorgtr_work.c +lapacke_dorgtsqr_row.c +lapacke_dorgtsqr_row_work.c lapacke_dormbr.c lapacke_dormbr_work.c lapacke_dormhr.c @@ -1298,6 +1306,8 @@ lapacke_sgetrs.c lapacke_sgetrs_work.c lapacke_sgetsls.c lapacke_sgetsls_work.c +lapacke_sgetsqrhrt.c +lapacke_sgetsqrhrt_work.c lapacke_sggbak.c lapacke_sggbak_work.c lapacke_sggbal.c @@ -1420,6 +1430,8 @@ lapacke_sorgrq.c lapacke_sorgrq_work.c lapacke_sorgtr.c lapacke_sorgtr_work.c +lapacke_sorgtsqr_row.c +lapacke_sorgtsqr_row_work.c lapacke_sormbr.c lapacke_sormbr_work.c lapacke_sormhr.c @@ -1858,6 +1870,8 @@ lapacke_zgetrs.c lapacke_zgetrs_work.c lapacke_zgetsls.c lapacke_zgetsls_work.c +lapacke_zgetsqrhrt.c +lapacke_zgetsqrhrt_work.c lapacke_zggbak.c lapacke_zggbak_work.c lapacke_zggbal.c @@ -2330,6 +2344,8 @@ lapacke_zungrq.c lapacke_zungrq_work.c lapacke_zungtr.c lapacke_zungtr_work.c +lapacke_zungtsqr_row.c +lapacke_zungtsqr_row_work.c lapacke_zunmbr.c lapacke_zunmbr_work.c lapacke_zunmhr.c diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c index 32dd5cc7a9..cfcac5e641 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c index 0547472485..b7eca09762 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c index dac495f617..fa41ebcc1f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c index eb9f7c444e..2175d38c7b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c index ef5997b93b..09947879e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c index 97417d4f31..1565e565e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c index 3ec851769c..ffa953a79f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c index 3533ef812b..d0ba5131ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c index 05b1f2b4d6..293ee1719b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c index e8b8afda05..cfa1cf1d2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c index 142886314e..5b5d399004 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c index 2a7cce077f..49f456c4f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c index 84924afa14..1717cb840b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c index 7a763783fd..5c48a7ff5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c index fb70b3a183..79b202f395 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c index 7b824c7ae6..1a9cef0500 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c index 1b48c3d65b..226d71e0f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c index 9232451f1f..e569c10898 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c index 95855a4863..0e86868030 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c index 0cd96f3255..5ff0ee9955 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c index 332cdf92b5..22a4dd8eda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c index b6e188428f..84c4891987 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c index 0cc2b38a10..137ff8edd5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c index 70409ddc19..f8f350c6f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c index 3e009f9beb..724c7db5c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c index 519c4dd2dc..ceff5fe82d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebak.c b/lapack-netlib/LAPACKE/src/lapacke_cgebak.c index 28f5e938b2..33d18b12f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c index f9f1b05880..521b7c06a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebal.c b/lapack-netlib/LAPACKE/src/lapacke_cgebal.c index 9cfa2a756d..7645e6bf84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c index 0204cad85a..75f5a21ad5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c index 9c112797b1..77fe29bdcd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c index 44a79a47a8..1bb45d3e5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgecon.c b/lapack-netlib/LAPACKE/src/lapacke_cgecon.c index 5029ee978c..c1360cc344 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c index 3d3e0e2e17..fb1806f74c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c index f2095cafa2..fd97acfb51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c index a19de2314b..abcaec976e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c index 728686d709..13b69902c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c index d4fbadf162..a4de1edd08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgees.c b/lapack-netlib/LAPACKE/src/lapacke_cgees.c index 6efd6776fa..2d04730cc5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c index 0a6779ed25..0416d70fcd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c index efff6edd2c..d172f8bf58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c index 255565b256..4be2ceeb62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeev.c b/lapack-netlib/LAPACKE/src/lapacke_cgeev.c index 2c0c2a1da3..5770f20115 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c index 798f9a053e..081f5b1298 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c index c3d99b2440..f9eb943c58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c index 66cae990cf..2257c64df5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c index 23600c29eb..31fd49d46c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c index 35cda0479c..e5c0295aa2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c index 41278428b4..f5604495ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c index 1311ab93e1..19ae194add 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq.c index 2dda8465a7..48487f1d8e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c index 6b14b85ecd..a73205a267 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c index 2c6473846f..66ff1eed6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c index 6f6e425b60..3e246d3fc8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c index 18bc040be0..a900631c8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c index 84178f0583..8bbb4a8200 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgels.c b/lapack-netlib/LAPACKE/src/lapacke_cgels.c index f53bb3b63f..14daaef180 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c index 5afef301b0..7c7012f6e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c index 9d022dae61..74197666d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c index 801f4d3f59..2fc647be07 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelss.c b/lapack-netlib/LAPACKE/src/lapacke_cgelss.c index 94efbddb6c..10fcde2ef2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c index b87eb9ce47..ae5773c86c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c index 2fea9670e0..8a46e21857 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c index c3387a576c..c2ac423150 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c index ef0aec1b53..8661b12e9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c index e2f7fc9181..071032033a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c index 8ad40e6c68..440804c09f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c index 9b9e5a442e..1e421864df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c index c29f260e23..fdb5a71cc7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c index c185ea8368..e2772fd78f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c index 53ee3d4835..a8bcd39d6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c index 95025e1e9d..7b70fb34d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c index 28c5ace15a..d4b0c94cf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c index 78fc733715..638935b2af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c index 6467994c1a..2f161493da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c index 1cc87a819f..da779ac3a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c index b97414a6bc..be3e665040 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c index a55a4a9722..14f8e9be95 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c index df6ff55676..8fa36b85a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c index ff5cc9bcbf..46ece5ffdd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c index 1f1f8d957e..4a80430b34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c index 2293c3c669..4733275554 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c index 1f6d3ccaa2..a8596a4d51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c index 12b4ca767b..4d63fc2f15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c index be4056031a..6e3cb656e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c index 4ffe1112a4..dc03b2d020 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c index 1e28a0342c..bfaecd7ce6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c index c51a8d876b..8cdf3d5b7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c index 97faff4504..de5894e628 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c index f15ec885de..962624d217 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c index d16dee4078..fe4cfaee37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c index 1b53a47cf7..a16907e272 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c index d892dd1d3a..3bb7670447 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c index 57d8e556d0..0277d77ed7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c index 37a382783e..03492c96da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c index eafa97459b..1f00b43a5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c index e96957ceb6..d28139aabc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesdd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c index 8c4557a19e..70198ccdce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesv.c b/lapack-netlib/LAPACKE/src/lapacke_cgesv.c index ce91af9a18..1e9871ccbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c index 9e04e1d130..53b6d2cc55 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c index 9bc7dca31d..85a15fd4c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c index 4256c0f046..6bc69d48f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c index c5eca535e9..8406635e99 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c index e86f76e4b6..e73e524bd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c index 0acddf50fa..de47ad4ce6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c index ddbc0a5b84..950c6f3271 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c index 253cbf00b4..9ce9e84058 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c index 138e229b05..34ee42bfbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c index 5958316d26..70fc1a183e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c index a7eaa7920f..8136e2c3a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c index 1c31110168..8098462173 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c index 6d11b0c83f..f192d2a526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c index 343e366030..eba00c30d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c index 7f7006f96b..1eb26d1fa2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c index 18d4221d9a..90b17b24dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c index fb2ec9e8ec..7d335fac1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c index 35a9e65833..b93a4056c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c index a3a619b704..cc4d90096d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetri.c b/lapack-netlib/LAPACKE/src/lapacke_cgetri.c index 243e9842df..2e25e863e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c index ef176a4a9c..1a1d7b23bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c index cf10e63857..192e1497a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c index d1d3e5b1a7..47783ed62d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c index c9ff167259..ed6c5ad51b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c index 8f2ed4d0e7..0e68339443 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbak.c b/lapack-netlib/LAPACKE/src/lapacke_cggbak.c index 58298ed400..3dafa4242a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c index ba4052d9f4..58fc3ca2d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbal.c b/lapack-netlib/LAPACKE/src/lapacke_cggbal.c index 6903c07bb3..101d1a147e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c index 6c75a5ad35..765b290c5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges.c b/lapack-netlib/LAPACKE/src/lapacke_cgges.c index 680929729e..f521323712 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges3.c b/lapack-netlib/LAPACKE/src/lapacke_cgges3.c index f288dd2382..b1dcad8cc0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgges3 * Author: Intel Corporation -* Generated March, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c index 2f0aaada84..a8f06f5a13 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c index 4bbb78cead..ff74939a3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggesx.c b/lapack-netlib/LAPACKE/src/lapacke_cggesx.c index 9581691c60..5962dadb14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c index 327459c773..7edb1fa9bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev.c b/lapack-netlib/LAPACKE/src/lapacke_cggev.c index 8a0323c1a7..629a53bc90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev3.c b/lapack-netlib/LAPACKE/src/lapacke_cggev3.c index e44e1e5a35..b14ec96aac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c index ae43cf507e..6443a84827 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c index 188b70bc4c..ff129a8b80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggevx.c b/lapack-netlib/LAPACKE/src/lapacke_cggevx.c index 94c081a51e..89785ed8ca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c index 702400b198..9c3adb6b46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggglm.c b/lapack-netlib/LAPACKE/src/lapacke_cggglm.c index 5b84dee8c8..62740bbf62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c index 61dfb50d3b..0b3da2d7a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c index fcc1a9ba33..dce0b2ab75 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c index a35ad627ea..e91ee810e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c index 99cc29a633..a3e41570cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c index 789741b932..31cb555036 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgglse.c b/lapack-netlib/LAPACKE/src/lapacke_cgglse.c index aa1086af60..17bcc981db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c index be11a4d5bd..d352dfa096 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c index a8851348cb..247fcd06d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c index 520bde7d9b..4e70f2b5aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c index ce25c3483e..660ce46260 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c index 74b6f2e33a..9462e88fe3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c index 6656db2011..16d622a76c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c index 34cb131f5f..e0a00c6165 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c index 8144b87125..17b6b54b04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c index 0d48b5fc79..ce6d50cbeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c index a5bf20d928..324b23197b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c index d3f1e2a71f..b82b5a0048 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c index 23fb4b3cf6..28ca7d9a95 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c index 65f7315968..fc04a92fdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c index 279b079966..d79f95cf76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c index d9a44d271e..b3f729b0de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c index a7f253e98d..80094adcf4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c index 0dbf280e73..83330ce126 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c index 16e86338b9..1002f6f743 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c index e7b23f35e1..926b109f3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c index 170e59e75c..1cfe558579 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c index 25a3ff780c..2873010ed0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c index 4b0500d8b5..f63ec8e8b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c index 502e1c6acc..d55ebb3f77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c index 4f5c916c55..696f66649a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c index 8d243ef185..4d17200b48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev.c b/lapack-netlib/LAPACKE/src/lapacke_chbev.c index d79802aed5..9f0da84a8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c index d62e9a9c00..aeba6302cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c index f5736c1d0f..809ebea5f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbev_2stage * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c index 675886a39b..933c5afd93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd.c index b4af255a92..0321d7baf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c index e8e9a6830e..839e74b3c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c index e0f0d92ba2..83cdd05ee4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c index fd29cb8b4d..ce554ad787 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx.c index 1f30a8335e..fba050c365 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c index 401f47cc30..ea94132b6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c index ac962eb130..9e8a26842d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c index 9c179c2c3b..ddebb9e735 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgst.c b/lapack-netlib/LAPACKE/src/lapacke_chbgst.c index da972842ba..13d4272593 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c index 7b52c7bd3b..a04b04a26a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgv.c b/lapack-netlib/LAPACKE/src/lapacke_chbgv.c index 31f4531683..d28f0f1f31 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c index 3850cb2c65..b977a94fa8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c index 5a7331d879..f1b037a116 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c index ea5734bf9b..f6e2ac84a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c index 5acacca034..736c33e887 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c index 0a30050c91..1fe2c9e69d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c index 634d8032f4..c54dc555fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c index 31ca9954ce..3b58b0e2b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon.c b/lapack-netlib/LAPACKE/src/lapacke_checon.c index 54866ea41c..af00a5366f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function checon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_3.c b/lapack-netlib/LAPACKE/src/lapacke_checon_3.c index 1481359d7f..08a2f0e130 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function checon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c index ac4e8e9593..30294c58b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function checon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_work.c b/lapack-netlib/LAPACKE/src/lapacke_checon_work.c index de2d7a9403..e0977e0b02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function checon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheequb.c b/lapack-netlib/LAPACKE/src/lapacke_cheequb.c index f11eb1d17e..795d074f59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c index dd2f78cb86..730bcb759e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev.c b/lapack-netlib/LAPACKE/src/lapacke_cheev.c index 7118f4d2a3..02e5df29dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c index bf231c39d1..4e18f9b380 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c index c27f292213..4efb6c03db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c index dbb2753d16..3cf5a963f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd.c index 75fa479150..56bfc411ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c index cb4d34a09d..4fa71d2526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c index 2f25c187af..b2c861206b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c index 9e8a1c4db0..942c8b3eb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr.c index f277e7f70f..bfa2468d70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c index a09eac1bdd..788d287696 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c index 44ff104c35..29525cbebf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c index e3d1d89fbb..3e4f75ef49 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx.c index f7a41d6ea0..44cae07d2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c index 93add3f5fe..22b6594ed7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c index f9947b307b..4d90468cee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c index c1bd5a1c37..ca0ed9ec70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegst.c b/lapack-netlib/LAPACKE/src/lapacke_chegst.c index c628017c2c..d4961620d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -48,7 +47,7 @@ lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c index 001863819b..9318e02dda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv.c b/lapack-netlib/LAPACKE/src/lapacke_chegv.c index c01525662a..4b676e6250 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c index fc33958339..0ebcb74dc6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c index 910f96b3a5..52a7356a5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c index 39c10ad0e6..35d69120d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvd.c b/lapack-netlib/LAPACKE/src/lapacke_chegvd.c index fe7b39cee5..21a33fadf6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c index b55e8191c5..b9749d9352 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvx.c b/lapack-netlib/LAPACKE/src/lapacke_chegvx.c index d56e3ee46b..688ea34ff2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c index 3551d39fc0..132d0c0e10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfs.c b/lapack-netlib/LAPACKE/src/lapacke_cherfs.c index ecf13792ca..dfcda32e12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c index 48fddbaa73..88a000be0c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c index 4a897986d1..c2da393393 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c index c69a85a57f..438803de03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv.c b/lapack-netlib/LAPACKE/src/lapacke_chesv.c index 9a0a81f90a..2fc9c9dae7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c index af13d53183..4a72778975 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c index cd8a0cf5db..4ba72aeca1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c index d9a44d3151..7115052326 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c index 88513b1a13..62ee5bc968 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c index 4741d45c80..c5a5caa447 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c index 10e0d1d515..83a5bcd420 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c index 57a4b68ce0..8647396621 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvx.c b/lapack-netlib/LAPACKE/src/lapacke_chesvx.c index 4c7b29d422..9cf0c0460c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c index b738123765..3e1aa96076 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c index 0976461702..9ef8749298 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c index 69293aa062..700ecf7a08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c b/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c index 5265dd4f83..8acee82280 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c index fe14cac5d9..378cd75862 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrd.c b/lapack-netlib/LAPACKE/src/lapacke_chetrd.c index 06b55da984..bdfb2493f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c index 69015fd933..6c950ee7a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf.c index 87539d6fab..3238059188 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c index 72373c1e60..be3a442c16 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c index bd352c54b4..2ecf93478a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c index bb2bb8dc5f..ccb41ee623 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c index e4d5387796..dcebaf2f21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c index 15085b8cec..7caf6f2bbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c index 01034cf350..b43d92bb9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c index 56cd7a1dfa..73ce55ac68 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c index 7ac80fdb71..a2afa602e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c index 0f9042eac9..b043364a31 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri.c b/lapack-netlib/LAPACKE/src/lapacke_chetri.c index 239caaa2d6..5d68dd005b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2.c index 18ef7e5ada..3822bbae54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c index a0d432c05b..c87c032d25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c index fc0d4e3d23..7260d9bb92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri2x * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c index 56ee846ebb..ea36e0c70e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c index d9692e062a..2e0031a040 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c index 59ee0aa1fc..5650df6e82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c index 66f718f3a7..a47da60284 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs.c index 2f06593cab..f00609f795 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c index 8a12e5eef8..60ab9044f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c index 5711d8bc89..b564a84d21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c index 3c06232240..ab5610a051 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c index 18e855f61f..1d521d7202 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c index 4cad1f863b..aa85d5df5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c index 455622bed6..ca57ca9d9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c index 41d293d3c8..6c781d6b82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c index ffd31ddf8c..b09bea793b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c index e032ae7c5a..fda67007cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c index e6fe50a0ed..b3b5fd4335 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c index c16d3e3530..ec1a7d09e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chfrk.c b/lapack-netlib/LAPACKE/src/lapacke_chfrk.c index 6b2e321b03..9a51bbecc1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c index c2e157bb32..0686916223 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c index ccaf5a6246..b264791851 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c index a355aa831c..eefec0b076 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpcon.c b/lapack-netlib/LAPACKE/src/lapacke_chpcon.c index 52638b70a2..ce312e6e10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c index dd10e50fc0..327aa03dc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpev.c b/lapack-netlib/LAPACKE/src/lapacke_chpev.c index 65989287c0..36fff84e25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c index fac263caf5..deaa8dd03b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevd.c b/lapack-netlib/LAPACKE/src/lapacke_chpevd.c index fbdb738021..7fb13d0d1a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c index 29a3cdca43..90b89ce8aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevx.c b/lapack-netlib/LAPACKE/src/lapacke_chpevx.c index 6b6bc0a84f..eb383edbb3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c index 2f1750d253..2aac2227f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgst.c b/lapack-netlib/LAPACKE/src/lapacke_chpgst.c index 088be12244..0672f9ba99 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c index 8b2a500dd9..7e4509e259 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgv.c b/lapack-netlib/LAPACKE/src/lapacke_chpgv.c index 4640125b94..71499d275c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c index b93ffcc586..8bbf650f6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c index 587d1509a7..df8989f541 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c index 8aec3c1972..98b28a0741 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c index 2e11c1037d..0e3876d224 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c index 7d001695c2..7ff379d9ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chprfs.c b/lapack-netlib/LAPACKE/src/lapacke_chprfs.c index 3412dbe5c2..0eacaf3821 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c index 099d884ebe..d51f00c809 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsv.c b/lapack-netlib/LAPACKE/src/lapacke_chpsv.c index 7be90ee32d..c82716af20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c index 12f8e5bf07..7260defb8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c b/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c index 37ec619056..21dec80cbe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c index 2c21f24040..6084db1928 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrd.c b/lapack-netlib/LAPACKE/src/lapacke_chptrd.c index 88df3abca9..7a2c7923ca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c index bc7d229adf..dc3313f684 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrf.c b/lapack-netlib/LAPACKE/src/lapacke_chptrf.c index 2e1afd4a66..957f16d776 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c index 8b75c64c09..43d9c89923 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptri.c b/lapack-netlib/LAPACKE/src/lapacke_chptri.c index a88a35b535..1d159b7e70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c index 40b221032e..51a10195d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrs.c b/lapack-netlib/LAPACKE/src/lapacke_chptrs.c index 210d5ccdb9..ba3590d929 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c index 49f9fc500d..139de1dcfe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chsein.c b/lapack-netlib/LAPACKE/src/lapacke_chsein.c index a3b1a9d409..4e606b9481 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c index 5b9088cfa0..8c58add548 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chseqr.c b/lapack-netlib/LAPACKE/src/lapacke_chseqr.c index 76578a57fb..ad364f84e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c index 1d56928274..11bac7ccb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacgv.c b/lapack-netlib/LAPACKE/src/lapacke_clacgv.c index 9a77c8ec0e..1e6ed883e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c index eb61e840d5..11f41bed37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacn2.c b/lapack-netlib/LAPACKE/src/lapacke_clacn2.c index 0d374d1392..8cb37df7fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function clacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c index 970b7d7dd5..390e42068e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacp2.c b/lapack-netlib/LAPACKE/src/lapacke_clacp2.c index 0c415c4d1f..fc9b9f8d97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacp2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacp2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function clacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c index 8f1d6b4c08..d565e46698 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacpy.c b/lapack-netlib/LAPACKE/src/lapacke_clacpy.c index 3e0433b44c..f5f6216fa6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c index eba3593122..59cab5aa30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacrm.c b/lapack-netlib/LAPACKE/src/lapacke_clacrm.c index 2c2c2b0b56..c14540589c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacrm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacrm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c index 5bfab7f95e..a9befaf088 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clag2z.c b/lapack-netlib/LAPACKE/src/lapacke_clag2z.c index cd989ff953..77af6c4da2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clag2z.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clag2z.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clag2z * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c b/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c index 48388e615b..727bd54388 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clag2z * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagge.c b/lapack-netlib/LAPACKE/src/lapacke_clagge.c index 0b6c4c23e1..abe1a96556 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c index 104c4c4feb..99f14e882c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claghe.c b/lapack-netlib/LAPACKE/src/lapacke_claghe.c index d1539224ae..281a12f72c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claghe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claghe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c b/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c index 63fb640c96..a72cb152ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagsy.c b/lapack-netlib/LAPACKE/src/lapacke_clagsy.c index f4f98fe154..841d41c441 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c index 128fab4ad8..6b1c25f66c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clange.c b/lapack-netlib/LAPACKE/src/lapacke_clange.c index 472a6c5c16..7bd436d4dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clange * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clange_work.c b/lapack-netlib/LAPACKE/src/lapacke_clange_work.c index ce5ee25caf..4875031dc6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clanhe.c b/lapack-netlib/LAPACKE/src/lapacke_clanhe.c index 5c40c29ac8..b515348ea4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clanhe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clanhe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clanhe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c b/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c index 17915bccce..561b8fad3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clanhe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clansy.c b/lapack-netlib/LAPACKE/src/lapacke_clansy.c index a02264eb4b..018f873738 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clansy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c index 099f1104cb..6c30105f97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clansy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clantr.c b/lapack-netlib/LAPACKE/src/lapacke_clantr.c index 2ddd2e211a..88e765f2b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c index 4779f10d26..2c64600f84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clantr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmr.c b/lapack-netlib/LAPACKE/src/lapacke_clapmr.c index e8f9ced1e3..8b2a4da344 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c index 8830e219c1..2496296dba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmt.c b/lapack-netlib/LAPACKE/src/lapacke_clapmt.c index e0bb395894..95ba11b052 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c index 3f57c96b82..9cbdcc3352 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarcm.c b/lapack-netlib/LAPACKE/src/lapacke_clarcm.c index 7f80b78307..9fb300d605 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarcm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarcm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c index cd12ee39c3..a2c048cf4e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfb.c b/lapack-netlib/LAPACKE/src/lapacke_clarfb.c index 3aeb0d7e43..ccd34cecdf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c index b1af49477b..3ad97c22d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfg.c b/lapack-netlib/LAPACKE/src/lapacke_clarfg.c index 9e852a4065..238b81f27f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c index aa8546d9c5..06a6a93ff6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarft.c b/lapack-netlib/LAPACKE/src/lapacke_clarft.c index 961d7cbab9..9691afb856 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c index dfbcaeed81..f540bd1fbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfx.c b/lapack-netlib/LAPACKE/src/lapacke_clarfx.c index 786c214128..6ee8d09ff8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c index 3bf7434621..f8d6f2dd5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarnv.c b/lapack-netlib/LAPACKE/src/lapacke_clarnv.c index 7a995005a8..9cb36c3048 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c index 324d5e10b8..ef5061a62a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clascl.c b/lapack-netlib/LAPACKE/src/lapacke_clascl.c index 4f4e0bf352..7a10c130e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c index 70a75f733f..2f4a781ef4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claset.c b/lapack-netlib/LAPACKE/src/lapacke_claset.c index 3884e6a302..3e320f5561 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claset_work.c b/lapack-netlib/LAPACKE/src/lapacke_claset_work.c index 1b4fed17a2..af1fe23aa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_classq.c b/lapack-netlib/LAPACKE/src/lapacke_classq.c index e4d746c5a1..f2fa6a7d4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_classq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_classq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function classq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_classq_work.c b/lapack-netlib/LAPACKE/src/lapacke_classq_work.c index 9e9c3a36ea..79ed26a19b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_classq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_classq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function classq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claswp.c b/lapack-netlib/LAPACKE/src/lapacke_claswp.c index cba497a283..62d0e8918e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c index 1867987e30..0b7d2cde09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clatms.c b/lapack-netlib/LAPACKE/src/lapacke_clatms.c index 19a0843505..04847345c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c index 1ee0c1307e..b96cf936a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clauum.c b/lapack-netlib/LAPACKE/src/lapacke_clauum.c index 1ce7078b0a..071a956130 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c index 0b9f91539c..8d71c3768d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c index 3bf733ffd7..e5f81169bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c index a8db32a78e..340fcd61ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c index 4468f57f21..ee0bba51b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c index 3b05b59fa1..f139ecaf69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c index 64ef7bd13e..4c8faaf625 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c index fa2c491044..3bcc7ca4ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c index bb52e9da13..d886421910 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c index 8aebca0eb2..1e583fb3be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c index 6528cec0c6..4c0b27d219 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c index 4e74b455a7..f6f356e4f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c index a14d5e150e..47a12dd3e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c index a31bd29176..a63c8fddda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c index 975c08158a..9b2f160eb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c index 1349bab8a4..a0c1d4c0db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c index 9ff63c177e..144c2af899 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c index 59d2cef3c9..af8078b84b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c index 382dd63d45..afc8343c9b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c index 5aa71b2e73..29f939246c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftri.c b/lapack-netlib/LAPACKE/src/lapacke_cpftri.c index 57b73d007f..0637acb96f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c index 5621b28347..1120cc25f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c index 410ab4d9d0..81ecd03fdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c index 3d66c6ee27..819bbdcbb3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpocon.c b/lapack-netlib/LAPACKE/src/lapacke_cpocon.c index b2ba482a43..bd8fd6b97c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c index ca5c4baf8f..25024a6ade 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c index 9ee9764489..1945af0c7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c index 72f2748a86..39e45ea820 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c index 3b5b4cfbf3..50bb97998e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c index 8662ceb25f..2df58a1668 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfs.c b/lapack-netlib/LAPACKE/src/lapacke_cporfs.c index e8867eb4ee..3063f97167 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c index d8ef90a173..aa9421b7f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c index 80c2877bb6..530d96775e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c index d742fc1dbf..4e4342eb54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposv.c b/lapack-netlib/LAPACKE/src/lapacke_cposv.c index bb9a670ebf..94296c7d72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c index 1f6810ae3f..f5903a8b41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvx.c b/lapack-netlib/LAPACKE/src/lapacke_cposvx.c index df0d5b8c3d..fa401cde17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c index 86c4354ac5..d732801d09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c index 2dbb650f89..d420171aba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c index 7970ffd2d4..a329787df5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c index ac1805d4c8..d8c7a24792 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c index b1bf4ba3b6..7fd0560a7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c index 4d9b20ae28..9d29d58427 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c index 635d1d3051..128a1638ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotri.c b/lapack-netlib/LAPACKE/src/lapacke_cpotri.c index bf80ec5ed1..3b006e6a83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c index 8623d63a7f..d4f9878190 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c index a5f0566983..638b7595e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c index a73f7d43e7..dee555b635 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppcon.c b/lapack-netlib/LAPACKE/src/lapacke_cppcon.c index d0ec180c72..0f4cb52a12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c index 42fd7e83b6..aea7edd3c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppequ.c b/lapack-netlib/LAPACKE/src/lapacke_cppequ.c index f0e546523e..1cb51bfdf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c index 610bbb8aab..111f50c772 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c index f62c61f6bc..7fc34be98a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c index fa775aef75..312280a58b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsv.c b/lapack-netlib/LAPACKE/src/lapacke_cppsv.c index 6a182fae9e..6d6ddcc028 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c index acbc1a8f05..ad9516912e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c index bf428fb17f..fbf68f9777 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c index 68dda8162f..d4a3135e67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c index dad29b6d0e..38247619bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c index fa7bda5254..b786bd4c29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptri.c b/lapack-netlib/LAPACKE/src/lapacke_cpptri.c index 5a80ef347a..89fba4257d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c index ee536decbe..91a54af814 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c index 6eab29d054..091c6dceb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c index ddd4e098bd..b59a21fc70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c index f4111a2873..630e154c55 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c index 892d1eb4b1..d4f5e53d0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptcon.c b/lapack-netlib/LAPACKE/src/lapacke_cptcon.c index ebaab3b6bd..eb861647fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c index d7cc964b64..1298bda8e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c index 3bc194f7ba..1205a58136 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c index 298d8f734c..501e85b45a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c index 8e69403d49..b7c7b236b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c index 307dc0accb..f2128fa3e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsv.c b/lapack-netlib/LAPACKE/src/lapacke_cptsv.c index 7de0ea3d23..c617fb344d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c index 9fc111c9d7..262ea94708 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c index 2e5185032d..ce4a51292c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c index fc6ab6dae1..5a16eb7e53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c index ad51c857c2..6dd5476aa6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c index 18ea7115f1..b49017814d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c index bc8abf39da..61d22b4962 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c index 27d709e8a9..fe9150bedf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspcon.c b/lapack-netlib/LAPACKE/src/lapacke_cspcon.c index 19c011e7fb..d17277b655 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c index d24b383145..90fffaed2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csprfs.c b/lapack-netlib/LAPACKE/src/lapacke_csprfs.c index 1c9b801e2f..6d4a52dc4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c index e2e378bc5d..b245cd06d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsv.c b/lapack-netlib/LAPACKE/src/lapacke_cspsv.c index c5b1f91d2f..078356f57d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c index dba376679d..794e99e12a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c index 18d6163b11..f75ac35b7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c index 38da17b9c5..b3ba12b5d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrf.c b/lapack-netlib/LAPACKE/src/lapacke_csptrf.c index d74415ea7a..6ba643e25d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c index d84f4cd5cf..6b640445d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptri.c b/lapack-netlib/LAPACKE/src/lapacke_csptri.c index 3103d52864..5897d74bb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c index a51fe264b5..185c164a57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrs.c b/lapack-netlib/LAPACKE/src/lapacke_csptrs.c index bf433b7166..ca97e4d794 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c index 09dd1c6229..58f3dfae93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstedc.c b/lapack-netlib/LAPACKE/src/lapacke_cstedc.c index 3c0be27d58..61cacfb148 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c index 365fcda0a1..5574ea58df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstegr.c b/lapack-netlib/LAPACKE/src/lapacke_cstegr.c index 86a0cd72d3..8d81dc1630 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c index 2fafd58d22..49f1b394db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstein.c b/lapack-netlib/LAPACKE/src/lapacke_cstein.c index 9f7516c5e5..693e84aa7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c index 48b7424544..53e686b471 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstemr.c b/lapack-netlib/LAPACKE/src/lapacke_cstemr.c index 51e63c675b..304914526f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c index 1afb12b3ea..7327bfb159 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csteqr.c b/lapack-netlib/LAPACKE/src/lapacke_csteqr.c index 7877925d23..457d70bf03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c index 0f69431397..7ccbfd7bb7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon.c b/lapack-netlib/LAPACKE/src/lapacke_csycon.c index e6b02d4d42..1472442ad3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c index 6d5dcd646f..bb1ad9d10a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c index 47323dc4a2..b00e8fd96f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c index e16d8aecb5..3fa8a69399 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyconv.c b/lapack-netlib/LAPACKE/src/lapacke_csyconv.c index 771395e977..b9df46e9e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c index 80a85179be..be6da33396 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyequb.c b/lapack-netlib/LAPACKE/src/lapacke_csyequb.c index 79921b3339..e1bb1621f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c index fe9ea16c8a..3469e11e00 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyr.c b/lapack-netlib/LAPACKE/src/lapacke_csyr.c index 54cebff1d7..ea5da573f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyr.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function csyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c index c988efb088..2769eaa3e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c index 501ba2bb00..b8d8b8bdc5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c index c461bfb1c8..e22ce1c406 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c index ceaf43776f..6ea79675a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c index 72ebbe2797..fa422849b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv.c b/lapack-netlib/LAPACKE/src/lapacke_csysv.c index 11baa9bb6d..022271052a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c index 9e012b9a37..53f0f90326 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c index c93bb9c8a4..db154bd91c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c index dabe315120..6180de7760 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c index e2f74464e1..8abf0e0703 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c index b2950c1e38..9721074a15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c index f87f05175f..71facf581f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c index a9edbe7063..95dbd0d8c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c index 39034a1585..b3feff5b51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c index 80b10bb829..291da4e712 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvx.c b/lapack-netlib/LAPACKE/src/lapacke_csysvx.c index b64aab954d..a9e4f784d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c index f9ec151382..dfd4a16392 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c index fffac2b414..ae60885a4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c index 6357c37bca..d2bcd301a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c index 690ed47181..be412876bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c index ed215531bd..def8e235ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf.c index ccde4f48fa..9b1f6b5455 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c index 0448a1f2e1..7dafe090fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c index 1ccad12f98..8cad47aa9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c index 665291c1d1..7139a2d156 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c index f6661c85c6..1a25fcc482 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c index 52b7d24839..5b21a0ad74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c index f98e8259be..740d917dcb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c index a010800dba..0f76a80e9b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c index 33479fb95e..0e927ae263 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c index 43eedb4a90..5ed9fae6cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri.c b/lapack-netlib/LAPACKE/src/lapacke_csytri.c index 309af8596a..14d37f6216 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2.c index cacd6db927..c9fe76d5f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c index 6ab637c4fc..a1660758ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c index 5c7e0be136..f47f6ca55e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c index 45468188a4..56b5e72021 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c index 75ec8f0245..a08dbda641 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c index b91d8a8554..5cf6448397 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c index 944033446c..3fad4a5656 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs.c index 5b9282fe5d..12356251d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c index f4a0a4334e..b7312d0d72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c index d914c1d69c..e2c56fbecf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c index 962416c00b..628eb2617f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c index ef89b839dd..5183ea6374 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c index ff9ba03b4c..fc71b4a3bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c index 2edab2f9f1..1396d0b500 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c index 7ef73971b3..f144e470c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c index ad576b2363..1be7791b24 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c index 1970bc91a2..a22bc29eaf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c index 3e4b737ddb..9683fd46d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c index 047a25980d..c7403bb5ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c index 21b86a0da0..35fc065d69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c index f5e330b12f..0ffc705a32 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c index e17e623b1e..62228ace9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c index 14d5721885..18ac02dc20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c index b97f12029e..0b617f2931 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c index a236b332c5..a4ab5cab78 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c b/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c index 1c97c7b06c..40330fb33c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c index d1e78f381d..7ea6ec8cc0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctftri.c b/lapack-netlib/LAPACKE/src/lapacke_ctftri.c index 2c20433142..5916f9e05e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c index 06c99b0b88..fe135147f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c index 66c69c795c..6648c407c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c index f7192f11f3..df022e409d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c index 0f7b3d7f93..c230cf3da2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c index 34b7a62947..d0ac11a674 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c b/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c index 647e238841..33ea8b4690 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c index 9f4236e9ec..3e3de5df0b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c b/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c index 0b88ed9f4a..f6f56e457d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c index 1c34d2d783..1b7e5ed113 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c index 6bfcdc996b..c543cd44f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c index dad45119fc..2bf21a8f03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c index b14f3b4c8b..f864b37bf6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c index 9ea4e3648d..3cfa3ec528 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c index fab7b9f69a..358836a8a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c index 171b7bc31c..7728527f93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c index d34080c900..3ead5ed916 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c index 2c7619a5db..1d0b0126ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c index 15826ece39..9a688e2ea3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c index c776402ef8..e57bcc1987 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c index ee153e25a5..78ccd85705 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c index d460cfbaf7..5ec948e7bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c index 24097024bc..3c22910185 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpqrt * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c index 9ca49a5e96..c1ce56e6eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c index afca000a17..cb5c7831d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c index 1ce0e5bfba..4ac84f3d50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c index fd49d6a7ff..d82d269a4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c index dac4995832..8406c1a877 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctprfb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c index b869c20206..4d7093eae7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c index ed09390dd5..8ee69bee07 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptri.c b/lapack-netlib/LAPACKE/src/lapacke_ctptri.c index 720c5dadbd..ae6b319195 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c index 3aefe6c3f0..583550ceb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c index 5b6a9141ce..b9cc0ff364 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c index 4a32aac078..2b6de32218 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c index 793e9ba11c..5683ca4984 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c index fafe1f0689..e34eb02406 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c index 679c661b82..8c0445b015 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c index 7a136c4398..49c6863d70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c index 159fb43a58..e9ace28444 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c index 03186561be..8e03dfc4a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c b/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c index 8c0b3d13b7..af53062eac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c index f2ebe0af33..af4b366d9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c b/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c index 426e8486bb..dc003c8430 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c index 1d12d18ecf..9f301b52a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c index 164845356d..20019fd51c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c index 0556d932c3..d1babfeee5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c index 0ea1feb468..f7a57c6701 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c index b8c63d1e61..8959d5ce8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c index 3e3b8d894a..667d40aba4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c index 2045c9fa63..865b5769a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c index d17d1eda63..1952e024bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c index 0120f02512..1c345f1211 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c index 4fc39cae72..6dd50ba90e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c index 68951183ac..d21c99bce8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c index 6669f3f7a1..061ae686d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c index 53138d2f5d..228fd38bac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c index 8ca652456a..e5a3c0e4ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c index fd788b200f..8589a65892 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c index 7b2e3a1691..624cd2d2fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c index 8ac03cf81a..9a557b6024 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c index 7ec2778ab4..c33b868baa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c index 3d0e6bddfa..c5178ce3fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c b/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c index 562f253d92..779e461f32 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c index 8ae40e6d4a..fa05aafb2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c index 4dc5b97f99..91a4ca9f1b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c index 339ed8d19e..8a1fc02f36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c index fb0a0f7ee6..4e7e2cc165 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c index 0ab02e046f..a5c24a301f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungbr.c b/lapack-netlib/LAPACKE/src/lapacke_cungbr.c index 5bef3cb659..d71462d915 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c index e2a8b794b1..88429715c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunghr.c b/lapack-netlib/LAPACKE/src/lapacke_cunghr.c index 4159e86b6e..45fc0556f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c index 747962b418..14b888ed22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunglq.c b/lapack-netlib/LAPACKE/src/lapacke_cunglq.c index a614694c19..a3bf9abbd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c index 70c7690f12..3c9d9f806b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungql.c b/lapack-netlib/LAPACKE/src/lapacke_cungql.c index c80f92a8e0..668c39c0fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c index 23db9b7d35..8920917bea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungqr.c b/lapack-netlib/LAPACKE/src/lapacke_cungqr.c index 9247dad20a..bad2c322c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c index c30dc646af..0f8426e232 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungrq.c b/lapack-netlib/LAPACKE/src/lapacke_cungrq.c index 82fea68adc..65154554b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c index 1ba081d1c8..76a0f9da3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungtr.c b/lapack-netlib/LAPACKE/src/lapacke_cungtr.c index faa3ef6d35..c0da66df8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c index e2b9d8e5a7..b892740de9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c index d80bc526e9..3273b4297b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c index 0da3b2a82c..75be3d9e46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c index 127dd8c57f..003939ebf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c index fcecb5889c..d73a76f906 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c b/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c index f340c8c930..224fa7866d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmlq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c index a7cc3ede62..204dc72a71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmql.c b/lapack-netlib/LAPACKE/src/lapacke_cunmql.c index 92c9881310..1256dd5475 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c index 9fb1c98f54..ccfda0ea60 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c index 1ad2afa3bc..a49796773b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c index a187db5d10..ce5a37cbcc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c index ec96052b97..e410b95c86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c index 7e3b2994ec..cc99429406 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c index 81d788d713..c2e235ae84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c index 872bfba899..5dd15775a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c index 71ad23f2f5..f98a205763 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c index 1c426dbd57..8a22f3c7e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c b/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c index 6c96735aee..662cce33e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c index bf78dba193..b37afb1c6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c b/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c index ba026ae68a..1ea17ca56b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c index d051838df6..cb273ac44e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c index 960d62dd6d..afa01f3cbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c index 6d3b12bfa0..888fa6c2b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c index 849b06ce74..aaa7060990 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsdc * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c index 8fb36266c6..7e498a225d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsdc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c index 3b27f86cf5..2f0ba24307 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c index 4eca3bbbf9..d3330cf9b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c index b32e79b937..88d0e87654 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c index fdee5cbbe6..f5506ac1dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ddisna.c b/lapack-netlib/LAPACKE/src/lapacke_ddisna.c index e5a8b8240f..a73a6e9478 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ddisna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ddisna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ddisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c index f3ec282f4c..b8e03c6836 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ddisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c index 89be123f5e..ff655d969e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c index c2b3aa1efa..79c7a9ec11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c index 40e694e7e3..c1d0f430e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c index 5b191589ee..1e7904e6e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c index 171177843f..465e599e8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c index 5803e45427..fcba3475b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c index da6bf077b6..6fbbdb2b53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c index 326c2db2d8..3eaafa13c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c index 29612815a0..7877ab94d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c index c9b4679be3..9c095e2832 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c index 7fceeb6bc1..3f54f67e87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c index b86be71a0f..484d10d96f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c index f2e868c5f0..305ad68c81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c index e019b942d8..cb29d3d952 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c index 7cae13022a..0176dc952d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c index c2d2f5c33d..6b48820658 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c index a991bef469..9178bc3b7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c index 2c9111b05a..a52d721876 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c index a08116fea7..baac4b61c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c index 799a8551d4..ff5096f964 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c index 27e5c18cf2..cb86478d1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c index 93fa3782f1..bdc2d129e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebak.c b/lapack-netlib/LAPACKE/src/lapacke_dgebak.c index 9363602f86..744ca54f3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c index 909c9e6b67..afa8b1e52d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebal.c b/lapack-netlib/LAPACKE/src/lapacke_dgebal.c index 35eae3eb64..e9a63fbad0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c index 50ee401a49..c0d113e19e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c index 5ef6c62fb3..9ffc4374b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c index deae15768d..267d773b51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgecon.c b/lapack-netlib/LAPACKE/src/lapacke_dgecon.c index 4cc6cbcaba..9ca44f8a7c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c index ed00ae407b..9b475df5ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c index e96de37420..b6c1c23b45 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c index e8fae93a12..09290ed478 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c index a80e2bd7fd..0011c76509 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c index 03ebb54c81..36336d1b65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgees.c b/lapack-netlib/LAPACKE/src/lapacke_dgees.c index f80c41f442..875972d296 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c index 77390f6193..6a18199fa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c index 193d65737f..7796edffc1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c index 4452e9a017..dcdd64621b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeev.c b/lapack-netlib/LAPACKE/src/lapacke_dgeev.c index 460155d348..a2a351d1b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c index 074309e788..c4de72394e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c index 97612c1cd5..dd14b990e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c index 533e81af4c..9efb49ed3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c index a3de86a979..f5b8c2871e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c index ed6ce1074b..019bc822b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c index d9709bf89b..b8952e21be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c index fba9a374d9..b13a240760 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq.c index 016a45f6a9..35d9d826dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c index ce1690ee26..3bf06cee7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c index acce768819..cf838d01db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c index 1bd50678b9..7d367b19e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c index e5ce2e6990..8880e3ca2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c index 979f0804b4..7a64cded6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgels.c b/lapack-netlib/LAPACKE/src/lapacke_dgels.c index 1862733511..1852cfb228 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c index 554da9f474..853c5614f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c index 790119596c..d096313d5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c index 80cad2ac55..242082216f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelss.c b/lapack-netlib/LAPACKE/src/lapacke_dgelss.c index ca888f1eaa..e1692dc300 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c index b82784171d..a3d595acb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c index 6d318236e2..97a1c90ac4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c index 31f4bde7fc..2ba4f07ca3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c index 02b08df35c..a5fc7b8850 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemlq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c index e85252a14e..80072ffdf5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c index b4be9ea9cd..6fbcc20476 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c index a1179a466a..b254538a25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c index 4b8c661d55..7b9e8c3503 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c index ade8448ba8..2ecca45374 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c index cb2854c79c..c8891f6f2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c index 7a8bffae5f..c5274633f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c index 52f7d07c6d..b9bde96f21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c index 0dfc25f4e1..130490ab12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c index 63098b2320..74256a0fd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c index b9eec50bb4..8d53351d76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c index 4c26cb7b59..20a1700fdb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c index ac4b858474..a340e3a9a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c index 4030606431..6e461c643c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c index 8bc3b1cb4b..112e3fcbca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c index 1fbccd88ac..81a2d4d6b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c index f24febf7e4..abd8f1726a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c index 856b6d1fdb..fcac667628 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c index e622f3ce61..433e34bfcd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c index 4d45fd9291..3967b5c19a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c index 894f470250..f522694547 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c index 8a75c08c34..04a7985091 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c index 01a90771cd..513cf68155 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c index 510cacc9f1..e2c8706aa0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c index 0cafdb0a85..8a4c7ceadd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c index 8034676c34..b447e258af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c index ab1189db07..85e53a74fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c index 57e8bfd4ab..ce069abf82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c index 306fe68d26..d6606e3f3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c index c2a6e79f3d..6cea16ba97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c index 9bf5bb563e..cd571fb092 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c index 61bd91c6d2..6b261e9534 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c index 2a7c0b1b63..7bef2230c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesv.c b/lapack-netlib/LAPACKE/src/lapacke_dgesv.c index 57f9208f6a..52a0695804 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c index 66674336b3..c6c65d2ec2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c index 1801e86a54..cc77177526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c index 671def1dfa..6668dd7484 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c index 7bf831f8bc..4e1b876810 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c index 0de92a2547..0d65f05298 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c index b17c03776c..ff78c13d2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c index b326cca9d1..a2faa39bc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c index c375d25038..c2cfab8bed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c index 200b346cf1..3ed28908cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c index 95554b7324..1a22d312d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c index 12d834b0fe..0de5f58882 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c index 716ba1fa4d..9464013375 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c index 47879727f5..7fce9ac206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c index b4e2b1668a..2e34caba42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c index 555d07b90e..5835fc51d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c index ef2c0e2562..819196bc49 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c index 4c808be22e..ed34dde9af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c index 3fe8c2b325..4ef372005c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c index 2b05285bc9..6f79ae7375 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetri.c b/lapack-netlib/LAPACKE/src/lapacke_dgetri.c index c8b427e2c6..9f889e4641 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c index afae5bd7c1..dbc9e10a79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c index 8af10825d6..1dfc507eed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c index aaac57c459..b2de85a6c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c index 9adc61d0d1..2098e94246 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c index 6f84d67484..c551b6266e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbak.c b/lapack-netlib/LAPACKE/src/lapacke_dggbak.c index af890562de..8dfb851ef0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c index 09bd5203a7..c49152aa7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbal.c b/lapack-netlib/LAPACKE/src/lapacke_dggbal.c index 00e2397c58..42f58afc4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c index d9cfd7aa07..f512d6afed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges.c b/lapack-netlib/LAPACKE/src/lapacke_dgges.c index 5c4a12f793..b2c3fa3c72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges3.c b/lapack-netlib/LAPACKE/src/lapacke_dgges3.c index 1d87cac202..079ead78cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c index 7a05a46472..43771ef17b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c index 57c1bb0a0c..effa1b3f5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggesx.c b/lapack-netlib/LAPACKE/src/lapacke_dggesx.c index 91eb7bf8cc..605b637c8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c index 12e884cd47..ace40a32ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev.c b/lapack-netlib/LAPACKE/src/lapacke_dggev.c index 4aa2e679cf..002f4ac989 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev3.c b/lapack-netlib/LAPACKE/src/lapacke_dggev3.c index 80a115eaa6..2323ec8f88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c index 8e8d0e6fc1..2f9f5c34db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c index 0af48ee8c5..0a6ff6ab05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggevx.c b/lapack-netlib/LAPACKE/src/lapacke_dggevx.c index ee9e0f5d35..723b6c340e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c index dac3576633..458832e1e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggglm.c b/lapack-netlib/LAPACKE/src/lapacke_dggglm.c index 9f2c223fa9..c896ee1852 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c index edfaa1afc6..72b11309ca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c index 478a41d8ee..900bb4dd1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c index c7080c608b..a115b2bd6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c index 5092ba3b53..fd6083a739 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c index ac0f3c11d3..58110b553e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgglse.c b/lapack-netlib/LAPACKE/src/lapacke_dgglse.c index 27e0281d90..e666c40a3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c index 35e5b9cbc6..3f1e8e9412 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c index 292548d9fb..fd16eacafe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c index a23dc813ee..01b8770b30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c index 42f8133b0d..5bbb7046c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c index 958d8703f9..e6dc6f64a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c index e7e06c6c66..2eb8b271b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c index 69dce19f17..586254997e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c index 228a5b72fd..1a5cc2e81d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c index f533e0b623..eda8e4a225 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c index 86e4b9ccec..1ddd7cc633 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c index 60a679f5a2..3e5ad77afe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c index d044df1e10..d5b119d0f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c index 055fb19da0..5e919c501e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c index ff61d9ea77..378693ea5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c index d977d642e0..56d9c45cb7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c index b7ff5b3ac6..98f3e38e15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c index 7d58714e9b..557e9a8531 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c index b89be4668d..9efdd73aac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c index f9891241ba..a230e204ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c index add4d8a612..9ad89a7123 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c index c9ca734b23..3cbc8f31a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c index 64a71521ea..bed9525416 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c index 5daa1cfe92..04b9fe325c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c index 1dd61dcea8..1e14efca3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c index 174e3f2f58..ca581622ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c index d1f355b010..d333594705 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c index 818f1bde09..dd08080b7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhsein.c b/lapack-netlib/LAPACKE/src/lapacke_dhsein.c index 1823486896..3843701cc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c index eb966e4220..b234c97404 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c b/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c index 9672dc641d..736bf3ea04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c index 540e9a9e21..5bd6de7aa4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c b/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c index 7f58b237e1..6658b5bf15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c index 3b015d4e18..0e4cb07b5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c b/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c index 32b5e4becd..8c59e75e05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c index 88f4489a3c..82a76dca37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c b/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c index e9f9aef748..e5421b34e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlag2s * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c index 2cbb580cdd..a5ec0383e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlag2s * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagge.c b/lapack-netlib/LAPACKE/src/lapacke_dlagge.c index 6ca8739ec2..5fe0bb5781 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c index fb98cfc98a..ccf3ae9b08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c b/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c index 1293fc7d45..b081fd5008 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c index df92e291ea..d160fcbdeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlamch.c b/lapack-netlib/LAPACKE/src/lapacke_dlamch.c index 500e624d1d..0828867874 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlamch.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlamch.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlamch * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c index e5be20b0a6..cc57f6e0bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlamch * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlange.c b/lapack-netlib/LAPACKE/src/lapacke_dlange.c index 0186768e1e..30094bd9e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c index 43d48c8166..56750bb76f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlansy.c b/lapack-netlib/LAPACKE/src/lapacke_dlansy.c index 931e83f43b..4007cc9127 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c index b3a6872b8e..a370261c35 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlantr.c b/lapack-netlib/LAPACKE/src/lapacke_dlantr.c index ce625c7aa1..4d1be93d73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c index 9c9b0ea8b1..34fa94c439 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c index 97068bb340..3ccddda2fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c index b287d9813c..888649e0b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c index 6c381bc7e4..23f3932ffc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c index 9cfc79ff40..1eb7557854 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c index 7e9fe72d1d..fd8a145932 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c index 61ba740b12..45377c523f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c index 005e59ea4c..f1ef9420b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c index 1bd6dd31d8..98a17d3669 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c index a1f49dde15..3c3c24c54b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c index ef9c70df4c..57c53bae31 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c index df401c41d9..95cd4d7d3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c index cd23c09144..eaa49449d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarft.c b/lapack-netlib/LAPACKE/src/lapacke_dlarft.c index 82cc7272bf..a8d8fa6d3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c index b8621297fe..c430f1bb57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c index 7b7b7201ec..18676b4cc1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c index c94c9254e7..7345976b85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c b/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c index 8d8254634b..004fee2ae3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c index fcb649cb46..e430e52ac0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c index 63913ba75c..1ec778e09a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c index d66913a9a7..ee71072a53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c index de106cb8d1..795164466e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c index 16ded77eb1..1e3f805273 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c index 058105127d..71a7ef4e45 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c index a20bf09e6a..0ab8570b79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaset.c b/lapack-netlib/LAPACKE/src/lapacke_dlaset.c index c286c18beb..7de7dac21b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c index f1444b5e2b..b18cc331c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c b/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c index 844343afe5..101917a233 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c index 715506de52..cce8791496 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlassq.c b/lapack-netlib/LAPACKE/src/lapacke_dlassq.c index 0e096b6d47..6bd255804a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlassq * Author: Julien langou -* Generated February 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c index 9d04bfc86f..56a29bcdd5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c b/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c index bd07b3568d..de4e540b5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c index b2b9c07f58..ac61ce4e89 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlatms.c b/lapack-netlib/LAPACKE/src/lapacke_dlatms.c index a762bd215d..a20fedb57d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c index 25d874e6d8..3f98722466 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlauum.c b/lapack-netlib/LAPACKE/src/lapacke_dlauum.c index d873f046cb..8c9c54599b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c index 4b78b50ed2..b28543f9ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c b/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c index 8d5a329862..74d4b62ff6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c index 18edf9a6e1..d5b704447d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c b/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c index 7fbfb11fd7..9ec15270c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c index 973260dd0a..2fa65f2f6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c b/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c index 82dbdebc88..bd7eaf5d1a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c index febe9d9183..6286c3cec7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c index a103bf0520..26756ff52b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c index ec298cee46..213af715b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorcsd2by1 * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c index 5cc39b1b02..3e8802bcf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorcsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c index d8f9e1a466..d121f7cd65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c index 5547c47079..9f001a8cde 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c index 460cfb9e47..8e5bc130d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorghr.c b/lapack-netlib/LAPACKE/src/lapacke_dorghr.c index 5faaeb1944..982f906e88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c index 8fb110e1e3..cca0413d85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorglq.c b/lapack-netlib/LAPACKE/src/lapacke_dorglq.c index 702f0636c3..d984ace1a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c index a54362035e..b69ceddade 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgql.c b/lapack-netlib/LAPACKE/src/lapacke_dorgql.c index 05d4e7fe0b..ce8e1177a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c index d2e093dc6c..636d1f682d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c index 078062b20b..6cbd699013 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c index 0d0f8add7e..44f6b7ea1a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c b/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c index 5387672c27..bea1bd6e2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c index 4eb7a8e819..784915f0b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c index 587805de61..14e9b5f36a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c index d88e0a9e4e..709d131254 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormbr.c b/lapack-netlib/LAPACKE/src/lapacke_dormbr.c index 9904ec53fa..298fce81c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormbr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c index d6adc83fea..d7cf78a2d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormhr.c b/lapack-netlib/LAPACKE/src/lapacke_dormhr.c index 4b9526f14b..627b92aa4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c index f16a828dba..f158f71613 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormlq.c b/lapack-netlib/LAPACKE/src/lapacke_dormlq.c index 1e50d18c18..06880747a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c index a326feffd8..6bd12624f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormql.c b/lapack-netlib/LAPACKE/src/lapacke_dormql.c index 11e9f07d1d..1e4d7efd3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c index 9b535109bc..c7336e816b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormqr.c b/lapack-netlib/LAPACKE/src/lapacke_dormqr.c index 99d5a85dba..820805ba00 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c index 540331dafa..2455774420 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrq.c b/lapack-netlib/LAPACKE/src/lapacke_dormrq.c index a1d6598602..cfa1deef21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c index 51dd662ee8..f4372a186c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrz.c b/lapack-netlib/LAPACKE/src/lapacke_dormrz.c index d1be944619..091248c1c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c index bea1ce43fa..c77cb505ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormtr.c b/lapack-netlib/LAPACKE/src/lapacke_dormtr.c index 0b1c54b9b6..56add4b3fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c index 50f8b49796..cb53363d41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c index 382f194934..a5ef670e80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c index 0716d22804..a75a9152d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c index 8bc8a9f33a..c938b22937 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c index 126fb7670a..9c00aebb0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c index 71b1655ed3..3c88bfdcf9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c index 8e9498ec6a..df4ec65a14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c index b0342cb422..5404aba9e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c index 33014ec4a1..d1521a6f5b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c index e77bba8835..f5daeaefcf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c index 83dbf218cc..0d4ba28dec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c index 0baf503689..60f2605978 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c index 51731281aa..be99b7ad74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c index 256557fb94..c18992fd8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c index 66acad6cf2..d1e1bbcb09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c index f624d2927d..de35260c55 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c index 5da81ae576..a87645a03c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c index 85148ba04d..444f4b945b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c index 665a5c5e6f..289b5ab260 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftri.c b/lapack-netlib/LAPACKE/src/lapacke_dpftri.c index 5bcdac65f5..367b670a69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c index 3e7e1d3a0d..7845489d2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c index fef567fa4c..3ed9450384 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c index 0b9e8f469c..c5a826d16f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpocon.c b/lapack-netlib/LAPACKE/src/lapacke_dpocon.c index 34ac297bbc..faca6f32b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c index f5b965d064..12537eb065 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c index ba7ad1da3f..c31be21395 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c index 27b36eda6d..f1d1fb743c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c index ce6378b845..661008de7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c index 73682b0841..c59c251d9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfs.c b/lapack-netlib/LAPACKE/src/lapacke_dporfs.c index a2cf8f0b9b..b55e84ce6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c index ff241c4c6a..79e04ce3fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c index d9674d2ee3..2cb74dad1d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c index 3d5dd32834..c43dff18a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposv.c b/lapack-netlib/LAPACKE/src/lapacke_dposv.c index a8602a4508..1ca4b4d389 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c index d230ffe7f4..afdb6d6eee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvx.c b/lapack-netlib/LAPACKE/src/lapacke_dposvx.c index 25ddb42fd6..cc2fbc8a87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c index 20f9f42098..f5967c5eb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c index 27fc3ba952..aca5eb1b58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c index 1505b48f96..a14cf72b2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c index e69d399868..6915b607df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c index 06390dcadc..f3498f9874 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrf2 * Author: Intel Corporation -* Generated November, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c index d8748c7622..de5720b6a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrf2 * Author: Intel Corporation -* Generated November, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c index 760edb4e64..6bb5cb3a6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotri.c b/lapack-netlib/LAPACKE/src/lapacke_dpotri.c index 1bacec9a25..41084ab966 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c index b027739452..6e84a886ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c index 17fa8c82f6..eeb355bd7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c index 138e255762..11307f5ed3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppcon.c b/lapack-netlib/LAPACKE/src/lapacke_dppcon.c index 985a705c13..ffe002fa8e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c index 78abb1a197..09a8e28384 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppequ.c b/lapack-netlib/LAPACKE/src/lapacke_dppequ.c index f444e7c4cc..d9de7cf765 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c index 1e02826df8..8b7513c238 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c index 36f1c0c884..e16f25e7a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c index c7b359dd28..f88877800d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsv.c b/lapack-netlib/LAPACKE/src/lapacke_dppsv.c index 90d12728d7..ef3dc82a2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c index 949bcd1a99..4e1ff98b2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c index c427840aa9..a8bf715236 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c index c230e8f28f..5eafa8681e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c index 2b5c7a746d..777345a8b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c index 76fcba6f9a..ff66fde216 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptri.c b/lapack-netlib/LAPACKE/src/lapacke_dpptri.c index 06d25947c6..e798ae11f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c index ae44af7b69..ca88281882 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c index 9336f39ff4..ff6198cd23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c index 325cd34de6..25312dbca4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c index 4c2f6ca569..c153d665a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c index 762f0ae1ff..fa9a729cdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptcon.c b/lapack-netlib/LAPACKE/src/lapacke_dptcon.c index 48b49c24a0..7279485e9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c index 29cf9a2a6f..d48767a6d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c index 9f69724862..4ee19366e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c index 3ee3aab02c..902b06bafd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c index 3c0c967db7..f235dc3d0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c index fca3b0f96d..7139876f61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsv.c b/lapack-netlib/LAPACKE/src/lapacke_dptsv.c index df309dab2c..be1c16cb1f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c index 43e17e094c..92631b3afa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c index 6d9c030f4c..6ce2b5e0fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c index 90f4c19df4..1040df224a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c index c48755377b..525dff8b37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c index 1d4120951d..e636342068 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c index 88a962a0f8..375cb0831f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c index 3d2bcb2c6d..c21df1db76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev.c index ac2b053910..2e326c69cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c index 79cd25386b..6027a602d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c index a0bfbdd87c..e8bf948d76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c index c37a6daa6a..74321ecbbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c index 3a9abbbe11..27dd8100a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c index 4d42b62080..41e3f3a3aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c index 915674409c..c2c21fb3c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c index 294180a929..8b96b1ecf0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c index cd84a08695..b27ba2114f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c index 256bf729e1..74d88b99d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c index 49c9922130..6750e2acb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c index c7cda69a72..40457ee4a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c index 81002930d7..46706d8448 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c index 7a25a89314..0f2efb15e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c index c313031ab6..8696973055 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c index 25034368c5..c50562dcc0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c index cab2a64bb5..05555c89db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c index 1b3b6fb7cf..1960271305 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c index 3a28a794c2..3217d402ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c index b2f4d706c0..b381439290 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c index c7ad8ce7b8..84e84e8360 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c index c9120d1132..0d9ed3cfde 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c b/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c index 603e0931e5..4af9a7922e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c index 0038f53374..6072648eb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c b/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c index 9d6c39d640..b8e8930eac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c index 03cc828e22..5eeaffd0f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspcon.c b/lapack-netlib/LAPACKE/src/lapacke_dspcon.c index 217e5bde7f..3b16c513e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c index ab92b9086d..be0fc30f28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspev.c b/lapack-netlib/LAPACKE/src/lapacke_dspev.c index c662cfed1f..90c1659643 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c index afa3bfd4fd..f74284bcc7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevd.c b/lapack-netlib/LAPACKE/src/lapacke_dspevd.c index c7d93b6b30..20a0cc8136 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c index c544d366c4..af34d8b0a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevx.c b/lapack-netlib/LAPACKE/src/lapacke_dspevx.c index 1729763576..05d3cad17d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c index c184e284e4..ea902587d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgst.c b/lapack-netlib/LAPACKE/src/lapacke_dspgst.c index 20ea58a05b..9d0e1873ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c index 281cc7a9b3..a58614f831 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgv.c b/lapack-netlib/LAPACKE/src/lapacke_dspgv.c index 818f131ce2..df42ce91b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c index c8120a2913..689517e704 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c index b49ce95ec2..ab6910d1dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c index 623c5f95fb..7a075de3d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c index 82a6217e2b..eb09e490bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c index 6e8dbac719..1a6036b1b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsposv.c b/lapack-netlib/LAPACKE/src/lapacke_dsposv.c index 68ad48b6e4..f589444361 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c index e7d5dbcdce..66bbb10528 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c index ef0feee6a0..14a2acf071 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c index df1d13b378..ce6e9c5577 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsv.c b/lapack-netlib/LAPACKE/src/lapacke_dspsv.c index 48d94c44be..73606a602b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c index ef0b787b8a..3878c651e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c index 6e2d9a4812..6c0fef7753 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c index fad5003d84..dfd1dde265 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c index 232f33f652..56941f116e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c index e8846c0427..28b9fc032a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c index 9c3a898133..01b9c5a6de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c index f8b04f74be..c4446492f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptri.c b/lapack-netlib/LAPACKE/src/lapacke_dsptri.c index 728e0b8547..7817a0d9e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c index 2f8923e4a6..5fcef36e7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c index 1d7f313cac..d8f2db1c4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c index e338020613..4d21200d5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstebz.c b/lapack-netlib/LAPACKE/src/lapacke_dstebz.c index 011770be76..6616c5b2e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstebz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstebz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c index 12e16c6351..0861b9d84c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstedc.c b/lapack-netlib/LAPACKE/src/lapacke_dstedc.c index 16e308450a..29ef80656f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c index 6788375b41..e197899c14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstegr.c b/lapack-netlib/LAPACKE/src/lapacke_dstegr.c index 7e4f9d6948..50871aaff0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c index 4e7f317d31..320f162e12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstein.c b/lapack-netlib/LAPACKE/src/lapacke_dstein.c index 44479939b4..bddfa2ae42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c index ab89644326..a1e2779fc8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstemr.c b/lapack-netlib/LAPACKE/src/lapacke_dstemr.c index 1a3b0ac7b5..a56a36f7b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c index 6a25fefc61..560721b7d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c b/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c index 8984fdf902..fb2c4e8463 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c index c98ba0fbb8..ae61a378e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsterf.c b/lapack-netlib/LAPACKE/src/lapacke_dsterf.c index 35537278de..1dd5a3c8f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsterf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsterf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c index b405fbb717..390f5a5799 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstev.c b/lapack-netlib/LAPACKE/src/lapacke_dstev.c index 6811d578f3..90c111be53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstev * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c index 7047361ae5..a71a0ea7e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevd.c b/lapack-netlib/LAPACKE/src/lapacke_dstevd.c index 251a2ae2ec..bb5435fa0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c index c094406082..da9577abe9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevr.c b/lapack-netlib/LAPACKE/src/lapacke_dstevr.c index d49e0ff1ce..b745ce75d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c index dc81c37d0d..1505226206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevx.c b/lapack-netlib/LAPACKE/src/lapacke_dstevx.c index 9c89f94672..1b0219dabf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c index dff7f6b8c4..6e83917583 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon.c index ba68bf7963..6ffc01b2cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c index f846bb4086..0ffd22680f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c index e4e2d29f7f..fedc94cec3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c index fa4e85dc51..11400648c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c b/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c index 36ff7c40ca..a1b63f1f0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c index 05e8124620..4c3e094dd4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c b/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c index cfa0452857..80fcad4735 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c index b4a6f7d522..18dcf9c4c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev.c index baac994815..33c9710f4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c index 8d168990e2..ce8b7bbcc0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c index f103de9159..a50254d4a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c index 78f9e80ed5..343135eeab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c index d6772ea019..1c128f8c7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c index e866451a57..c720f197a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c index d68989aa60..4fce77a668 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c index 25d075d46b..c3cc755b18 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c index 290ae0bd4c..8fba691d6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c index 7ee7dbc0b5..abd85b8ccf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c index 3ba0f3df2e..0e055c1c8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c index f3e3ea675a..12c356f285 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c index 13980e1091..39e2b921f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c index caaff5a986..904089295c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c index 76b3a85e5f..ea00282c15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c index f4ded1df1f..7d94a08951 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygst.c b/lapack-netlib/LAPACKE/src/lapacke_dsygst.c index 69b90e758f..128a9a2ac5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c index 434e8a8cca..e85b641f0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv.c index 4ece697946..c989bdac2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c index 0016a7d06c..4bcacd3063 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c index cc22255247..5f6b620230 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c index ee4efce60a..7ccefa4518 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c index 0db0cfa67a..d40c4a1c42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c index 9d551f87cf..d49ed790b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c index 54fa6ff367..9396d5a09c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c index b0829c9750..91a8d98224 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c index 78fce7766f..c63c9c5ce9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c index a5a7f1cfb4..573087b368 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c index 63d4c68fa7..b0590d60cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c index 6d4a3f92d7..1e2ba0e578 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv.c index ca8347f0ba..0ef7fbc6c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c index 114794b787..1197d03fb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c index 54a3788d74..95222b0e7b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c index d74e1ce42f..9e421361a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c index 6509a81007..8054b01288 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c index df34aba625..2a6303049a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c index e712f58634..f8e41d6ddf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c index 266cc53a85..843d10b9f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c index 4553e9dc63..9d6d10f028 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c index a06186b661..2b1f42f51b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c index e2853508f3..8695bd677b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c index ef8d27eaf8..625f7f31ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c index d4edaf4b48..81124a54c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c index b852f558a9..722d9dea1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c index 02fa6befe6..5da8ac7ffd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c index 1504803253..32d5c8682c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c index 40a704c88c..b4f09ea46e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c index 88c581619c..a501ec7fda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c index d6bcaa693e..1c452236f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c index 046621dabf..17eb31b80c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c index 82e733562f..ec153d176d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c index dbd6e90497..77a5940738 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c index e72bfa6de6..f479afc7e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c index a2d433c620..30639d47f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c index 0dc62630c4..74eeabbc33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c index 1971417419..5ef77738f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c index 6d853a60a2..53536523af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c index 6ba90fb9d3..b6788f76b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri.c index fcda55d035..2175cfaf54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c index 1c5662cda1..3ac3f73ad2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c index 1f7f9088f0..29881c0c26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c index bdf6395766..d322823883 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c index 2d24b8270b..ae6e70fda7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c index acf2c55422..d71e920c1b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c index 4d2c78b0c5..7c2e831630 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c index 6d2fda7f3e..c8749f9ccc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c index b2a0149cdd..34df6d777b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c index 46c90190f4..7b653b2ed1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c index c937c39c50..b1af18ea3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c index a701b9536c..34d32831d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c index ba92e4522c..cd8b79b94f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c index 2d3c5a371e..545d9efcd0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c index 49411d0fae..95e4f04ec9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c index 9d76d0a7c2..294e3f36dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c index 6b266e084f..d259690fce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c index 42002a5f6f..e086a46cd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c index 8270b74cf4..b3ffd24bd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c index 28682aa598..fe0125dcc8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c index fbcf42bd8f..e7effad595 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c index 9d5cedc81c..03043580f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c index 719e2385b0..69f074b2a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c index 84cb2be9e1..6eef42d0d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c index f868e18d9f..87b8d2d91b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c index 5d00dc636b..f5e5e313a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c b/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c index 4c9896beb8..7b655e6cb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c index eaa4cd892f..7d12cf890b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtftri.c b/lapack-netlib/LAPACKE/src/lapacke_dtftri.c index fbe7a9eecf..1db80b6e70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c index 5801448085..66150897c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c index 2b88229605..fafc376f3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c index 382f1129dd..a8cf680e80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c index 748b31f5d4..39333cceba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c index c36701cc3b..b12aae0b05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c b/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c index c595831007..f70abfb4bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c index ea2acc8f17..ef4a538455 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c b/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c index b5ceb6d6e0..6f09f9eb7c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c index d6719ee4ff..6756d5e60c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c index baa63abe7f..11496c1c0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c index c19f30c409..a8b68763e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c index 7cc8cf9509..7709fb954f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c index 5f407f3186..3a4bda6571 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c index 1dda79c765..e47100422b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c index f8f1aa9512..6b549d00ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c index feacd3b444..42ad6991c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c index 2cfd60be72..1f7b07e8dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c index 67cedacdef..28884fe767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c index 3693061b4f..6c87547941 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c index 0b00dccf4b..b78da024b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c index 91826ea9c0..d9ee6226be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c index 99b764c65e..992e179931 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c index 299089e625..d68e1102cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c index a696487f68..5a36c475b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c index c578fa5167..c522f3aa71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c index 11031b9bba..b854d5b88a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c index 2c3d64af1f..e4be902045 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c index 43a13215e6..d44d9d8d10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c index 028bf5f34c..26b001117c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptri.c b/lapack-netlib/LAPACKE/src/lapacke_dtptri.c index 4e84c57121..1a07325518 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c index 207a76b64d..ef158b4532 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c index 2b804b89ee..4187f2fa84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c index b20c039c59..f458e92441 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c index df2ae2c5de..f9484ef307 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c index 9251593c7b..9ad0c4c76c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c index 11194dfb6e..1359dee069 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c index 0adf200ec7..610cc58d6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c index 421d17d26e..b24705f367 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c index 9dde7de164..b77869b0d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c b/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c index a76e3b4af2..5e7e6c1305 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c index dfafeea8c3..924e4382ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c b/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c index 4808a75777..33c1632027 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c index 9b68fb5f65..2b2dc2586c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c index 9c651fe45a..ce32f82d9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c index 1e696cf1d4..9cbfe342e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c index 67932fd98d..255ea34ea6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c index b506d35adf..98ac743b9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c index b7e710e9b7..98ef3279d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c index 9b8511f10e..bb7723fa71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c index 3fe0813bf0..5652f28467 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c index caa804a065..f613312457 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c index cdb92a6380..a4cc52162d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c index 338dc1e18c..520b68c865 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c index ae75b02097..f035927b83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c index 3e4399ab87..41675e5053 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c index de379a970c..79deb02771 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c index ec0dea3282..7404ebe17a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c index d175934719..5f6ddbcdc5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c index 41c6788011..6a1fe6fae6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c index 60ed28e086..769c571390 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c index 2c99ce7302..e59826ec26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ilaver.c b/lapack-netlib/LAPACKE/src/lapacke_ilaver.c index 86e6e490fa..b37c5c8a22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ilaver.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ilaver.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_nancheck.c b/lapack-netlib/LAPACKE/src/lapacke_nancheck.c index c63e8e84b6..c7d5c33f1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_nancheck.c +++ b/lapack-netlib/LAPACKE/src/lapacke_nancheck.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native C interface to control NaN checking * Author: Intel Corporation -* Generated July, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c index 54bc045bed..cee19a9177 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c index 41312b9d91..9ffc3a0ddb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c index cd03182067..3f475b6d3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsdc * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c index 95c9e84499..b05587f2b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsdc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c index 8ff181ca39..060da17445 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c index 9113d4a105..9d3dfdb064 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c index 575c2b1598..c46fa3d556 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c index 69d970b7b7..bb7096788e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sdisna.c b/lapack-netlib/LAPACKE/src/lapacke_sdisna.c index 84b4914b2d..10552fd532 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sdisna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sdisna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sdisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c b/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c index 48a83930e2..e6bd6cb6c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sdisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c index 0963c774f3..97907b1140 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c index 0af6e72764..9b6640b354 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c index f5e251027f..e3038ccf88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c index fd657eb01f..6d42685b25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c index 4c02db84df..74ee036a14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c index 209ba44e9a..674a803eec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c index 2210e51388..e2d8eb803e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c index 0d15cd25a6..1fa181b44a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c index ce35b1318b..238fed38cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c index f962053550..1a386693df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c index 02f786bbf5..d2177f7663 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c index 82150afde4..a7db63e4b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c index c7375ec393..d8df16eb14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c index 891427e46b..2d41abf21d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c index 6b667d2402..95b3694a9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c index e985a55927..2613117905 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c index 3264a1d12b..e9d8a6251a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c index 7c95640f5b..9b62a21366 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c index 8752144a07..d6e3415218 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c index 06499ff94e..da489148cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c index ecaa459eaa..4e4bb284f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c index cde79430a7..d60177a177 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebak.c b/lapack-netlib/LAPACKE/src/lapacke_sgebak.c index d4c507ea08..14973b7a8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c index 1357dd3b9a..7bf021513a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebal.c b/lapack-netlib/LAPACKE/src/lapacke_sgebal.c index 10e3ff16b8..be92e0e2ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c index 4e0c578cff..ddb4309488 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c index 422bb5e9a0..9f31522417 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c index d4f1798798..323acc713f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgecon.c b/lapack-netlib/LAPACKE/src/lapacke_sgecon.c index 78426f9d06..81bada83e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c index 1894a195e4..77d3c04912 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c index 75095e9ad2..9395639c13 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c index c0658f7cc3..b501d6e73f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c index d98cce32d6..10fbf2a1c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c index 233d007556..118848ad81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgees.c b/lapack-netlib/LAPACKE/src/lapacke_sgees.c index f87005afc3..28bdcb1ff0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c index 46fd60d23e..afcd5c67e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c index 0bc14b33ef..f7be44297a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c index 03b2cbbd30..589a8a5b3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeev.c b/lapack-netlib/LAPACKE/src/lapacke_sgeev.c index fe79121f5b..d8fb0bb52d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c index 80bc9da37c..0f5a8e0048 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c index 732328fc09..89f955bf3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c index e549d8eea7..d05ea16e9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c index b073abbd73..838c7a5877 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c index 9502f4d1f4..127307da88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c index 0703e902f0..2138751b97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c index 559256276b..1c5ed064ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq.c index d0c14d4944..5228a80723 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c index 90da3a6c3e..9b4d8dafd1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c index e50a3553b0..8f7d4fb4f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c index 5770acd472..0cd356f4a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c index a017001ba3..cdbb47a98f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c index ea49714c2b..f93abf355d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgels.c b/lapack-netlib/LAPACKE/src/lapacke_sgels.c index f9cac6c5b2..9002b95514 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c index 8768753402..7ae2caa05b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c index 9d00ded100..7023c3467d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c index 276e07b0c0..edc7562d03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelss.c b/lapack-netlib/LAPACKE/src/lapacke_sgelss.c index 8b9eff3229..73f5809c11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c index ef66cbec3f..e747d58963 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c index 435b76ecb0..8785996ae4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c index 1d0fe7085b..a6c207398c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c index 708b04fde7..6677ae9703 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c index 9931ec1337..d63d4efe80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c index 1eb7b75bed..ceeac349a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c index d41b500c0f..d05c429763 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c index 0745bbfbaa..79685c8ccf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c index 07be64a1eb..a1aac6a5ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c index 2881981c30..3418461fe7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c index e300a1a621..7892dd23b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c index c35c4b898f..e9a2382392 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c index 4038a2cfc5..65281a3b19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c index 65a06a809f..4a70cee5c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c index 6ff9bc0a8a..3d52190193 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c index 5606f3ed7b..d3876420b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c index 5c044f56fb..5f125b1705 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c index ee2d513876..3ac4d12b3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c index 21c222a955..4951b90f48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c index 17929fc285..9f295d9bbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c index 5a1e592bef..5df36005b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c index 39901fdbe1..25a05f70bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c index 186062168c..ae8fe0586c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c index 04997cda53..d8f0c1d65e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c index a46d0d07fc..9f4910695b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c index 57c426050b..3c204620fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c index 7722d62839..32cce825be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c index c9b009aaa0..7950df25e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c index 0656c9e6ab..00ca6e5017 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c index 73c7a023e2..8cd3aaa83c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c index 6442f3f9d0..a9a462f76d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c index bf0bd74b1a..e6203ed511 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c index e42cc4c5d3..7e2148606b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c index c6de00616d..b82649a0a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c index f8fdf05601..a5cd487076 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c index 1c555411ef..bbefdad384 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c index 9286abb7ae..b6619e38bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesv.c b/lapack-netlib/LAPACKE/src/lapacke_sgesv.c index 0ef406ea84..1a905db17b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c index 3fb1a61373..62a3953346 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c index bf401ddb20..ffe88ff2af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c index 941d83cad6..c764333ed3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c index 5ff543d101..0b6406dec6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c index 9eab982c25..b65bd9abfb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c index e6d2a7ddad..432f56944d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c index 8f4739d56d..feed435e01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c index f1b48a02d1..ba61c166b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c index add5e60da4..50a03839dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c index 34203df723..0792ba73b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c index e5e9fdf845..74fa4a2f65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c index a064dd9d0d..418f450d30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c index 6ffa35e905..66ea83345b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c index dbfeb9fe9d..249aad026b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c index fd5a704f92..90e1a398c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c index 4b97ea1f78..992d0d44d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c index 81d487b328..f320b22dbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c index 8b557f18ee..502ab66767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c index 51a4865f21..6d24244390 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetri.c b/lapack-netlib/LAPACKE/src/lapacke_sgetri.c index d62221d549..128bf92a27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c index 7466525ca2..b1f1d18cba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c index bedd4653a0..20595db6d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c index 68d2747885..0917f344d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c index 4ee7eeed5f..72be1c7ee6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c index 6f36379ca3..49a79fd757 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbak.c b/lapack-netlib/LAPACKE/src/lapacke_sggbak.c index b58171289c..ecc079c60e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c index d510abbe43..9b53851047 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbal.c b/lapack-netlib/LAPACKE/src/lapacke_sggbal.c index 74cd85cf5f..6f82a94154 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c index a33622a7bb..e425e95b29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges.c b/lapack-netlib/LAPACKE/src/lapacke_sgges.c index d2e32408b9..478df5000d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges3.c b/lapack-netlib/LAPACKE/src/lapacke_sgges3.c index e02a302dc5..24450034c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c index deb6de7e63..a06adc087b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c index 232cdf00d8..a3b09de300 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggesx.c b/lapack-netlib/LAPACKE/src/lapacke_sggesx.c index d552a20102..4caf461e9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c index dd1988b5ff..d3927e525d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev.c b/lapack-netlib/LAPACKE/src/lapacke_sggev.c index aaec6c5122..c7ed5d569f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev3.c b/lapack-netlib/LAPACKE/src/lapacke_sggev3.c index b6a16d9137..1ac2a364bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c index 08ce681b34..aa61dabd94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c index eb424ccc97..6417694408 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggevx.c b/lapack-netlib/LAPACKE/src/lapacke_sggevx.c index 0e028547dc..f40f7e3409 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c index bcbc3e584b..054509abee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggglm.c b/lapack-netlib/LAPACKE/src/lapacke_sggglm.c index 418dae1bf9..073ed25d1b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c index 97223e9cdf..17342e32ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c index ffc7d9cae3..96e8252f0e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c index 46de096399..7edaa7f224 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c index e438c01a24..7f09e4e6e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c index 4179b168d8..d770b5d6fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgglse.c b/lapack-netlib/LAPACKE/src/lapacke_sgglse.c index 8c10eda9c0..df26412536 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c index c11f16ba94..ed7322af93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c index 6f1c73f604..1a0136379d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c index 151fc9eeb3..d15cee195f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c index 9d5799df12..b3a20202ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c index ec89b29e8c..d151c93db7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c index fed6d3d04b..e416c85394 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c index 7b209e497b..e602ed1b91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c index 8964773d4b..aec1f1eac5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c index 4dc19f1d72..b5805bb4d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c index ad656a0637..a5607a139f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c index 16417fbf7f..475b57dd67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c index 905b82447e..97707ede1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c index 262cabd6a5..1fcde307bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c index 013f8a66c0..d851cc857b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c index 97fab5a84d..157aec3db4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c index 9d27c8f070..13bcc61e85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c index 40b3d8267e..ced9f2c67b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c index af692c52f3..41a4408896 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c index 24026cc448..b2f8473e72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c index 76239c211a..2050b62923 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c index 4a1d0e3d1c..acc72ef82c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c index 5814d9dc2e..17aa36e9ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c index 4e70f3fdfa..0e9e573f5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c index de60a20ee4..1f7eff2572 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c index a85a704a94..4a77cf59ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c index 164af10be6..4dbc1034e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c index 6f00690c62..a0f67bc245 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shsein.c b/lapack-netlib/LAPACKE/src/lapacke_shsein.c index f5ea56d47e..6b4fd25718 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c index 59e96962cc..80db160dfd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shseqr.c b/lapack-netlib/LAPACKE/src/lapacke_shseqr.c index a6ab57881f..45c1b19073 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c index 74b6f8dc0b..8e964b2732 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacn2.c b/lapack-netlib/LAPACKE/src/lapacke_slacn2.c index 4d1df9e4c1..3eb1db5b1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function slacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c index 7908d41c68..aa341d7996 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function slacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacpy.c b/lapack-netlib/LAPACKE/src/lapacke_slacpy.c index 83ba93be57..7f6b2e8433 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c index cdec2c9678..5f960a2922 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slag2d.c b/lapack-netlib/LAPACKE/src/lapacke_slag2d.c index 76485c1069..28f7ae7e06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slag2d.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slag2d.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slag2d * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c b/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c index d71c1bd8a3..374df20ed4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slag2d * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagge.c b/lapack-netlib/LAPACKE/src/lapacke_slagge.c index 050f6cbe97..315b4a4ec6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c index aa055e4f2a..45c4324537 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagsy.c b/lapack-netlib/LAPACKE/src/lapacke_slagsy.c index d21051038b..d2487a7dac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c index 3bcf659aef..6b2c588b33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slamch.c b/lapack-netlib/LAPACKE/src/lapacke_slamch.c index 0f25b2a414..893525538a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slamch.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slamch.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slamch * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c b/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c index 3ba6bc21ae..fd115842ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slamch * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slange.c b/lapack-netlib/LAPACKE/src/lapacke_slange.c index f5f8272f32..2c4f2dbb80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slange_work.c b/lapack-netlib/LAPACKE/src/lapacke_slange_work.c index 6a5dfacfe4..6be0468e8e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slansy.c b/lapack-netlib/LAPACKE/src/lapacke_slansy.c index bbe3688a4d..4e5047cef6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c index 3c0909ab96..f74856dcb4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slantr.c b/lapack-netlib/LAPACKE/src/lapacke_slantr.c index 9e67fcc40d..2f4c65889a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c index f77abef2ca..de82479615 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmr.c b/lapack-netlib/LAPACKE/src/lapacke_slapmr.c index 139703cb6e..6fbbae3c92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c index 46a4136740..0b0cc7995e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmt.c b/lapack-netlib/LAPACKE/src/lapacke_slapmt.c index 55d2f4730a..99358f0b23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c index 34a0816718..c812b7b524 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy2.c b/lapack-netlib/LAPACKE/src/lapacke_slapy2.c index 54e3d3ed82..2c041def9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c index 00507b39c7..2f206958a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy3.c b/lapack-netlib/LAPACKE/src/lapacke_slapy3.c index 4fb4d097d5..3aaadc89ca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c index 381c579bd2..c0351a051b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfb.c b/lapack-netlib/LAPACKE/src/lapacke_slarfb.c index 0ebdc931ad..37d51dee58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c index 104bbd5aa2..2f5d616767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfg.c b/lapack-netlib/LAPACKE/src/lapacke_slarfg.c index ea9a835754..56ed416ab8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c index 2fd23bf60c..f824c29e77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarft.c b/lapack-netlib/LAPACKE/src/lapacke_slarft.c index ae8b3a9665..d9d1df3360 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c index 46b405eef8..1efb6afd9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfx.c b/lapack-netlib/LAPACKE/src/lapacke_slarfx.c index c2b797a98c..d5d61fda5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c index 830ae42b53..cc566a3aea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarnv.c b/lapack-netlib/LAPACKE/src/lapacke_slarnv.c index aff176dc85..f86bd220c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c index 38362b0246..0024f7ddd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgp.c b/lapack-netlib/LAPACKE/src/lapacke_slartgp.c index 88cda13729..5e12e3f20b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c b/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c index 26f05aad89..64d2be328b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgs.c b/lapack-netlib/LAPACKE/src/lapacke_slartgs.c index 566f474b22..fc56cc442e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c b/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c index a7ac3cfcf0..4dc3142c8c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slascl.c b/lapack-netlib/LAPACKE/src/lapacke_slascl.c index 62f7390ed7..969ba1dd7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c index dac2a03f21..ee373c6832 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaset.c b/lapack-netlib/LAPACKE/src/lapacke_slaset.c index 793cb51711..031565bf5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c index 4f2fa7b677..38a66a14d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slasrt.c b/lapack-netlib/LAPACKE/src/lapacke_slasrt.c index 5a950d3618..78a7509a26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slasrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slasrt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c index e9384c0554..eff9b6a519 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slassq.c b/lapack-netlib/LAPACKE/src/lapacke_slassq.c index 3e265e3591..81330d63e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c index 00688c9e4d..f206ef4a01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaswp.c b/lapack-netlib/LAPACKE/src/lapacke_slaswp.c index a46e7ba9b7..d71a2dfbf0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c index fa920df5ec..32f5c8a4f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slatms.c b/lapack-netlib/LAPACKE/src/lapacke_slatms.c index ac01ebc1d9..75a9198169 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c index e66ac83299..8a66b8525f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slauum.c b/lapack-netlib/LAPACKE/src/lapacke_slauum.c index d31a9b9744..841e6c05fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c index 0dc66de2d9..54dae6492c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c b/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c index cf3ae2093b..28a2d19585 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c index 7f1b014822..c85d8827f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c b/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c index bf8eed4f9e..b7a5517578 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c index 318037ce63..5b7db0c71e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c b/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c index d1fdab0049..7f652c2c2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c index 6039057061..9ca4e0b592 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c index 06fa61ae19..90e94ba94b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c index 1b79ba1090..c1af8e874b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorcsd2by1 * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c index d361594c13..d9d70ec43d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorcsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c index b83bb5378b..31c957e841 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c index eb90d5e9ec..8cb51dbe11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c index 8aa85e1a71..2788efe69d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorghr.c b/lapack-netlib/LAPACKE/src/lapacke_sorghr.c index b34a14c55d..c1a267ee35 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c index 753a7b77fa..949f28bb2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorglq.c b/lapack-netlib/LAPACKE/src/lapacke_sorglq.c index eaa1ca8009..e902c2b74a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c index c4dbc2ea2a..bb8045093a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgql.c b/lapack-netlib/LAPACKE/src/lapacke_sorgql.c index 7791f107f8..f8855ed904 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c index f1577385fc..7f7fddcdb9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c index 99468f317d..1e6688c344 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c index 910361cafa..4407ec8877 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c b/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c index 7a81cd9c50..51cabe03a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c index bc53342b96..290a50f84e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c index 804b7f8ef4..c79b66fe47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c index 7f32816b03..0a93eefa9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormbr.c b/lapack-netlib/LAPACKE/src/lapacke_sormbr.c index 2efbbce442..cac61a6d5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormbr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c index 5d0f871b48..9d78a45800 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormhr.c b/lapack-netlib/LAPACKE/src/lapacke_sormhr.c index fba215a190..99c635dc2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c index bc2439488e..754aa7bb8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormlq.c b/lapack-netlib/LAPACKE/src/lapacke_sormlq.c index 4f8947af77..1eac482a2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c index 0897332985..9058f5bb63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormql.c b/lapack-netlib/LAPACKE/src/lapacke_sormql.c index e074cf819f..bbc7634eb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c index 938c898876..1f399c755b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormqr.c b/lapack-netlib/LAPACKE/src/lapacke_sormqr.c index 92714ea219..9fd7b2a149 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c index 8298b5df71..1cb7875812 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrq.c b/lapack-netlib/LAPACKE/src/lapacke_sormrq.c index c884d81125..5570c0bb0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c index 414c62fa4a..d773f32b08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrz.c b/lapack-netlib/LAPACKE/src/lapacke_sormrz.c index 499bc0b1de..d6f7f0182d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c index d3b67ecee6..885138a448 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormtr.c b/lapack-netlib/LAPACKE/src/lapacke_sormtr.c index 6ffe144cc4..171cc4fc3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c index 0975184216..ba82ebdaf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbcon.c b/lapack-netlib/LAPACKE/src/lapacke_spbcon.c index 51610e67bd..aff83c5225 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c index 5ad05cd2d5..7db74b4761 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbequ.c b/lapack-netlib/LAPACKE/src/lapacke_spbequ.c index d07d1aece5..bffea674dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c index 147e1c6685..8e1e2baf2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c index be7f3ba982..894b6be8ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c index 345e631e5b..7450f3f9a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbstf.c b/lapack-netlib/LAPACKE/src/lapacke_spbstf.c index 0d5a9b21e1..46e795d5c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c index 2e28083fb7..10824426bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsv.c b/lapack-netlib/LAPACKE/src/lapacke_spbsv.c index ef810c632d..4a340fc23d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c index 7dc810da3b..458b8b6901 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c index 1ffacd4f83..5e46948f3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c index 2ae8c2a7b9..0b55b47e86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c index 5612caee03..0131141de4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c index 5a02bafcb7..69262fd3dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c index 8601cfdbf2..e2c837409a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c index acc83afabc..89fd0244bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrf.c b/lapack-netlib/LAPACKE/src/lapacke_spftrf.c index ac85d6ca45..4c1a3ffcbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c index cbb5566461..e2cf1fc745 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftri.c b/lapack-netlib/LAPACKE/src/lapacke_spftri.c index 7a5d1ef697..83a3c7516d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c index 62805b25e9..887fccac45 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrs.c b/lapack-netlib/LAPACKE/src/lapacke_spftrs.c index badacf6491..c8b7d034e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c index e62467035e..e2e7a9b805 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spocon.c b/lapack-netlib/LAPACKE/src/lapacke_spocon.c index fb71555586..1f2971ca4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c index 147ff4471d..d1292ee916 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequ.c b/lapack-netlib/LAPACKE/src/lapacke_spoequ.c index 320e208d33..cf8b078e5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c index a303c43a99..774da39c49 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequb.c b/lapack-netlib/LAPACKE/src/lapacke_spoequb.c index aecfceebfa..973112f2c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c index 5f6e121192..5f5f974777 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfs.c b/lapack-netlib/LAPACKE/src/lapacke_sporfs.c index 01a4e951f5..e21e075b90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c index 475a9606ec..cd848e5032 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c index 918333b58c..10f6c58694 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c index 00b157a69a..3a31356b26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposv.c b/lapack-netlib/LAPACKE/src/lapacke_sposv.c index a06c92f3ef..6a3095d0c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c index a3dd46a844..bba55897cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvx.c b/lapack-netlib/LAPACKE/src/lapacke_sposvx.c index a8fdab51bf..f06b9dc111 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c index 7146ae7a07..a8911e5c93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c index 0e3160c15d..d2d0f72f93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c index f2fff6e540..cb31c80a2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf.c index 2da01cc803..7f3f330e46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c index 1a262a34d9..b3de0d934c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c index 07cbf31ca5..12ed95650d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c index f28dfd1f59..82c8431adc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotri.c b/lapack-netlib/LAPACKE/src/lapacke_spotri.c index 8eddb7d122..5f4779d976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c index b1bd3d242f..a8d98c2d9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrs.c b/lapack-netlib/LAPACKE/src/lapacke_spotrs.c index 7cabc16c19..739a125ea2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c index 977e1d46e9..e5cd7c59da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppcon.c b/lapack-netlib/LAPACKE/src/lapacke_sppcon.c index cf4dc26d19..0e1c9eb9d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c index b8ce696a23..1e4fee4f43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppequ.c b/lapack-netlib/LAPACKE/src/lapacke_sppequ.c index 606072a241..de1d0d5ece 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c index 2e2816603b..e3e8fdb910 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spprfs.c b/lapack-netlib/LAPACKE/src/lapacke_spprfs.c index 792c0e47dc..1d73b91f3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c index 02601e586f..aae87cd529 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsv.c b/lapack-netlib/LAPACKE/src/lapacke_sppsv.c index cdfe486a87..b8c00b9a41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c index d8fc1833b2..1a6946a343 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c index 1e626e2b3a..961ad403c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c index 755fb8bf4f..f08b24c80f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrf.c b/lapack-netlib/LAPACKE/src/lapacke_spptrf.c index f3297c720e..32ab5636f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c index 4ae8417460..ca3ec43d93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptri.c b/lapack-netlib/LAPACKE/src/lapacke_spptri.c index e1a6b41135..85c2643aee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c index 2163892340..f67d66f6bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrs.c b/lapack-netlib/LAPACKE/src/lapacke_spptrs.c index 9322f3cd64..73c0de30d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c index 73f48fc2cd..edb150c0ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spstrf.c b/lapack-netlib/LAPACKE/src/lapacke_spstrf.c index 0c32e8c046..24b6805ea0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c index 1971732cfa..4a55dab52f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptcon.c b/lapack-netlib/LAPACKE/src/lapacke_sptcon.c index 0eb14b3a6f..03ab09a23d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c index c1da2df550..4e8397ea2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spteqr.c b/lapack-netlib/LAPACKE/src/lapacke_spteqr.c index c0ff15efe8..74ac93135b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c index bf3bd763ef..72e80fe0f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c index 44d3763018..d6c1b98f42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c index dee2422441..c193372898 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsv.c b/lapack-netlib/LAPACKE/src/lapacke_sptsv.c index 8955ede240..870ff602fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c index ddfd371566..ea9841ee43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c index 467cc9b101..4462d525fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c index f8bb61b567..d9e12de176 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrf.c b/lapack-netlib/LAPACKE/src/lapacke_spttrf.c index 38c60362ac..3d1e10a9e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c index 1f511da728..4f6ad23556 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrs.c b/lapack-netlib/LAPACKE/src/lapacke_spttrs.c index 25f4bca7c7..20203589b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c index fe3d4eeddb..785a757469 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev.c index be2021bf3a..1d65b0c3c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c index 266e1bd41a..91923a9461 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c index 620fa513f4..3f5d5b9520 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c index b451c0d671..e0dfb2938f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c index b41e5b1567..6630b58c50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c index a76d92c712..a4770d4797 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c index d3f2f71b3f..2087708e11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c index 1a73ce50bf..e56be4b281 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c index b891d580a0..01f3f8f06a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c index 6f1e1c4046..77ed44004a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c index 2b470956f6..36a33fda73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c index 9952b2fc15..5640400624 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c index 4066114afb..42b89a3bf7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c index 7bec29bfcb..5346796fb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c index 6c8ca1b76e..22572a28e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c index 6627510662..60e3df8104 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c index b40ccb9e5d..794e72b613 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c index 21e9fab96f..78b3d4921c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c index 3d0a0a489c..49d62d84f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c index 065e1855f9..36d08e6ed2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c index 453ccf5593..0d34aee227 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c index 88f8b55696..f1d9fda1e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c b/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c index 88aa956cbe..d82bc3e22a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c index 45731fa8df..bf156359ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspcon.c b/lapack-netlib/LAPACKE/src/lapacke_sspcon.c index d99ff688a9..73bbdfb384 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c index 60586ab0d3..d0010f059f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspev.c b/lapack-netlib/LAPACKE/src/lapacke_sspev.c index df867c2abb..5ef49226f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c index f7c11f72be..ee8ab7898c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevd.c b/lapack-netlib/LAPACKE/src/lapacke_sspevd.c index 9b518751bb..8a7e629126 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c index 6376fb3f81..a49a339fe3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevx.c b/lapack-netlib/LAPACKE/src/lapacke_sspevx.c index d9ac9c3aa5..ba16ed8ebc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c index 716e9430d0..2c02e8ebb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgst.c b/lapack-netlib/LAPACKE/src/lapacke_sspgst.c index 45e4c27157..834abeb61a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c index 70e6534c16..98d55b3a90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgv.c b/lapack-netlib/LAPACKE/src/lapacke_sspgv.c index 6b60a8f341..2cbd2b4215 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c index 5c8192fbe4..ae9c2ff61a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c index e80e246473..df2ddfa5d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c index b82a2a45b1..572016567a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c index 4246e895db..44bcb23997 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c index 1676eb15a1..d53877948d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c index 4c652dab23..bb61bf77d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c index 0808fa1cc3..f07a0848d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsv.c b/lapack-netlib/LAPACKE/src/lapacke_sspsv.c index e8272e3f45..667eadf934 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c index 564194d3d7..acba6a5393 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c index fa759e45d9..e89032b297 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c index 83ebce8cc1..f4c2f5f38d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c index ea35b76e0f..e62b6aae9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c index 6efa04ee50..a33db9917a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c index e50114d3cb..7b5d655bc0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c index 4227af3649..7d4135f6a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptri.c b/lapack-netlib/LAPACKE/src/lapacke_ssptri.c index de9815fdf5..7c1ead66a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c index 933e90df45..e8caef5f8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c index 53d855fa5a..8a306e74e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c index d762c539d4..4987103173 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstebz.c b/lapack-netlib/LAPACKE/src/lapacke_sstebz.c index 763a803956..ffd4216d25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstebz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstebz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c index c1aa94ceea..e625b551bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstedc.c b/lapack-netlib/LAPACKE/src/lapacke_sstedc.c index f902e8c30c..b30f851502 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c index 0f4945b92f..775dd89c51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstegr.c b/lapack-netlib/LAPACKE/src/lapacke_sstegr.c index c02372ba2d..6711f9258d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c index 81ca1d0452..99060cc9f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstein.c b/lapack-netlib/LAPACKE/src/lapacke_sstein.c index 31a0213741..cb6412a11a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c index 0968835091..29c227b5f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstemr.c b/lapack-netlib/LAPACKE/src/lapacke_sstemr.c index 65dcc91705..594d5944b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c index d0c8ce42e3..09ed54b3e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c b/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c index 714ff20753..1ce7476c18 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c index 0296eb4659..a76e306704 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssterf.c b/lapack-netlib/LAPACKE/src/lapacke_ssterf.c index 61754c800e..a59d7fdb04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssterf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssterf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c index 7e22c2fbc0..f636a9c8e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstev.c b/lapack-netlib/LAPACKE/src/lapacke_sstev.c index 0227c09e47..743793c0d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstev * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c index 61f3f3fcf7..373d2b2217 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevd.c b/lapack-netlib/LAPACKE/src/lapacke_sstevd.c index c5db5d79d6..8a47bb6b2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c index aee15eda55..41900bad9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevr.c b/lapack-netlib/LAPACKE/src/lapacke_sstevr.c index 4043e30908..9908a60b6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c index 35c8a7c998..5ea804af06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevx.c b/lapack-netlib/LAPACKE/src/lapacke_sstevx.c index cb7fbec3a1..8e27018c90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c index f8712ba481..fa45159762 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon.c index 2a2e7a9234..0cb6e2ae79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c index b8775db66c..7870924e78 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c index 7f76acaec6..db0a7df25f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c index fa23f2cb92..afe14b5f77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c b/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c index ac41a354de..9b0ebbddc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c index 2ffaf8deed..668775f743 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c b/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c index b4dd5b0abd..7784923ad5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c index a52519ba71..3979d6f79e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev.c index 81b65db02b..0bf5cf8311 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c index d57a7c2ebc..cc4ecc04ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c index 277e66669a..7c46efc8f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c index 1889a337c9..259fd90d2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c index f5924bd94f..317cd0cd0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c index 40ef1bcc26..c723dd1261 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c index faadc92f15..6604d2a5f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c index 434b52c018..85679e6e46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c index 3274f6baba..efbbaa73ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c index 8958be31dc..c7f17378de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c index ec6b5ca7a9..cbb62d1954 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c index 26e8cd48d0..c6e0e3a2e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c index 43be722b4e..5b949d2c53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c index 42559e35fd..2c5f4c7f37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c index 8529a83a2b..3b8b08f436 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c index d4d0b80016..45beee937a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygst.c b/lapack-netlib/LAPACKE/src/lapacke_ssygst.c index 4fb55960c1..267ca34b0e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c index 268da2c538..356079da46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv.c index f139de1ab3..367c50c943 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c index 195fb1e542..257aa83b6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c index 802cd4d205..d2bd07ac74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c index 6f9f4bbf42..d5873d5bc5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c index e33ce2a7b4..4fd120abdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c index 2d23eef2b3..1cd9a3aa41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c index 8ffd9dc407..9e8b63355d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c index 6306bd2cd2..d17dd8da23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c index f65daa951c..0fab0a7342 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c index 39343499fc..247b717a61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c index cccc996396..10b855e5ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c index e50a578e6c..17dda3f41f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv.c index 579d98d620..44c714e63d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c index 2777e18388..ab03c3bc6f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c index ce50a89f4c..3f9d8963bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c index d21dbb0481..661bc80e54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c index c4db610bbd..63aba3a6eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c index afb9869fc3..2e8669c4ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c index a6180501d4..a38699a40a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c index 2c6fee6b91..361643d17e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c index 4a9c1ead9e..c4b3984799 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c index e787a1d684..28e164f5bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c index 97410885c8..3ffc65b367 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c index 42796a5e1f..b35ce341ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c index 860773db35..3553e6073d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c index b4b928a8ba..94a032d59a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c index 733db5a2d1..151f10ffb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c index b376abd65e..d12ca5fc15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c index 4dee60728f..fa14112b74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c index f2e0b51b75..19bfb2a684 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c index cf25c57c3f..d5664ae127 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c index 6689e7e854..3f5cf78dbf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c index 6285f2d9dc..8d3fba851e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c index 5ffe8154b6..ba697fab50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c index 182946a452..5931efb01b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c index 993750fa4a..060c680120 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c index 930baa765a..07531d6ba4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c index 468dc43b6a..67ef606846 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c index 2316eec8da..aaa0c6057c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c index 4a5dbfabf4..0b78eaab3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri.c index eb68f72d7c..ac8ad22528 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c index 4159115c0f..de321708c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c index 8a9c72951e..0f9f73d52a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c index 34c989a4ad..4702880f90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c index 7e83e22b99..33174aaa00 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c index f2a183527b..79dd0157d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c index ee7cc4bce3..c60c613e3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c index 3f13041eee..5cee20b5ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c index 9919d6a4e9..8b84eccf41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c index a95a71469d..97325966d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c index cf98f443d1..e8b50cf26d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c index 44e713b723..d0fd17a3cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c index db09e97f9c..ad5dac9e6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c index 9eb20d2ea6..665e9ed988 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c index c67ad2d50e..d03def93ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c index 95def2929a..a2644029c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c index f478880321..7bfd6086aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c index fa8238222a..bba3d2352e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c index 6b181a4d21..93d03e819c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c index dae4dd66a6..f98aa4ae6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbcon.c b/lapack-netlib/LAPACKE/src/lapacke_stbcon.c index 9230171f99..8c27b4b4aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c index 0b7040207c..d3ac7c80b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c index 6f4de24291..860e66c5d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c index c1440d1431..39d19f9e6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c index a99c37ad3d..3421eae3bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c index 662421f15e..46ac0b0fcb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfsm.c b/lapack-netlib/LAPACKE/src/lapacke_stfsm.c index bf04a277bf..7f8a38da3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c index a928d2cb88..e6b14c960a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stftri.c b/lapack-netlib/LAPACKE/src/lapacke_stftri.c index bd62569783..33538a93b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c index 671ce91fff..5efc8b2878 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttp.c b/lapack-netlib/LAPACKE/src/lapacke_stfttp.c index b5cf832a0e..902b6dce01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c index 10de22cfaf..805fd07f19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttr.c b/lapack-netlib/LAPACKE/src/lapacke_stfttr.c index 5099e7e961..6a418f0fc8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c index 5f7f62ed9a..a9fb091547 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgevc.c b/lapack-netlib/LAPACKE/src/lapacke_stgevc.c index e95a37e860..3e6fe851f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c index b8fc488220..fd9f6ca029 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgexc.c b/lapack-netlib/LAPACKE/src/lapacke_stgexc.c index 7d9e21e62b..5b0fc4700f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c index 969fcd38ae..aea9cbd29e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsen.c b/lapack-netlib/LAPACKE/src/lapacke_stgsen.c index d0250eb637..c3b0c4bf82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c index 92ea00c812..0d7eacb31a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsja.c b/lapack-netlib/LAPACKE/src/lapacke_stgsja.c index 2b239c7586..24e5bcefa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c index 7e1c92050b..1cc98ce686 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsna.c b/lapack-netlib/LAPACKE/src/lapacke_stgsna.c index 074424732d..e8c6113188 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c index 7a6b9bb358..d10868305d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c index 3c6b859cc1..b7efeafb83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c index 97d7a19435..8b7ab8ae07 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpcon.c b/lapack-netlib/LAPACKE/src/lapacke_stpcon.c index 661269de59..04583cd185 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c index 1cf2815089..ef5c3fa840 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c index b863b79a96..be7c117b08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c index 6a68b82d98..095fbdcd9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c index 1438ea29d0..9df06332c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c index 923258621d..fc539ab4a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c index d62b19c47c..7e8200e0dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c index 6435319145..9477607e36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfb.c b/lapack-netlib/LAPACKE/src/lapacke_stprfb.c index 2ea20f08dc..1146e40dcd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c index dd1d9c2ba1..06f9faa7c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfs.c b/lapack-netlib/LAPACKE/src/lapacke_stprfs.c index 299e051202..10f80b08bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c index 2b8333a364..fa8bb72b74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptri.c b/lapack-netlib/LAPACKE/src/lapacke_stptri.c index edd25bd748..052da0ec81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c index 85df20717c..6d2e43d003 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptrs.c b/lapack-netlib/LAPACKE/src/lapacke_stptrs.c index fc24e5f169..98a7e825b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c index c1dcf4abfe..46d74aa849 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttf.c b/lapack-netlib/LAPACKE/src/lapacke_stpttf.c index 5c7746e61b..dd3ecc8828 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c index 0f1823f0b7..d534e65e58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttr.c b/lapack-netlib/LAPACKE/src/lapacke_stpttr.c index 9e1340c16b..f65504442b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c index 5bb73bde9a..0604a21bd2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strcon.c b/lapack-netlib/LAPACKE/src/lapacke_strcon.c index 39efd559ce..a64ae67615 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c index c65b10d486..6b0c779b21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strevc.c b/lapack-netlib/LAPACKE/src/lapacke_strevc.c index 2c983f6c36..4e9db85409 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c index 94b5e312f0..e98496f874 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strexc.c b/lapack-netlib/LAPACKE/src/lapacke_strexc.c index b7976b66eb..62e285e265 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c index 40a6c5d050..cbbed9d8ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strrfs.c b/lapack-netlib/LAPACKE/src/lapacke_strrfs.c index 9a1156c6f9..3370c20b3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c index 9b0b0d21b2..59305a96d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsen.c b/lapack-netlib/LAPACKE/src/lapacke_strsen.c index 0ec3ee9078..c9a5b845cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c index aa02adb446..6e0a48346c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsna.c b/lapack-netlib/LAPACKE/src/lapacke_strsna.c index 9d130efca2..463a598d4b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c index 8c09b2cf12..02c439405f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsyl.c b/lapack-netlib/LAPACKE/src/lapacke_strsyl.c index df618cd734..8bc1ea44f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c index 3fdec2e853..5f545df373 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtri.c b/lapack-netlib/LAPACKE/src/lapacke_strtri.c index 2888624aa0..4502bb515a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c index f8cb2499cf..237bf2101f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtrs.c b/lapack-netlib/LAPACKE/src/lapacke_strtrs.c index b4c0aaeae9..eeb1e3fb17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c index e814653af5..fc02026c09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttf.c b/lapack-netlib/LAPACKE/src/lapacke_strttf.c index e3304fbe7c..96b2d33855 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c index 235fa53bed..cc00af6fa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttp.c b/lapack-netlib/LAPACKE/src/lapacke_strttp.c index 2df79eb050..6b5e5f00c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c index 4f33dc5f5e..ca62cbf801 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c index 0243179e6d..b7fe7ce85e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c index 9b4a5a4854..bbe3cb6e82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c index e0d0e224aa..6eda685f08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c index 96b8b97e30..05d405ed4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c index c12ef3eae2..cc71ad977b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c index 874fca317f..b54ccff929 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c b/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c index f161b185c0..600f1d6175 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zcgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c index 207f7c68c2..88ea127e6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zcgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcposv.c b/lapack-netlib/LAPACKE/src/lapacke_zcposv.c index 1c54c391f4..c5638dbc24 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zcposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c index 2c75bb4eea..d6258ea5d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zcposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c index 63c9a756fa..08ac86243a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c index deac298564..693cad63c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c index 6ce309d7da..a3c1b267dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c index d7a44540b6..bcac6fed9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c index 33781a10a8..805ced166f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c index 08dcd685b5..2e61d352d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c index 96038277e3..3bf1be924d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c index cc6e21b158..e1a37683ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c index 2bf3fa3771..a4a4f33f21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c index 6f27258a38..28300861c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c index 6d269de430..d08ec77a28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c index f367007c56..285f4a9b33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c index 17aa1d37f5..118473fd08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c index 50fd116697..56bc1bb4b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c index 954245ecd2..3b593d4792 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c index bb0654dd70..fe7183c969 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c index 4d5f86b9e0..de4a260e6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c index b240b2abd4..8fec5ecb80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c index 34e84f25ae..c325dad976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c index 0eccd0c0d0..b0afaf92e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c index 7192fd2344..cac06b206a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c index cc9cfd2483..e4e9faf1f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebak.c b/lapack-netlib/LAPACKE/src/lapacke_zgebak.c index 69e5c50852..cd71fb0900 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c index a5e8a9cf82..724ae20f23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebal.c b/lapack-netlib/LAPACKE/src/lapacke_zgebal.c index 25e0c01cc5..5ccb858bc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c index c3e0f83aea..0cdc764bea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c index cb3409aca5..30fc46a436 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c index df06e43e2e..8f30dcba74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgecon.c b/lapack-netlib/LAPACKE/src/lapacke_zgecon.c index ee0f9c9fb2..ca59138aa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c index d0bb07fc76..b18dbf1845 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c index 43b5c2f9fd..297a76e1da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c index 7633b8bda3..019fcac8f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c index a97aa2d16a..c565da024a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c index a9299f1eba..c28a31f925 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgees.c b/lapack-netlib/LAPACKE/src/lapacke_zgees.c index 66ba8e35db..b3ccd2ede5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c index 41db66fdc5..05685823de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c index f1792a6aba..c3756d90e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c index 5ad7779cf6..b338f0f29e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeev.c b/lapack-netlib/LAPACKE/src/lapacke_zgeev.c index 6d4fe9396c..4ab99c3b7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c index 546f9790dd..9393f825a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c index e10df52a93..25d2e735d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c index e8dd9c26a3..e34112c09f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c index 92263cfde3..82399abede 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c index 6c7fb5f3d2..c79ce4dba2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c index 153efb3716..ccada9404e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c index 83e0d647d4..51d51023b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq.c index e0206b23db..c5c2fa7195 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c index 772db3c7fe..56cbec346e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c index 4bc97653c5..3146803c95 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c index 9f503c0f47..c395bc4138 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c index 664cb48944..d14cb5f3e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c index f81c33d8b6..ba4ccc273e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgels.c b/lapack-netlib/LAPACKE/src/lapacke_zgels.c index 79e275a371..8b72315411 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c index 1e8fd5d6b4..b7b434d7e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c index eca1450909..5635f8e6b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c index ee8d129241..09004cc723 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelss.c b/lapack-netlib/LAPACKE/src/lapacke_zgelss.c index 4ef86b39f0..c3a70e664c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c index 65cc434fc5..92c5b8cccc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c index bac6ab6f50..e340d6d16d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c index 8c249b0a53..03ee8d0d50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c index 946e2b5f3e..8825594a2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c index d10e730609..50261f10a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c index f5daf4afe3..c793ef34b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c index f17fa84eba..88d06c2846 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c index 222422f185..65b4684050 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c index 535b07788e..734889efb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c index b887f1d3aa..499270f629 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c index 54966b47fc..fe10813a34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c index bd20b8b081..2aafafc869 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c index 765668648c..76d437f871 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c index 2b9cecf7f6..c5be1df529 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c index 1e95b67ef5..489805d388 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c index 3e567f553f..78eca38e3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c index 8c33e0cc33..eaa6adb093 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c index 17d6a45d4e..7a428b49f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c index 304738b486..9a2ff6d4bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c index 10db33ab64..71b6341198 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c index 936fb6fb65..a13b9ecd6f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c index 62e5787156..d1e64a3dfd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c index d7c1de3988..919e3a0cb7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c index 5774d4b193..0612daee58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c index b31237c6ae..5209a41001 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c index b733ee71b8..90f17f276d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c index 51f0558bf1..97a6ae71c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c index 0c33a24f6e..048ec92d23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c index 43b05073db..8f6f1ed0ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c index 2ee8f70e68..47e38aeeeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c index e0ddb5b018..b1804ddbf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c index a993ab83db..de15f8d2bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c index f981b050eb..a56a5ae623 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c index f77de8b161..e9629bb958 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c index e17118b8e0..8a375832b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c index 016ec4f683..1f465001ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesdd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c index 00cbe65f1e..fc07fe9cbf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesv.c b/lapack-netlib/LAPACKE/src/lapacke_zgesv.c index 23015ccc6b..abb2881438 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c index 04d97f90df..1a8fe59526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c index 3a96c010d0..ec7f6e19b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c index da73cd4792..ba48bb052f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c index 4928b1bc0b..528b94a47e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c index 5824de4e06..1a6437555e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c index 2efe981f05..90a3f449ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c index d9e9cb65c6..b6f32b8b5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c index 77805dbd57..0619afa8d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c index 1a46cfaefd..4d59821ac3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c index 344b5778f1..226f09d929 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c index 2b194620cc..be7e9c543d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c index cf0822b15f..04bd68ea8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c index 347cbfe4d1..bb03176913 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c index 9e05cfed95..967ffc7e3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c index e9ae035d7d..20358b9d04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c index f074b9edb6..a0233c9a17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c index 44793c9f83..cb4824ce0c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c index e438b842ab..2597753285 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c index b4010b8a85..847cdaae74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetri.c b/lapack-netlib/LAPACKE/src/lapacke_zgetri.c index f624deaeb7..294e21fbac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c index 82986b71e8..bdad9cf474 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c index 3ce08b778a..ad0799cdc3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c index fd3fb65c53..ca0cb4ffbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c index 62fe80b1ed..0657bd9517 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c index dca7d49afd..465dcc2371 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbak.c b/lapack-netlib/LAPACKE/src/lapacke_zggbak.c index 9acddb97c0..b87c132636 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c index d7b65b5ce0..128099db4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbal.c b/lapack-netlib/LAPACKE/src/lapacke_zggbal.c index 8bbfd2893b..0a180ecf01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c index 33f095f0b3..2f4481c306 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges.c b/lapack-netlib/LAPACKE/src/lapacke_zgges.c index 68478fe517..fbc1c5a87d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges3.c b/lapack-netlib/LAPACKE/src/lapacke_zgges3.c index 7d61245e1b..7f322c38fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c index 5a8e024b68..00677931d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c index ea6dedff1b..2694c65306 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggesx.c b/lapack-netlib/LAPACKE/src/lapacke_zggesx.c index 53e0867539..05e7f902b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c index 0ee198b4a2..f9f1ccee10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev.c b/lapack-netlib/LAPACKE/src/lapacke_zggev.c index 953b3c0e35..a92571b141 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev3.c b/lapack-netlib/LAPACKE/src/lapacke_zggev3.c index 626fe3da9b..fa5fbe0fef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c index e2ac2f0a01..21bcd61870 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c index 4505a5089e..2c55e4f29b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggevx.c b/lapack-netlib/LAPACKE/src/lapacke_zggevx.c index ca39e99190..451cd27903 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c index 0fa1ad9b48..56a258b9df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggglm.c b/lapack-netlib/LAPACKE/src/lapacke_zggglm.c index 0c9912ca95..323d2ee309 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c index c5e3f349f5..bc96333f14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c index 97d1e6116c..3450167d1f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c index ec649dca4f..d8d361a76f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c index e6b2ddca3a..27ab1f3d72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c index bae715cba8..29f81b2fcb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgglse.c b/lapack-netlib/LAPACKE/src/lapacke_zgglse.c index 40faf672f3..4477a874af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c index 538579e39a..b8b41b1a1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c index 35c908f0a9..88b5e2a576 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c index 044681f01a..27430b2f82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c index 328f8b0a67..0a3dad2e0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c index fe65d4cffd..12f03139e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c index e6425f4855..2e02383999 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c index 62dce80389..a342fd7798 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c index 1c65153252..59401be961 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c index a1c920bcf6..88ed68a154 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c index 537bf6c03e..5b983dcf8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c index d549305cc7..94f97216eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c index 6ea0c8d52d..a2c023d9fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c index 641bc3b9e0..94287ede81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c index 50f334ff5e..e6a216a2cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c index 39bc40e412..8b73db9c31 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c index 9df5ce9205..3e82b8eaea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c index 8db27f92b9..e45fac1692 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c index 28c3fb3efe..7f4afdba23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c index 99cea0cf99..ef49ec2258 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c index c20a850256..80ab003f45 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c index e4b908b769..b3f929e212 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c index 8445ea6726..7033b76db0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c index 9034e53789..1b6dc5d724 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c index bc8599fab1..379b8e0f66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c index e7c2a4f1fc..d3d43cc088 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev.c index 30ac7fc793..23e9167a97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c index dad35b84ee..993dcc17ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c index 5671c111e3..931fe0529f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c index f52211fe4f..aa6a8ec54a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c index ac94674968..ea92e2a6db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c index 9b6005b2df..ba14fe2904 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c index e7604e870f..18485312b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c index 5912812f92..7e1d07ac27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c index 6d069179e3..3f2853ed5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c index 126182cb83..37a9c21b72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c index ffd5527fbb..1801a6da62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c index 5eb09a67ab..75ab852953 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c index 54deacf5a8..607d7b0650 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c index 3c9b199463..926ecd9a25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c index 7f1e6796a2..7fb988abf7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c index 563ca963b7..eb35499d71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c index 76c3bac3aa..3fba8cd66b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c index 8ddfcbe63d..6588e7368f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c index d61439a0c6..03f154180c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c index d2914e1cb8..566ebe6be3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c index 0682d0a576..6205ee9ed0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c index 0b2ef22c10..71dbb8e1a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon.c index f6b9d8c39e..40b5950741 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c index 94dd047de5..f696ae3708 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhecon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c index 47d26f54f7..2064e4fb47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhecon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c index 2944a25cbf..e7209e47d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheequb.c b/lapack-netlib/LAPACKE/src/lapacke_zheequb.c index cbb346e482..a9d03590d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c index bf91fc0605..62d9712509 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev.c b/lapack-netlib/LAPACKE/src/lapacke_zheev.c index 2c40428da5..0126e3d14b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c index 4369de26a9..889ff0e15a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c index 213ea04af4..11246e1966 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c index 8b7aa35189..43d33eb2e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd.c index 1305ebfb3c..da5df1de42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c index 63f1394357..2d747f8d08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c index 840c538765..0538eefbbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c index b8509e04fc..086df88e74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr.c index 0d26dc2f92..a8f6078ded 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c index 6fa69c44b7..7931822627 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c index 643d0e2163..73b2edbd5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c index 0b8bd5a3e6..ef405f1b50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx.c index f93e987437..731dbab297 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c index 78403631cd..cb95285acb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c index 846ec14453..c9bdd88062 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c index b77200aca1..1a61928cfc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegst.c b/lapack-netlib/LAPACKE/src/lapacke_zhegst.c index aa2d84d84d..7ca618ba2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -48,7 +47,7 @@ lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c index f778942049..a87d663a4d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv.c index 587e2d4be8..2f8964783b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c index 43569d99ed..1d540a56df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c index 596c8fdb28..6a808e2a03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c index cb50d52cb8..ca4ebf70c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c index c287595ad3..33bffeca8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c index 4885bbbcb3..6e0ea7c48e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c index 83f2bda2e3..8227832e10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c index bee995ff55..eb29c34d41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfs.c b/lapack-netlib/LAPACKE/src/lapacke_zherfs.c index 1507ae58e2..1d9c9dac2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c index e908c0e6eb..d14783756f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c index c50e0b3557..9da13b03f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c index 7d86e6d2a1..125092eb5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv.c index 93baf17e1f..10239198b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c index d8be883226..2fdd82c2fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c index c09423d939..e0a00d7eae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c index 9906210ef6..16b79add48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c index 85efc4bae3..cd3e1de09d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c index 469579d89c..00ab102023 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c index 892843a664..790e75ad94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c index 60da6a6967..e0d4882543 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c index 71d22a317f..a1cf5be4e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c index 2237a0f0db..e372cd3abd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c index 8571ca7daa..0b14784e5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c index 18a3843be9..052e2c687c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c b/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c index 070ec0992c..17ca30fab2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c index 73853a8a81..a89e12d481 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c index 35adae4fff..af7338d28e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c index ffa4d46028..7822019905 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c index a160840b73..543b8bffd3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c index a2a20f2ebc..d9df39f7c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c index d009d8e9e6..b93a365bb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c index b9ba0fb564..10d7a5c393 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c index dbad2d81e1..93fd5e704f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c index 187de8a4da..9212a0840f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c index b5c39c9ac9..3a87509665 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c index 16e8f4799b..f6680928bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c index 22bf880a26..5baa68b3b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c index 2635c634ed..bef9a1ef5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri.c index 892da6e21a..aa56a4bd8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c index 54f7b9b9a8..9109f05426 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c index 94d2dbb5b4..262c1cea64 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c index 15a8cc5766..d8b56f5dda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri2x * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c index 24f041d2ab..297a299bef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c index 32692e0ca5..69b0f4e527 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c index c85bc575f8..6acfad8e17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c index 22081f3c1f..1ebb544c6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c index 530e3fd2e9..87a1207fda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c index be8c2418d7..fefb1de101 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c index 52c8aff548..8b1afe196a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c index fb74e9bf95..59fdcd9c89 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c index da60c355ca..fe8ca713ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c index ddcd659411..f39b99ecd4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c index b083d6f38c..f071cb21ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c index 611123367c..8286569d2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c index d1d64a79b9..c8a9ed1606 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c index befeafda34..3ce8160d57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c index 7dd6fa8b5e..7ffe68bf14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c index 9e0d68f22a..07dddf07c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c b/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c index 3824692c2a..6db0dbc29e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c index 96b0610112..e308eba1e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c index fc912428bf..7737253f41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c index 34f3ac0551..867e458a72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c b/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c index b458f63a10..636509f4a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c index fbdb8e0f8a..5578f9019c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpev.c b/lapack-netlib/LAPACKE/src/lapacke_zhpev.c index 72f5850f22..003071d667 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c index 450baabea4..9cca2e602b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c index a470ca3bb3..742ca5f285 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c index d6438c07b5..9facb86cec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c index 86293e91e2..2ab91431b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c index a4d26c0c60..c5890175c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c index 6099fda94b..b5b80d869c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c index 1f85c39dd6..d2d52a0b25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c index 765bbd4d96..128b7b28e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c index ace5787e32..e97bdadb0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c index 91fa26443c..cb90e86cf7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c index e859bf1a3e..df0fdcc930 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c index 3f572238f1..fd2b6b69cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c index 416c7992ec..2888b4723c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c index 4a8c71593a..412dd2f9c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c index 4c55571cd1..bb527472a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c index e0be842f3e..1318212094 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c index c3cff2c3e8..3b4a880ec3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c index b3035291a9..aa4bd89d8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c index 15c60ff39c..77afd7ea17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c index 8af15b65b2..a31a3b74cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c index 8c1cda30b8..05fd25699a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c index f22a708bf8..0716852122 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c index 9355d78237..c48c34ab80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptri.c b/lapack-netlib/LAPACKE/src/lapacke_zhptri.c index c20c3a5776..1acd04c64d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c index 394db9fbb5..394ad141b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c index 5a62629d42..b75e45e3bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c index 1b5a97f130..eb085ba7e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhsein.c b/lapack-netlib/LAPACKE/src/lapacke_zhsein.c index 481485cdee..f64e0ea675 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c index 2e26a7f09e..37258d3517 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c b/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c index 6d1f71a99d..64dbbb5e63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c index 544cdc68fc..05c33615eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c b/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c index cd412dc24a..cbfa99f51f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c index 00bb7cff22..c4dbd02b61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c b/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c index 76c6fd9e27..38a5bb4a41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c index 6babae5a23..820e88a15d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c b/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c index da5a178f56..1c76b70f69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c index 87dbc369e9..f5b3a229ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c b/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c index 2b9b582f5d..4e77c110c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c index fe36ed8116..e61bed6da6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c b/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c index a6a295d953..974fc07cdf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c index a2fd362cc2..ed110cd72b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c b/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c index d1b330efb6..56220d44f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlag2c * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c index e2af86bc9e..da5dd512c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlag2c * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagge.c b/lapack-netlib/LAPACKE/src/lapacke_zlagge.c index 5710ddd141..b7c5554f20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c index 8bd8df0028..92583bb639 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c b/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c index 923b0fa7d6..74b5925d96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c index 792cda91fa..0bc1ac22ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c b/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c index d2214970ec..0f6f700648 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c index 4875554c1e..9fbe94f7f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlange.c b/lapack-netlib/LAPACKE/src/lapacke_zlange.c index a87b872251..75b76b00ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c index 83cbbc327d..217ae074c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c b/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c index 9b99b29c8a..78468e5e12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlanhe * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c index 22127dfee5..899f3b13a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlanhe * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlansy.c b/lapack-netlib/LAPACKE/src/lapacke_zlansy.c index d1e9e0d8ee..c7f878a90f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c index a88390f768..4e05b0fae1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlantr.c b/lapack-netlib/LAPACKE/src/lapacke_zlantr.c index e2e0bec243..f6656d84da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c index cccc4053e6..f57911967e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c index b81976ca6c..35086aa926 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c index f9ed4ec8a9..909065eb33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c index c83583f2f9..95e3b42f4e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c index 35e3798a9e..70f604741a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c b/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c index 6421922623..c8ca160594 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c index 183d958dbf..d4e31299ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c index 4fc2eb0ab1..7cd23dde8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c index 8289db78da..1b4f892a17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c index a566a08cb5..4b96733df3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c index ee0e13768f..2d1e7ae27a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarft.c b/lapack-netlib/LAPACKE/src/lapacke_zlarft.c index be218df3ba..d99a8c8f80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c index 60e6970978..b352b6aaf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c index b4ebf727e8..489eb623be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c index a6ad300d44..18f2a0646f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c b/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c index 515e09b383..377e83f971 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c index 0e86fa147d..6912d591fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c index 8bf1ee7674..9f18448c0c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c index 7adfbc9e55..631c0df46d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaset.c b/lapack-netlib/LAPACKE/src/lapacke_zlaset.c index d43a424ea1..e0973be12c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c index ecb6cba25d..62b6b59a11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlassq.c b/lapack-netlib/LAPACKE/src/lapacke_zlassq.c index b8972b9749..3b68d12ccc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlassq * Author: Julien langou -* Generated February 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c index a4920b06af..625844de72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c b/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c index c18a3d7dfb..e166400b01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c index eafb9a59ab..573fe9e9b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlatms.c b/lapack-netlib/LAPACKE/src/lapacke_zlatms.c index 4f131d8cad..c5fc346b67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c index a8869287d0..1677896bee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlauum.c b/lapack-netlib/LAPACKE/src/lapacke_zlauum.c index fbda5b0bc3..3f081f3c7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c index 836c72132d..c4e64dfaa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c index f1091a264f..fe6f218fdb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c index 1fa5a0656a..8d05985a52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c index caedf208be..eceb7071d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c index a491f4380a..59d9449fe6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c index dd6d624359..d6702ab239 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c index fa9c4964b0..f5539608e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c index 0f717bfdd6..32d199b8ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c index 6745c9bdc0..50a951a5f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c index 8ec762aa42..681f01cdfc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c index 9d324fad2a..4625c0e88a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c index ef0fe46695..ee5549f657 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c index 70278a0d79..946f914b46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c index f0cd1fac42..964968e527 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c index d02f8685c7..8d47cdb9db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c index 1302831f23..8c9cda0895 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c index 773879ac61..ebd9943a12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c index cc18a12ed7..4fd8523d72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c index cd09a07bff..489da172c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftri.c b/lapack-netlib/LAPACKE/src/lapacke_zpftri.c index 6ca58ed2b6..6e814d7d3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c index eff7b4b25c..c4bc00b8de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c index db355583ed..824aab248f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c index 3983d26218..5aaf0f5c1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpocon.c b/lapack-netlib/LAPACKE/src/lapacke_zpocon.c index 3d943825b3..fb676a767f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c index 8b3664417c..558b99d039 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c index 7bb4fbb44b..4fc645abe6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c index 3d3fb023c2..b1daf19216 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c index 3c188c6d43..bacffa4bc8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c index a3c905945d..a7c68feffb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfs.c b/lapack-netlib/LAPACKE/src/lapacke_zporfs.c index a3e958a0c9..abcb405dbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c index 268c0eef00..4717b5ba38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c index e8ea525fa9..d27145f371 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c index 697291a9f6..f6f4a606cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposv.c b/lapack-netlib/LAPACKE/src/lapacke_zposv.c index a2bf87418f..5f52c3fff6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c index 1b20703315..350cf575c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvx.c b/lapack-netlib/LAPACKE/src/lapacke_zposvx.c index c5f1b38660..256b116322 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c index 0d86b9386e..227109c102 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c index c507aab6fa..842dbf4ba0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c index a9715237ac..1b2d3df52b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c index 07ef2572fc..eef672e917 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c index 9628425a17..0aee853387 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c index daaca792f3..e0cf84abe0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c index fdd3664915..1d4c6990cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotri.c b/lapack-netlib/LAPACKE/src/lapacke_zpotri.c index 68252cd2d5..05ff05eeb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c index 990aba1af1..fe30a7d3cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c index bd8ca4b770..797153256d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c index 02acc49c78..abfbf98ea6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppcon.c b/lapack-netlib/LAPACKE/src/lapacke_zppcon.c index d2611beb0c..285be70c30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c index 5f7a241ac3..eb4d7856bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppequ.c b/lapack-netlib/LAPACKE/src/lapacke_zppequ.c index 136b00b51d..1e333d5d59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c index 66035fd155..bf14edd174 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c index b898a1dfcc..11f501b041 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c index cd2ad18b36..1393d5d0ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsv.c b/lapack-netlib/LAPACKE/src/lapacke_zppsv.c index 9cb839e0f3..c4073fe792 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c index 9a75171c5b..93e740ae33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c index 4adcc02df0..0bf8297526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c index 2ddeb198df..2ef652358b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c index 749b82256d..abe8ae40b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c index d9e445aca1..1d6ae2bb1d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptri.c b/lapack-netlib/LAPACKE/src/lapacke_zpptri.c index e5f9be90d1..6e992e5219 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c index 7577cbddd4..991d6357b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c index 25dd5f1969..c379b51efa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c index ff9feb89fe..867417cd44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c index ffe4bf6258..dac94f5e50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c index 3312f31896..a79a19d4ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptcon.c b/lapack-netlib/LAPACKE/src/lapacke_zptcon.c index ecc7053420..f3b72dea05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c index 0162c8ca38..6638cdc441 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c index 522cb6a08d..ac55c13099 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c index 602295a64b..47bae4e796 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c index 4232f79eef..5e05c1b58c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c index 243d6da284..29a561f87b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsv.c b/lapack-netlib/LAPACKE/src/lapacke_zptsv.c index d6b0f8b077..4de2c96241 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c index fc3f9e3910..d530af267a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c index 6987f850b6..cbdf9ac763 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c index 60aa938248..ac1354097f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c index b0d8a4aa4c..7b9d45494e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c index 2c85567283..faf867a4eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c index 416269db33..14a42672b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c index 7c6cb492ab..5a7c2650fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspcon.c b/lapack-netlib/LAPACKE/src/lapacke_zspcon.c index dae745b482..25c2a1f587 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c index 97864c3020..8cb520cf36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c index c6b2a4e2e1..0f55ffa57c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c index e1c54955d9..633aed68f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsv.c b/lapack-netlib/LAPACKE/src/lapacke_zspsv.c index 35288dbf97..89cf95ccfa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c index 84112eb420..819f2b665e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c index f57193301b..025a121962 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c index 6f947d7df3..4f986f58fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c index 08a4e317f6..70356d3410 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c index 7fd2f7718f..3823e89427 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptri.c b/lapack-netlib/LAPACKE/src/lapacke_zsptri.c index 4e0481e4ae..7bb4734532 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c index 5d932aa920..231026ad77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c index 7a0f8d0545..5e99f48d96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c index 2deb687664..9bea788d3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstedc.c b/lapack-netlib/LAPACKE/src/lapacke_zstedc.c index 665c4414fc..29f2ca56cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c index d2e67dbb3b..3c6a07f19f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstegr.c b/lapack-netlib/LAPACKE/src/lapacke_zstegr.c index 07b5ce81df..d744040441 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c index 3b527e88af..a2de0f62b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstein.c b/lapack-netlib/LAPACKE/src/lapacke_zstein.c index d54f3bb676..ccad9fc385 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c index 9e6a9acbd2..c651215767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstemr.c b/lapack-netlib/LAPACKE/src/lapacke_zstemr.c index d1d1d56922..d64fb290cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c index 02d459a48c..b87018178b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c b/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c index 3b27f53b9c..0337fe5ab9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c index acfd3baa0d..b4db37210e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon.c index b4f726bdbc..22c07e9de3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c index 1a3b3ddf7e..c7d22234db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c index b59d023400..7dbf7f9a99 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c index b385792000..1a2c7b4c2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c b/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c index 074b15303b..58856b9584 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c index 259f4d74c0..776e834872 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c b/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c index 669c3dd9e9..5d8d109652 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c index 8e625bdace..c306735287 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyr.c b/lapack-netlib/LAPACKE/src/lapacke_zsyr.c index 097f0799b7..c4bbe51c96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyr.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c index 6d8e9f7780..743db8fb89 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c index a0246ba038..60cb9176ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c index 5897068d16..daf6cca028 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c index a7401acca3..13479d7323 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c index 1e96a756c4..8d47f5cefa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv.c index 1cb7d4673f..71ef168a83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c index c2bf5c3402..ac9a75c2a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c index c30a381cd4..05ee3f0189 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c index 8b46257d0a..37e8d6c254 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c index 80ba5c7467..637f6033ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c index 4dc56151ec..137a3d26a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c index bb07da25ed..349388a591 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c index 1e81b56892..e24d53395b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c index c002f25440..b383ec4670 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c index 46dda4698a..eece455ce9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c index d358355598..abff21f160 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c index 8a90f15169..44e88b13bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c index d7539404ac..a39552e661 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c index b65db31968..31730a3431 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c index 17d580e422..1af377bca0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c index 44a297de54..22a5984bbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c index 56868b99e8..daf980366e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c index 74a81f483d..aab51a50f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c index e629c8571f..4e61bdee6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c index db27e2873a..386a50ac1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c index 03726c63e0..7f09d29da2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c index f1722f434a..f7a2afca80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c index 20270b7d1b..f9ce392062 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c index 58411d0c96..7af47a0be6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c index 9e7cc55d23..f9af65ca6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c index 7fa47049ce..273adbd570 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri.c index a1c6db1704..c9f6341938 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c index 434fbe1912..4672151997 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c index 1cd02bc2db..b22d41edb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c index 770e8a4812..e510790b0c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c index cd1fab17fe..c7b6727090 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c index bd5677554d..2a9f1bb798 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c index 55e6c34635..02caa21bda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c index d8852b2c4b..2f869b9429 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c index 9b8e064ca3..d6fff75dae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c index 3c85f9796a..f1999d368e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c index cdc97fa024..c12c50fd8c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c index fdfe059a99..cce73232a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c index c510a1f74d..60c6390836 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c index a015677654..617dcc1f7b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c index 8713aba499..c62e2893b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c index 76c5139802..a46fd59e85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c index 8c54aa9b5c..48b2f45acc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c index 052c17120d..bb76714777 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c index 32a2f7adc9..871b7df020 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c index 2e501d6f59..8500ab13f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c index 0bbe1e9708..28a25e1a80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c index deef7ba839..e2225fa3ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c index aa2a93660e..a42bd1c083 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c index f6c5baf07b..2eb7d602bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c index 4c4e1885ea..6d587c996b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c index 4c6de59b89..fd157c8132 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c b/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c index 79ca29a6db..e05579d220 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c index b703a1062d..d8962f8f49 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztftri.c b/lapack-netlib/LAPACKE/src/lapacke_ztftri.c index 4842796327..69f1d5eea4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c index 8bd6116b16..314717c502 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c index 8b98538541..06142e1f82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c index 43f5b7209e..935b0e1d88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c index f367a5960f..e896dd0fa0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c index 22892f4a06..6314538530 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c b/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c index a195c8cc6d..574b8b461e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c index f8ce43c87a..b066714294 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c b/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c index b01c10014c..56d7d861e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c index 91f2243bac..333e1d3f89 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c index f6f58becd5..8c86d5e00e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c index 4ba48ea7bd..ffdcb1d11d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c index 485a62a26f..61f83e283a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c index 3ae7e3734e..6ae35663aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c index 0e2599e036..d1c01a0686 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c index de7d03273b..4ef9e3f6b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c index a0b303b464..944a0228dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c index 0768d426e8..5cf44e41e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c index dd556af637..54b4cdecc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c index 319dbe14e4..6c1baefbef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c index bae34b1ef7..e39995e751 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c index 7f17118052..643ae1d9d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c index f9eb95db5b..f13112b2c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c index a6707ed709..82208f0fbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c index 49fe89f4ab..7a7db867f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c index af0a19bbf2..0ae35cd584 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c index 7a791c0d4e..a1ddaa4012 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c index 5507d5bb9c..36944bbed2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztprfb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c index 51b8cbf190..bf299ee943 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c index cdfff6d9fc..c650c3c47d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptri.c b/lapack-netlib/LAPACKE/src/lapacke_ztptri.c index 15c8b423e5..fefcb2cafb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c index eeaadd202e..e72d847d24 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c index 6f7bb4056d..bd69e98aaf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c index 1aa1a2df51..8dc2258320 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c index 44ad3c7916..248985d0d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c index 42a6e9086a..4df8d567a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c index 30274aaa92..bd3a3235ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c index 9599011ec3..66ecd0b52c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c index ef921a4612..39f8d2312d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c index 29d05b1a89..08188d8790 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c b/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c index ff7c105b83..185ed8854b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c index c2989edde1..818658fe02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c b/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c index 28a1a72afd..29b786a6b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c index d19746ac5d..86647ede2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c index 1e89e32215..e1da3828a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c index d3c2cc0def..f84a27be6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c index f65d914aac..0846ef6946 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c index 05b57962d2..55dcee4877 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c index 0fd9ae189a..cf08c44d06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c index 8a2f19dde4..1f0717df86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c index 98f9cda56d..fe882e756b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c index 46f79a1791..4b0813aaeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c index 2f1c639f5c..94f8ef7289 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c index e4d2b18e16..d3963e6c11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c index 3482fcdd90..0a8477f273 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c index 330f335c52..7a5ec17f3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c index 8e8789ec6a..22bb9b0f6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c index 1e678a27a7..5512a3d9c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c index bd8485108b..6c1239e94b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c index f1c2edf284..b8488217de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c index e4e7d44e7e..a5ea5a27c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c index 6ab9ebb4bc..5a76dfc1fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c b/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c index 91ab2c4de5..4d6cb8faf6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c index 7a4cb97e2b..94fc92d38e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c index 1960898125..a423e91357 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c index 61ac9c089f..321b5af49b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c index 6d3296100f..72f1454ff7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c index 4d474a715c..aa74cd5d8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungbr.c b/lapack-netlib/LAPACKE/src/lapacke_zungbr.c index 9a91fc44a7..a06b892679 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c index fc55407001..e7b1a18fe4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunghr.c b/lapack-netlib/LAPACKE/src/lapacke_zunghr.c index 9d681ded55..276b263aa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c index 739efb37d0..6f91e4ee67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunglq.c b/lapack-netlib/LAPACKE/src/lapacke_zunglq.c index 21af17dfdb..d42d1a2786 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c index 9463038e50..5e57d6accd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungql.c b/lapack-netlib/LAPACKE/src/lapacke_zungql.c index a4204b6efa..516d2b2219 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c index 048df0f1db..61ab14ce5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungqr.c b/lapack-netlib/LAPACKE/src/lapacke_zungqr.c index b15d0c923c..8aeedc4026 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c index 7537692009..f50c0b15b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungrq.c b/lapack-netlib/LAPACKE/src/lapacke_zungrq.c index 6c6378bfae..7b8a3eca5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c index 5380c5fbe9..6c5856d738 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungtr.c b/lapack-netlib/LAPACKE/src/lapacke_zungtr.c index adfaa7db9b..9b57692257 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c index 57db8b5c3e..0ddb09fba9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c index 2449d8511f..64c68b29c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c index 13191a90c3..b11d67ffbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c index 61ed6f6f24..f928b6c2ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c index e70642f4cc..098473d125 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c index c306bbc84e..06b10389c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmlq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c index f51fbc8441..e82e7e3c68 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmql.c b/lapack-netlib/LAPACKE/src/lapacke_zunmql.c index 3c06a1a1eb..3cf4ace236 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c index f59151556c..d0f155d947 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c index 7a43ebc50b..7ba58eb143 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c index b6d9a50457..4a8fbbae3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c index d3ffb39b7a..8426d3b4eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c index bd3f4e4c15..f3ae975603 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c index a8f1ce079b..f95f27e2cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c index 17a9eb5a23..be1cc73e13 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c index 4333854409..90afb42dd1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c index bcf34bbdb0..41e1f26ce6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c b/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c index 8b4b7ec93d..5c698bfd97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c index 123b2a6680..52f169df3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c b/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c index 80bbd95295..2f4cceeaa2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c index f57daacbe4..6b623889bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/Makefile b/lapack-netlib/LAPACKE/utils/Makefile index 648a8c1413..adc5736507 100644 --- a/lapack-netlib/LAPACKE/utils/Makefile +++ b/lapack-netlib/LAPACKE/utils/Makefile @@ -28,7 +28,6 @@ ############################################################################## # Contents: Native C interface to LAPACK # Author: Intel Corporation -# September, 2010 ############################################################################## # makefile for LAPACKE, used to build lapacke binary. # diff --git a/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c index fd0a7bad12..82a4242395 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c index 400e806f2a..0c35bd67bb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c index 43f5766702..2adf71493a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c index 67eb3d5c41..18e194d3a1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c index d110a41715..0d44ad59d1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c index d480ce54c7..371135ac7c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c index 89022593e4..678a482dfc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c index eed95f894f..ea73848f3e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c index 5b63d3b393..2c6211147f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c index a5bb186d63..00175027d5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c index c071ac8a69..6e652b71d1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c index 831988a8c9..a6a96f7efb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c index 0a7e6a2e26..0d74cbf08f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c index 9d8a3c03c7..2ab59b1126 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c index ffe179dd86..f0756bfb95 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c index aa10f8130d..eff8c8c4ea 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c index b557c4b046..5fea7377ac 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c index 93d5402695..99e3960fa5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c index 5e058418ea..551b96966e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c index 961f937a33..df397c0f6a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c index 9cf668eab0..62091f36b6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c index ca36c3c5d3..7b4f2a23f8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c index 23174d68bd..bc6d10442a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c index 80ecb7fb97..6408b93a86 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c index d45c2774e1..f0c445c9e3 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c index d1a8aa290d..8664be84b9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c index 4b329b5209..db1ff915d0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c index 76db32ee89..831421dbc2 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c index 001718d716..aedb04734e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c index 2d43d14586..48ee3187ce 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c index a46f67f81c..9647d3b655 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c index 23149cc369..c266e3ea62 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c index 084bbf1f50..e08f51175a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c index 5de54dc722..e0c88dde0f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c index 35c48a4099..30c8a93984 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c index 6678e1a5ba..2141a6c61d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c index 1ce2c747cf..4bc96ed4cb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c index f4fa41e033..a57c0562f4 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c index 1771cede08..328939b448 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c index e94d488d73..4f3e039c1e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c index 8930a6e5fe..6624936a62 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c index fcb85ea1bb..47d7d5db8c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c index 4dd71f33f0..ac9d5e47eb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c index 573e7e4ebb..f70fae5853 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c index 09526c32c4..117ffa416b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c index feeaebaea1..8d42c5738d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c index b0ded003e7..6dc087cbe6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c index 0a5635a4f2..6d6fbeb9db 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c index af21e725e0..0ea19feeb1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c index 8ce4de7310..88b9bebfa0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c index df95f13186..cb36afc17c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c index 8e2365d72b..4ba320ecd1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c index 2b9ded763f..2faacbb708 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c index 49cbe44eaa..f2de7eaa15 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c index 0ba66f96c1..6e2182e1f0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c index 031d3f9d8a..43de0bd466 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c index aa46c0749d..887db5cf85 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c index 4bd62ab2d7..8de1aa088a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c index 1ebbebbae3..db2994e0c3 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c index 69d24611c3..ba9e6a0ace 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c index c95bc32cb8..3a73a691cb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c index 7a6a33fee2..f306606fad 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c index 3492cb42c7..c9d78b9217 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c index 262ec7fdb5..697e2048f7 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c index 58e4a3b0b4..57912510cd 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c index 168c0e8647..54199debca 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c index 450d1224d4..0aae448374 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c index 0a5d6fa32c..24ef7f5ab8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c index 43f33bdd24..d8b5eabbba 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c index 7d7455de7e..dc8e03242e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c index 3033dd10f0..93fe775d38 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c index e011d3705c..f378b8503d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_lsame.c b/lapack-netlib/LAPACKE/utils/lapacke_lsame.c index 641e9db85b..e4592ce114 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_lsame.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_lsame.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK lsame * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c index 194f687629..6abc907e2e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c index e20cb2421c..a1f3aa97b9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c index cfdce0e302..046fdb9ca9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c index a47e7e2b8d..e15d087dba 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c index 0e128e1796..21199e4d50 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c index cb0c114f20..382c448c96 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c index a077ae12c6..3d9d0d22fc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c index ea4f763063..71ebfd7aa9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c index 5a54a2f59c..400c3f2ef0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c index fc97bfafed..00e7fa80da 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c index b04b889232..0ea931cf8b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c index 5e27e79c7c..7b329cd0fd 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c index 20666c4d6a..5499e150cc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c index 10800da45e..13458cb428 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c index fff2e4d08f..5b0734e730 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c index 409e062aaa..f99e661afe 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c index c1098de702..ff83c22755 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c index 658041d6e3..a382fe6e8a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c index 67cdaf39a4..aa4d0b8c5e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c index 0874e766ed..4a8edf156c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c index 6982507738..b11b513ce8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c index 35ffe6522d..94e5338771 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c index 9583368ea2..1737f33381 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c index e82a26a6ba..3372a36095 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c index 89e962e8fd..ed6ac60ea5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c index 8f95c786d5..a9122b685d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c index 5a87056183..e1910162a5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c index 2a2159dbcf..f915cc752f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c index 96861c22e6..95128c0e7a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c index 065329fa97..6d737e2c9b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c index 4dfef02007..6c16368d56 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c index 7e676004f5..5c74724e8c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c index c149b7d323..df5c7dd5a6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c index 3a7ec33d98..4416572e6d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c b/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c index de4761faab..8ce4b8e081 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK lsame * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #include diff --git a/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c index 539ab9a8dc..ce6b18e630 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c index 8f0ffc1d69..5d98cd5881 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c index c0b122aa89..32a9de3795 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c index 0aa9ae36e6..9fa7fc61ca 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c index 79090ecb79..bc4d96255f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c index 9a97a757bc..2ecf90613d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c index c114c7a621..3596f3b164 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c index 4bda8b4e4d..6a434bd59d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c index 9b8d71805c..23e0971793 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c index 7b84afaddb..6bab305b9a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c index ab63037e9c..d0fe8e1682 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c index 4c18c07a55..d7fd00f6ff 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c index bcf331fe19..1cfbd7e546 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c index 2501c7fd96..b61b1b3ba0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c index af73e7d4fd..7283af0314 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c index 95ab6a3631..44a2d976a4 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c index 4c9d221cb1..521eed9593 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c index f175ebcc04..5afb4071ee 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c index c510b1d1a6..6ec322af0b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c index c9c43b38ad..2cc41bff2c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c index b88c3c7d4e..61eb46da57 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c index d58d37b04a..70d7a845a5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c index 450878bcf1..f2982a855d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c index 70a5d7b4c0..1cae636374 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c index 8a6401cadb..3e09ee0bd2 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c index 2d77951667..edc59029fa 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c index 76d504d439..a445a6016b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c index 3e9aa5b4c0..7775a1a2dc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c index e4456d9aa3..57deee0d03 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c index ff4c65a29f..341fda7316 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c index 7c22973087..0c2c809b87 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c index 868629b99d..063f145404 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c index 4c899d597e..2cfa86bf1c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c index 566d95ae3c..6bc6fcc48d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c index d3a06c3812..dc347eaa5a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c index e7369baae7..47b4851b65 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c index e8e792e8a7..7058a33ed6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c index 23f17b9ecf..e3042bfa52 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/SRC/CMakeLists.txt b/lapack-netlib/SRC/CMakeLists.txt index bb14591652..90c5e61a98 100644 --- a/lapack-netlib/SRC/CMakeLists.txt +++ b/lapack-netlib/SRC/CMakeLists.txt @@ -36,12 +36,13 @@ ####################################################################### set(ALLAUX ilaenv.f ilaenv2stage.f ieeeck.f lsamen.f iparmq.f iparam2stage.F - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f la_xisnan.F90 ../INSTALL/ilaver.f ../INSTALL/lsame.f xerbla.f xerbla_array.f ../INSTALL/slamch.f) set(SCLAUX - sbdsdc.f + la_constants.f90 + sbdsvdx.f sbdsdc.f sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f slaed7.f slaed8.f slaed9.f slaeda.f slaev2.f slagtf.f @@ -49,47 +50,52 @@ set(SCLAUX slapy2.f slapy3.f slarnv.f slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f slarrk.f slarrr.f slaneg.f - slartg.f slaruv.f slas2.f slascl.f + slartg.f90 slaruv.f slas2.f slascl.f slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f slasd7.f slasd8.f slasda.f slasdq.f slasdt.f slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f - slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f - ssteqr.f ssterf.f slaisnan.f sisnan.f - slartgp.f slartgs.f + slasr.f slasrt.f slassq.f90 slasv2.f spttrf.f sstebz.f sstedc.f + sstein.f ssteqr.f ssterf.f sstevx.f + slartgp.f slartgs.f ../INSTALL/sroundup_lwork.f ${SECOND_SRC}) set(DZLAUX - dbdsdc.f - dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f + la_constants.f90 + dbdsdc.f dbdsvdx.f + dbdsqr.f ddisna.f + disnan.f + dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f dlaed0.f dlaed1.f dlaed2.f dlaed3.f dlaed4.f dlaed5.f dlaed6.f dlaed7.f dlaed8.f dlaed9.f dlaeda.f dlaev2.f dlagtf.f dlagts.f dlamrg.f dlanst.f dlapy2.f dlapy3.f dlarnv.f dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f dlarrk.f dlarrr.f dlaneg.f - dlartg.f dlaruv.f dlas2.f dlascl.f + dlartg.f90 dlaruv.f dlas2.f dlascl.f dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f dlaset.f dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f - dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f - dsteqr.f dsterf.f dlaisnan.f disnan.f - dlartgp.f dlartgs.f + dlasr.f dlasrt.f dlassq.f90 dlasv2.f dlaisnan.f + dpttrf.f + dstebz.f dstedc.f dstein.f dsteqr.f dsterf.f dstevx.f + dlartgp.f dlartgs.f ../INSTALL/droundup_lwork.f ../INSTALL/dlamch.f ${DSECOND_SRC}) set(SLASRC - sbdsvdx.f sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f + sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f sgbsvx.f sgbtf2.f sgbtrf.f sgbtrs.f sgebak.f sgebal.f sgebd2.f sgebrd.f sgecon.f sgeequ.f sgees.f sgeesx.f sgeev.f sgeevx.f sgehd2.f sgehrd.f sgelq2.f sgelqf.f sgels.f sgelsd.f sgelss.f sgelsy.f sgeql2.f sgeqlf.f sgeqp3.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvdx.f sgesvx.f sgetc2.f sgetf2.f - sgetrf2.f sgetri.f + sgetri.f sggbak.f sggbal.f sgges.f sgges3.f sggesx.f sggev.f sggev3.f sggevx.f sggglm.f sgghrd.f sgghd3.f sgglse.f sggqrf.f sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f + slaqz0.f slaqz1.f slaqz2.f slaqz3.f slaqz4.f shsein.f shseqr.f slabrd.f slacon.f slacn2.f slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f @@ -99,27 +105,27 @@ set(SLASRC slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f - slarf.f slarfb.f slarfg.f slarfgp.f slarft.f slarfx.f slarfy.f slargv.f + slarf.f slarfb.f slarfb_gett.f slarfg.f slarfgp.f slarft.f slarfx.f slarfy.f slargv.f slarrv.f slartv.f - slarz.f slarzb.f slarzt.f slaswp.f slasy2.f + slarz.f slarzb.f slarzt.f slasy2.f slasyf.f slasyf_rook.f slasyf_rk.f slasyf_aa.f slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.f slauu2.f slauum.f sopgtr.f sopmtr.f sorg2l.f sorg2r.f sorgbr.f sorghr.f sorgl2.f sorglq.f sorgql.f sorgqr.f sorgr2.f - sorgrq.f sorgtr.f sorgtsqr.f sorm2l.f sorm2r.f sorm22.f + sorgrq.f sorgtr.f sorgtsqr.f sorgtsqr_row.f sorm2l.f sorm2r.f sorm22.f sormbr.f sormhr.f sorml2.f sormlq.f sormql.f sormqr.f sormr2.f sormr3.f sormrq.f sormrz.f sormtr.f spbcon.f spbequ.f spbrfs.f spbstf.f spbsv.f spbsvx.f spbtf2.f spbtrf.f spbtrs.f spocon.f spoequ.f sporfs.f sposv.f - sposvx.f spotf2.f spotrf2.f spotri.f spstrf.f spstf2.f + sposvx.f spotf2.f spotri.f spstrf.f spstf2.f sppcon.f sppequ.f spprfs.f sppsv.f sppsvx.f spptrf.f spptri.f spptrs.f sptcon.f spteqr.f sptrfs.f sptsv.f sptsvx.f spttrs.f sptts2.f srscl.f ssbev.f ssbevd.f ssbevx.f ssbgst.f ssbgv.f ssbgvd.f ssbgvx.f ssbtrd.f sspcon.f sspev.f sspevd.f sspevx.f sspgst.f sspgv.f sspgvd.f sspgvx.f ssprfs.f sspsv.f sspsvx.f ssptrd.f - ssptrf.f ssptri.f ssptrs.f sstegr.f sstein.f sstev.f sstevd.f sstevr.f - sstevx.f ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f + ssptrf.f ssptri.f ssptrs.f sstegr.f sstev.f sstevd.f sstevr.f + ssycon.f ssyev.f ssyevd.f ssyevr.f ssyevx.f ssygs2.f ssygst.f ssygv.f ssygvd.f ssygvx.f ssyrfs.f ssysv.f ssysvx.f ssytd2.f ssytf2.f ssytrd.f ssytrf.f ssytri.f ssytri2.f ssytri2x.f ssyswapr.f ssytrs.f ssytrs2.f @@ -145,16 +151,18 @@ set(SLASRC sgeqrt.f sgeqrt2.f sgeqrt3.f sgemqrt.f stpqrt.f stpqrt2.f stpmqrt.f stprfb.f sgelqt.f sgelqt3.f sgemlqt.f - sgetsls.f sgeqr.f slatsqr.f slamtsqr.f sgemqr.f + sgetsls.f sgetsqrhrt.f sgeqr.f slatsqr.f slamtsqr.f sgemqr.f sgelq.f slaswlq.f slamswlq.f sgemlq.f stplqt.f stplqt2.f stpmlqt.f sorhr_col.f slaorhr_col_getrfnp.f slaorhr_col_getrfnp2.f ssytrd_2stage.f ssytrd_sy2sb.f ssytrd_sb2st.F ssb2st_kernels.f ssyevd_2stage.f ssyev_2stage.f ssyevx_2stage.f ssyevr_2stage.f ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f - sgesvdq.f scombssq.f) + sgesvdq.f) -set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) +set(DSLASRC + sgetrf.f sgetrf2.f sgetrs.f sisnan.f slaisnan.f slaswp.f spotrf.f spotrf2.f + spotrs.f) set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f @@ -193,6 +201,7 @@ set(CLASRC chesv_aa.f chetrf_aa.f chetrs_aa.f chesv_aa_2stage.f chetrf_aa_2stage.f chetrs_aa_2stage.f chgeqz.f chpcon.f chpev.f chpevd.f + claqz0.f claqz1.f claqz2.f claqz3.f chpevx.f chpgst.f chpgv.f chpgvd.f chpgvx.f chprfs.f chpsv.f chpsvx.f chptrd.f chptrf.f chptri.f chptrs.f chsein.f chseqr.f clabrd.f @@ -207,9 +216,9 @@ set(CLASRC claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f - clarf.f clarfb.f clarfg.f clarfgp.f clarft.f - clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f clartv.f - clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f + clarf.f clarfb.f clarfb_gett.f clarfg.f clarfgp.f clarft.f + clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f90 clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f90 claswp.f clasyf.f clasyf_rook.f clasyf_rk.f clasyf_aa.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f @@ -235,7 +244,7 @@ set(CLASRC ctptrs.f ctrcon.f ctrevc.f ctrevc3.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f ctrsyl.f ctrti2.f ctrtri.f ctrtrs.f ctzrzf.f cung2l.f cung2r.f cungbr.f cunghr.f cungl2.f cunglq.f cungql.f cungqr.f cungr2.f - cungrq.f cungtr.f cungtsqr.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f cunm22.f + cungrq.f cungtr.f cungtsqr.f cungtsqr_row.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f cunm22.f cunmlq.f cunmql.f cunmqr.f cunmr2.f cunmr3.f cunmrq.f cunmrz.f cunmtr.f cupgtr.f cupmtr.f icmax1.f scsum1.f cstemr.f chfrk.f ctfttp.f clanhf.f cpftrf.f cpftri.f cpftrs.f ctfsm.f ctftri.f @@ -246,7 +255,7 @@ set(CLASRC cgeqrt.f cgeqrt2.f cgeqrt3.f cgemqrt.f ctpqrt.f ctpqrt2.f ctpmqrt.f ctprfb.f cgelqt.f cgelqt3.f cgemlqt.f - cgetsls.f cgeqr.f clatsqr.f clamtsqr.f cgemqr.f + cgetsls.f cgetsqrhrt.f cgeqr.f clatsqr.f clamtsqr.f cgemqr.f cgelq.f claswlq.f clamswlq.f cgemlq.f ctplqt.f ctplqt2.f ctpmlqt.f cunhr_col.f claunhr_col_getrfnp.f claunhr_col_getrfnp2.f @@ -267,7 +276,10 @@ set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f cla_hercond_c.f cla_hercond_x.f cla_herpvgrw.f cla_lin_berr.f clarscl2.f clascl2.f cla_wwaddw.f) -set(ZCLASRC cpotrs.f cgetrs.f cpotrf.f cgetrf.f) +set(ZCLASRC + cgetrf.f cgetrf2.f cgetrs.f claswp.f cpotrf.f cpotrf2.f cpotrs.f cgetrs.f + cpotrf.f cgetrf.f + sisnan.f slaisnan.f) set(DLASRC dbdsvdx.f dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f @@ -283,6 +295,7 @@ set(DLASRC dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dlaqz0.f dlaqz1.f dlaqz2.f dlaqz3.f dlaqz4.f dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f @@ -292,14 +305,14 @@ set(DLASRC dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f - dlarf.f dlarfb.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlarfy.f + dlarf.f dlarfb.f dlarfb_gett.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlarfy.f dlargv.f dlarrv.f dlartv.f dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f dlasyf_rk.f dlasyf_aa.f dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.f dlauu2.f dlauum.f dopgtr.f dopmtr.f dorg2l.f dorg2r.f dorgbr.f dorghr.f dorgl2.f dorglq.f dorgql.f dorgqr.f dorgr2.f - dorgrq.f dorgtr.f dorgtsqr.f dorm2l.f dorm2r.f dorm22.f + dorgrq.f dorgtr.f dorgtsqr.f dorgtsqr_row.f dorm2l.f dorm2r.f dorm22.f dormbr.f dormhr.f dorml2.f dormlq.f dormql.f dormqr.f dormr2.f dormr3.f dormrq.f dormrz.f dormtr.f dpbcon.f dpbequ.f dpbrfs.f dpbstf.f dpbsv.f dpbsvx.f @@ -311,8 +324,8 @@ set(DLASRC dsbev.f dsbevd.f dsbevx.f dsbgst.f dsbgv.f dsbgvd.f dsbgvx.f dsbtrd.f dspcon.f dspev.f dspevd.f dspevx.f dspgst.f dspgv.f dspgvd.f dspgvx.f dsprfs.f dspsv.f dspsvx.f dsptrd.f - dsptrf.f dsptri.f dsptrs.f dstegr.f dstein.f dstev.f dstevd.f dstevr.f - dstevx.f dsycon.f dsyev.f dsyevd.f dsyevr.f + dsptrf.f dsptri.f dsptrs.f dstegr.f dstev.f dstevd.f dstevr.f + dsycon.f dsyev.f dsyevd.f dsyevr.f dsyevx.f dsygs2.f dsygst.f dsygv.f dsygvd.f dsygvx.f dsyrfs.f dsysv.f dsysvx.f dsytd2.f dsytf2.f dsytrd.f dsytrf.f dsytri.f dsytrs.f dsytrs2.f @@ -340,14 +353,14 @@ set(DLASRC dgeqrt.f dgeqrt2.f dgeqrt3.f dgemqrt.f dtpqrt.f dtpqrt2.f dtpmqrt.f dtprfb.f dgelqt.f dgelqt3.f dgemlqt.f - dgetsls.f dgeqr.f dlatsqr.f dlamtsqr.f dgemqr.f + dgetsls.f dgetsqrhrt.f dgeqr.f dlatsqr.f dlamtsqr.f dgemqr.f dgelq.f dlaswlq.f dlamswlq.f dgemlq.f dtplqt.f dtplqt2.f dtpmlqt.f dorhr_col.f dlaorhr_col_getrfnp.f dlaorhr_col_getrfnp2.f dsytrd_2stage.f dsytrd_sy2sb.f dsytrd_sb2st.F dsb2st_kernels.f dsyevd_2stage.f dsyev_2stage.f dsyevx_2stage.f dsyevr_2stage.f dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f - dgesvdq.f dcombssq.f) + dgesvdq.f) set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f @@ -386,6 +399,7 @@ set(ZLASRC zhesv_aa.f zhetrf_aa.f zhetrs_aa.f zhesv_aa_2stage.f zhetrf_aa_2stage.f zhetrs_aa_2stage.f zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zlaqz0.f zlaqz1.f zlaqz2.f zlaqz3.f zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f zhpsvx.f zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f @@ -401,11 +415,11 @@ set(ZLASRC zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f - zlarcm.f zlarf.f zlarfb.f + zlarcm.f zlarf.f zlarfb.f zlarfb_gett.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f90 zlartv.f zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f + zlassq.f90 zlaswp.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f zlauu2.f zlauum.f zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f @@ -430,7 +444,7 @@ set(ZLASRC ztptrs.f ztrcon.f ztrevc.f ztrevc3.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f ztrsyl.f ztrti2.f ztrtri.f ztrtrs.f ztzrzf.f zung2l.f zung2r.f zungbr.f zunghr.f zungl2.f zunglq.f zungql.f zungqr.f zungr2.f - zungrq.f zungtr.f zungtsqr.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f zunm22.f + zungrq.f zungtr.f zungtsqr.f zungtsqr_row.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f zunm22.f zunmlq.f zunmql.f zunmqr.f zunmr2.f zunmr3.f zunmrq.f zunmrz.f zunmtr.f zupgtr.f zupmtr.f izmax1.f dzsum1.f zstemr.f @@ -444,7 +458,7 @@ set(ZLASRC ztpqrt.f ztpqrt2.f ztpmqrt.f ztprfb.f ztplqt.f ztplqt2.f ztpmlqt.f zgelqt.f zgelqt3.f zgemlqt.f - zgetsls.f zgeqr.f zlatsqr.f zlamtsqr.f zgemqr.f + zgetsls.f zgetsqrhrt.f zgeqr.f zlatsqr.f zlamtsqr.f zgemqr.f zgelq.f zlaswlq.f zlamswlq.f zgemlq.f zunhr_col.f zlaunhr_col_getrfnp.f zlaunhr_col_getrfnp2.f zhetrd_2stage.f zhetrd_he2hb.f zhetrd_hb2st.F zhb2st_kernels.f diff --git a/lapack-netlib/SRC/DEPRECATED/cgegs.f b/lapack-netlib/SRC/DEPRECATED/cgegs.f index 4e75e20255..1f0791a207 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/cgegs.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -225,10 +223,9 @@ SUBROUTINE CGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, $ VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/cgegv.f b/lapack-netlib/SRC/DEPRECATED/cgegv.f index 81def0db4f..ba810ddefb 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/cgegv.f @@ -242,8 +242,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * *> \par Further Details: @@ -282,10 +280,9 @@ SUBROUTINE CGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/cgelsx.f b/lapack-netlib/SRC/DEPRECATED/cgelsx.f index 22d2358ba6..a5c7c9ed89 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/cgelsx.f @@ -176,18 +176,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/cgeqpf.f b/lapack-netlib/SRC/DEPRECATED/cgeqpf.f index 2cbd1951e1..8593ce33b8 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/cgeqpf.f @@ -114,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ * ===================================================================== SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvd.f b/lapack-netlib/SRC/DEPRECATED/cggsvd.f index e7ece14c36..e6fdb47e5c 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/cggsvd.f @@ -323,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsing * *> \par Contributors: @@ -338,10 +336,9 @@ SUBROUTINE CGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvp.f b/lapack-netlib/SRC/DEPRECATED/cggsvp.f index 24bb09a390..0c60077fff 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/cggsvp.f @@ -246,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -262,10 +260,9 @@ SUBROUTINE CGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/clahrd.f b/lapack-netlib/SRC/DEPRECATED/clahrd.f index 7be3f2a1db..b209929ab6 100644 --- a/lapack-netlib/SRC/DEPRECATED/clahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/clahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/clatzm.f b/lapack-netlib/SRC/DEPRECATED/clatzm.f index 377eef725d..8e333cc172 100644 --- a/lapack-netlib/SRC/DEPRECATED/clatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/clatzm.f @@ -145,17 +145,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/ctzrqf.f b/lapack-netlib/SRC/DEPRECATED/ctzrqf.f index 5ed47d7e7a..ed1f67d247 100644 --- a/lapack-netlib/SRC/DEPRECATED/ctzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/ctzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/dgegs.f b/lapack-netlib/SRC/DEPRECATED/dgegs.f index eb404484d3..0ac0112c2d 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/dgegs.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -227,10 +225,9 @@ SUBROUTINE DGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/dgegv.f b/lapack-netlib/SRC/DEPRECATED/dgegv.f index e4d469aa5b..7e81c85a9a 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/dgegv.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -306,10 +304,9 @@ SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/dgelsx.f b/lapack-netlib/SRC/DEPRECATED/dgelsx.f index 70e5ce7f98..395fcb0d14 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/dgelsx.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/dgeqpf.f b/lapack-netlib/SRC/DEPRECATED/dgeqpf.f index 58ef56035b..69f9542acb 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/dgeqpf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvd.f b/lapack-netlib/SRC/DEPRECATED/dggsvd.f index 32d232c081..4f439eb6a9 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/dggsvd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsing * *> \par Contributors: @@ -334,10 +332,9 @@ SUBROUTINE DGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvp.f b/lapack-netlib/SRC/DEPRECATED/dggsvp.f index 1cc52b7197..87a2fd670c 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/dggsvp.f @@ -240,8 +240,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -256,10 +254,9 @@ SUBROUTINE DGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/dlahrd.f b/lapack-netlib/SRC/DEPRECATED/dlahrd.f index 9aa04ee14a..24ddf51cc9 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/dlahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/dlatzm.f b/lapack-netlib/SRC/DEPRECATED/dlatzm.f index 73434a21a0..1e8cc9f57f 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/dlatzm.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/dtzrqf.f b/lapack-netlib/SRC/DEPRECATED/dtzrqf.f index c1cbdc6abd..efd7c2497a 100644 --- a/lapack-netlib/SRC/DEPRECATED/dtzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/dtzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/sgegs.f b/lapack-netlib/SRC/DEPRECATED/sgegs.f index bf4fbc7102..2ed9ad942c 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/sgegs.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -227,10 +225,9 @@ SUBROUTINE SGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/sgegv.f b/lapack-netlib/SRC/DEPRECATED/sgegv.f index 9ffda665d1..7a179a4993 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/sgegv.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -306,10 +304,9 @@ SUBROUTINE SGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/sgelsx.f b/lapack-netlib/SRC/DEPRECATED/sgelsx.f index f45ff0f668..8760a02a6f 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/sgelsx.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/sgeqpf.f b/lapack-netlib/SRC/DEPRECATED/sgeqpf.f index 45828d2fb9..f5a2494691 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/sgeqpf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvd.f b/lapack-netlib/SRC/DEPRECATED/sggsvd.f index 9ab00119aa..7bc1b929e5 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/sggsvd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsing * *> \par Contributors: @@ -334,10 +332,9 @@ SUBROUTINE SGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvp.f b/lapack-netlib/SRC/DEPRECATED/sggsvp.f index b2a71a82af..4ecebdf14e 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/sggsvp.f @@ -240,8 +240,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -256,10 +254,9 @@ SUBROUTINE SGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/slahrd.f b/lapack-netlib/SRC/DEPRECATED/slahrd.f index 54503de041..9e001c740b 100644 --- a/lapack-netlib/SRC/DEPRECATED/slahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/slahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/slatzm.f b/lapack-netlib/SRC/DEPRECATED/slatzm.f index d523f3a665..bb24c281ba 100644 --- a/lapack-netlib/SRC/DEPRECATED/slatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/slatzm.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/stzrqf.f b/lapack-netlib/SRC/DEPRECATED/stzrqf.f index 57c44198fa..c2f55f367c 100644 --- a/lapack-netlib/SRC/DEPRECATED/stzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/stzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE STZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/zgegs.f b/lapack-netlib/SRC/DEPRECATED/zgegs.f index 038e95236d..c5cdd26e5e 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/zgegs.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -225,10 +223,9 @@ SUBROUTINE ZGEGS( JOBVSL, JOBVSR, N, A, LDA, B, LDB, ALPHA, BETA, $ VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/zgegv.f b/lapack-netlib/SRC/DEPRECATED/zgegv.f index 0f662955da..aa4ab3f713 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/zgegv.f @@ -242,8 +242,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * *> \par Further Details: @@ -282,10 +280,9 @@ SUBROUTINE ZGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/zgelsx.f b/lapack-netlib/SRC/DEPRECATED/zgelsx.f index fc8d28895c..0482b401df 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/zgelsx.f @@ -176,18 +176,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/zgeqpf.f b/lapack-netlib/SRC/DEPRECATED/zgeqpf.f index 7dffc7a0c0..3eba142c5c 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/zgeqpf.f @@ -114,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ * ===================================================================== SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvd.f b/lapack-netlib/SRC/DEPRECATED/zggsvd.f index dcbb892fd7..c0b9247a61 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/zggsvd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsing * *> \par Contributors: @@ -337,10 +335,9 @@ SUBROUTINE ZGGSVD( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvp.f b/lapack-netlib/SRC/DEPRECATED/zggsvp.f index f65de92783..9468bea062 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/zggsvp.f @@ -246,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ SUBROUTINE ZGGSVP( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/zlahrd.f b/lapack-netlib/SRC/DEPRECATED/zlahrd.f index fb63e96073..1690bd5b57 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/zlahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/zlatzm.f b/lapack-netlib/SRC/DEPRECATED/zlatzm.f index f53010a3d8..8b93c5a7b3 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/zlatzm.f @@ -145,17 +145,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/ztzrqf.f b/lapack-netlib/SRC/DEPRECATED/ztzrqf.f index 7bfb2e0b5b..d3c356dcb9 100644 --- a/lapack-netlib/SRC/DEPRECATED/ztzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/ztzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE ZTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/Makefile b/lapack-netlib/SRC/Makefile index afeeeaf0b2..03d15c23c3 100644 --- a/lapack-netlib/SRC/Makefile +++ b/lapack-netlib/SRC/Makefile @@ -58,13 +58,21 @@ TOPSRCDIR = .. include $(TOPSRCDIR)/make.inc ifneq ($(C_LAPACK), 1) +ALLMOD = la_xisnan.mod la_constants.mod + .SUFFIXES: -.SUFFIXES: .f .o -.f.o: +.SUFFIXES: .f .F .f90 .F90 .o .mod +%.o: %.f + $(FC) $(FFLAGS) -c -o $@ $< +%.o: %.F $(ALLMOD) + $(FC) $(FFLAGS) -c -o $@ $< +%.o: %.f90 $(ALLMOD) $(FC) $(FFLAGS) -c -o $@ $< -.SUFFIXES: .F .o -.F.o: +%.o: %.F90 $(ALLMOD) $(FC) $(FFLAGS) -c -o $@ $< +.o.mod: + @true + else .SUFFIXES: .c .o .c.o: @@ -73,7 +81,7 @@ endif ALLAUX_O = ilaenv.o ilaenv2stage.o ieeeck.o lsamen.o xerbla.o xerbla_array.o \ iparmq.o iparam2stage.o \ - ilaprec.o ilatrans.o ilauplo.o iladiag.o chla_transtype.o \ + ilaprec.o ilatrans.o ilauplo.o iladiag.o chla_transtype.o la_xisnan.o \ ../INSTALL/ilaver.o ../INSTALL/lsame.o ../INSTALL/slamch.o ifneq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" "" @@ -93,7 +101,7 @@ SCLAUX = \ slaset.o slasq1.o slasq2.o slasq3.o slasq4.o slasq5.o slasq6.o \ slasr.o slasrt.o slassq.o slasv2.o spttrf.o sstebz.o sstedc.o \ ssteqr.o ssterf.o slaisnan.o sisnan.o \ - slartgp.o slartgs.o scombssq.o \ + slartgp.o slartgs.o scombssq.o ../INSTALL/sroundup_lwork.o \ ../INSTALL/second_$(TIMER).o endif @@ -115,7 +123,7 @@ DZLAUX = \ dlaset.o dlasq1.o dlasq2.o dlasq3.o dlasq4.o dlasq5.o dlasq6.o \ dlasr.o dlasrt.o dlassq.o dlasv2.o dpttrf.o dstebz.o dstedc.o \ dsteqr.o dsterf.o dlaisnan.o disnan.o \ - dlartgp.o dlartgs.o \ + dlartgp.o dlartgs.o ../INSTALL/droundup_lwork.o \ ../INSTALL/dlamch.o ../INSTALL/dsecnd_$(TIMER).o endif @@ -136,6 +144,7 @@ SLASRC_O = \ sggglm.o sgghrd.o sgghd3.o sgglse.o sggqrf.o \ sggrqf.o sggsvd3.o sggsvp3.o sgtcon.o sgtrfs.o sgtsv.o \ sgtsvx.o sgttrf.o sgttrs.o sgtts2.o shgeqz.o \ + slaqz0.o slaqz1.o slaqz2.o slaqz3.o slaqz4.o \ shsein.o shseqr.o slabrd.o slacon.o slacn2.o \ slaein.o slaexc.o slag2.o slags2.o slagtm.o slagv2.o slahqr.o \ slahr2.o slaic1.o slaln2.o slals0.o slalsa.o slalsd.o \ @@ -260,6 +269,7 @@ CLASRC_O = \ claqhb.o claqhe.o claqhp.o claqp2.o claqps.o claqsb.o \ claqr0.o claqr1.o claqr2.o claqr3.o claqr4.o claqr5.o \ claqsp.o claqsy.o clar1v.o clar2v.o ilaclr.o ilaclc.o \ + claqz0.o claqz1.o claqz2.o claqz3.o \ clarf.o clarfb.o clarfb_gett.o clarfg.o clarft.o clarfgp.o \ clarfx.o clarfy.o clargv.o clarnv.o clarrv.o clartg.o clartv.o \ clarz.o clarzb.o clarzt.o clascl.o claset.o clasr.o classq.o \ @@ -343,6 +353,7 @@ DLASRC_O = \ dggglm.o dgghrd.o dgghd3.o dgglse.o dggqrf.o \ dggrqf.o dggsvd3.o dggsvp3.o dgtcon.o dgtrfs.o dgtsv.o \ dgtsvx.o dgttrf.o dgttrs.o dgtts2.o dhgeqz.o \ + dlaqz0.o dlaqz1.o dlaqz2.o dlaqz3.o dlaqz4.o \ dhsein.o dhseqr.o dlabrd.o dlacon.o dlacn2.o \ dlaein.o dlaexc.o dlag2.o dlags2.o dlagtm.o dlagv2.o dlahqr.o \ dlahr2.o dlaic1.o dlaln2.o dlals0.o dlalsa.o dlalsd.o \ @@ -465,6 +476,7 @@ ZLASRC_O = \ zlaqhb.o zlaqhe.o zlaqhp.o zlaqp2.o zlaqps.o zlaqsb.o \ zlaqr0.o zlaqr1.o zlaqr2.o zlaqr3.o zlaqr4.o zlaqr5.o \ zlaqsp.o zlaqsy.o zlar1v.o zlar2v.o ilazlr.o ilazlc.o \ + zlaqz0.o zlaqz1.o zlaqz2.o zlaqz3.o \ zlarcm.o zlarf.o zlarfb.o zlarfb_gett.o \ zlarfg.o zlarft.o zlarfgp.o \ zlarfx.o zlarfy.o zlargv.o zlarnv.o zlarrv.o zlartg.o zlartv.o \ @@ -659,6 +671,11 @@ sla_wwaddw.o: sla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dla_wwaddw.o: dla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< cla_wwaddw.o: cla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< zla_wwaddw.o: zla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +# Modules +la_xisnan.o: la_xisnan.F90 la_constants.mod + $(FC) $(FFLAGS) -c -o $@ $< +la_constants.o: la_constants.f90 + $(FC) $(FFLAGS) -c -o $@ $< else slaruv.o: slaruv.c ; $(CC) $(CFLAGS) -c -o $@ $< dlaruv.o: dlaruv.c ; $(CC) $(CFLAGS) -c -o $@ $< diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f index 8cec8809ff..16d250c3ff 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f index 400fbf7e53..1575bd95ca 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f index 090e528aed..67ebae3351 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f index 149eaacc28..76d8bab610 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f index fd2b13e61c..d6149c08f0 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f index dbb51c415f..e49200ea5a 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f index 81034df37d..65895502b4 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f index 0096670905..f8b9e253cc 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f index 2bddb4452c..e78442914e 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f index ce0ab2243f..9bccb19bc8 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f index bb65431397..c12dd38f94 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f index 39090e6f30..75b26586da 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f index 77c747246d..67902e5688 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f index 9f25abd924..5f77b919ee 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f index 765caccb00..2d47969032 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f index ef3fbf418a..85db51b845 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f @@ -100,10 +100,9 @@ * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f index 9daab38729..a8fe3fb28f 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f @@ -137,7 +137,6 @@ SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f index db6cece24c..5c79747d22 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f @@ -137,7 +137,6 @@ SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f index 379ad1c9af..3c045e576a 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f @@ -137,7 +137,6 @@ SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f index dc42c83f45..0484eb89aa 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f @@ -137,7 +137,6 @@ SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f index 3cbec13c7f..369ed19833 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f @@ -149,10 +149,9 @@ * ===================================================================== SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f index 8f1979da33..be5720f4f6 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f @@ -149,10 +149,9 @@ * ===================================================================== SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f index 86394cc989..a007360ba6 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f @@ -58,10 +58,9 @@ * ===================================================================== REAL FUNCTION SCEIL( A ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments ..* REAL A diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f index 7b0227193d..bff9732144 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f @@ -149,10 +149,9 @@ * ===================================================================== SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f index 4ddad00d61..79e86b41bb 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f @@ -149,10 +149,9 @@ * ===================================================================== SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cbbcsd.f b/lapack-netlib/SRC/cbbcsd.f index b5a18d5b81..1cd1ffbf16 100644 --- a/lapack-netlib/SRC/cbbcsd.f +++ b/lapack-netlib/SRC/cbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ SUBROUTINE CBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - REAL HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + REAL HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0E0, MEIGHTH = -0.125E0, - $ ONE = 1.0E0, PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ONE = 1.0E0, TEN = 10.0E0, ZERO = 0.0E0 ) COMPLEX NEGONECOMPLEX PARAMETER ( NEGONECOMPLEX = (-1.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/cbdsqr.f b/lapack-netlib/SRC/cbdsqr.f index 0bda3a3334..1d7c4e09dd 100644 --- a/lapack-netlib/SRC/cbdsqr.f +++ b/lapack-netlib/SRC/cbdsqr.f @@ -214,18 +214,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cgbbrd.f b/lapack-netlib/SRC/cgbbrd.f index e4e820aa48..7bac090e96 100644 --- a/lapack-netlib/SRC/cgbbrd.f +++ b/lapack-netlib/SRC/cgbbrd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/cgbcon.f b/lapack-netlib/SRC/cgbcon.f index 1d32a68999..4578424586 100644 --- a/lapack-netlib/SRC/cgbcon.f +++ b/lapack-netlib/SRC/cgbcon.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgbequ.f b/lapack-netlib/SRC/cgbequ.f index 100f920e1e..b52043dee3 100644 --- a/lapack-netlib/SRC/cgbequ.f +++ b/lapack-netlib/SRC/cgbequ.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbequb.f b/lapack-netlib/SRC/cgbequb.f index fd69a575b3..788fb378fe 100644 --- a/lapack-netlib/SRC/cgbequb.f +++ b/lapack-netlib/SRC/cgbequb.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbrfs.f b/lapack-netlib/SRC/cgbrfs.f index 464128b848..72c70349fa 100644 --- a/lapack-netlib/SRC/cgbrfs.f +++ b/lapack-netlib/SRC/cgbrfs.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -206,10 +204,9 @@ SUBROUTINE CGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgbrfsx.f b/lapack-netlib/SRC/cgbrfsx.f index c23608afb3..1587d21f6e 100644 --- a/lapack-netlib/SRC/cgbrfsx.f +++ b/lapack-netlib/SRC/cgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is COMPLEX array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by CGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -153,7 +153,7 @@ *> \param[in] IPIV *> \verbatim *> IPIV is INTEGER array, dimension (N) -*> The pivot indices from SGETRF; for 1<=i<=N, row i of the +*> The pivot indices from CGETRF; for 1<=i<=N, row i of the *> matrix was interchanged with row IPIV(i). *> \endverbatim *> @@ -208,7 +208,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ SUBROUTINE CGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/cgbsv.f b/lapack-netlib/SRC/cgbsv.f index 7368783ada..049d6eeab4 100644 --- a/lapack-netlib/SRC/cgbsv.f +++ b/lapack-netlib/SRC/cgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgbsvx.f b/lapack-netlib/SRC/cgbsvx.f index 1c102cb6da..7b6770d20d 100644 --- a/lapack-netlib/SRC/cgbsvx.f +++ b/lapack-netlib/SRC/cgbsvx.f @@ -361,8 +361,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBsolve * * ===================================================================== @@ -370,10 +368,9 @@ SUBROUTINE CGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgbsvxx.f b/lapack-netlib/SRC/cgbsvxx.f index 9f2bbbc1ce..9396fa0112 100644 --- a/lapack-netlib/SRC/cgbsvxx.f +++ b/lapack-netlib/SRC/cgbsvxx.f @@ -230,7 +230,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains the pivot indices from the factorization A = P*L*U -*> as computed by SGETRF; row i of the matrix was interchanged +*> as computed by CGETRF; row i of the matrix was interchanged *> with row IPIV(i). *> *> If FACT = 'N', then IPIV is an output argument and on exit @@ -349,8 +349,8 @@ *> This also means that the solution X, estimated condition numbers, *> and error bounds could be unreliable. If factorization fails with *> 0 for the leading INFO columns of A. In SGESVX, this quantity is -*> returned in WORK(1). +*> for the leading INFO columns of A. In CGESVX, this quantity is +*> returned in RWORK(1). *> \endverbatim *> *> \param[out] BERR @@ -552,8 +552,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBsolve * * ===================================================================== @@ -563,10 +561,9 @@ SUBROUTINE CGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS @@ -638,7 +635,7 @@ SUBROUTINE CGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * RPVGRW = ZERO * -* Test the input parameters. PARAMS is not tested until SGERFSX. +* Test the input parameters. PARAMS is not tested until CGERFSX. * IF( .NOT.NOFACT .AND. .NOT.EQUIL .AND. .NOT. $ LSAME( FACT, 'F' ) ) THEN diff --git a/lapack-netlib/SRC/cgbtf2.f b/lapack-netlib/SRC/cgbtf2.f index cd34d284dc..8c58d6e118 100644 --- a/lapack-netlib/SRC/cgbtf2.f +++ b/lapack-netlib/SRC/cgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbtrf.f b/lapack-netlib/SRC/cgbtrf.f index 601d063f24..8533e0061d 100644 --- a/lapack-netlib/SRC/cgbtrf.f +++ b/lapack-netlib/SRC/cgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbtrs.f b/lapack-netlib/SRC/cgbtrs.f index 75d195316e..362e0a4c98 100644 --- a/lapack-netlib/SRC/cgbtrs.f +++ b/lapack-netlib/SRC/cgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgebak.f b/lapack-netlib/SRC/cgebak.f index 9b64026220..201dbfcec4 100644 --- a/lapack-netlib/SRC/cgebak.f +++ b/lapack-netlib/SRC/cgebak.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/cgebal.f b/lapack-netlib/SRC/cgebal.f index 9f3c25c053..5d1ebb026e 100644 --- a/lapack-netlib/SRC/cgebal.f +++ b/lapack-netlib/SRC/cgebal.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -161,10 +159,9 @@ * ===================================================================== SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/cgebd2.f b/lapack-netlib/SRC/cgebd2.f index a234f36ac1..db949f90cf 100644 --- a/lapack-netlib/SRC/cgebd2.f +++ b/lapack-netlib/SRC/cgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * @precisions normal c -> s d z * @@ -190,10 +188,9 @@ * ===================================================================== SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -248,7 +245,7 @@ SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I ) CALL CLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) A( I, I ) = ONE * * Apply H(i)**H to A(i:m,i+1:n) from the left @@ -267,7 +264,7 @@ SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I+1 ) CALL CLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), $ LDA, TAUP( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I, I+1 ) = ONE * * Apply G(i) to A(i+1:m,i+1:n) from the right @@ -292,7 +289,7 @@ SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I ) CALL CLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) A( I, I ) = ONE * * Apply G(i) to A(i+1:m,i:n) from the right @@ -311,7 +308,7 @@ SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I+1, I ) CALL CLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Apply H(i)**H to A(i+1:m,i+1:n) from the left diff --git a/lapack-netlib/SRC/cgebrd.f b/lapack-netlib/SRC/cgebrd.f index eebd26f12b..5687161a50 100644 --- a/lapack-netlib/SRC/cgebrd.f +++ b/lapack-netlib/SRC/cgebrd.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -206,10 +204,9 @@ SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgecon.f b/lapack-netlib/SRC/cgecon.f index fb57da2e13..48f409b680 100644 --- a/lapack-netlib/SRC/cgecon.f +++ b/lapack-netlib/SRC/cgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgeequ.f b/lapack-netlib/SRC/cgeequ.f index 75aa2d7db8..40b022fab3 100644 --- a/lapack-netlib/SRC/cgeequ.f +++ b/lapack-netlib/SRC/cgeequ.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeequb.f b/lapack-netlib/SRC/cgeequb.f index 3f738b83d8..4beffcc849 100644 --- a/lapack-netlib/SRC/cgeequb.f +++ b/lapack-netlib/SRC/cgeequb.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgees.f b/lapack-netlib/SRC/cgees.f index 4da2cdf3b0..359fa2afec 100644 --- a/lapack-netlib/SRC/cgees.f +++ b/lapack-netlib/SRC/cgees.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT @@ -285,7 +282,7 @@ SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * CALL CHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = REAL( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/cgeesx.f b/lapack-netlib/SRC/cgeesx.f index dd833ae7e9..1113563ba2 100644 --- a/lapack-netlib/SRC/cgeesx.f +++ b/lapack-netlib/SRC/cgeesx.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -239,10 +237,9 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT @@ -340,7 +337,7 @@ SUBROUTINE CGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * CALL CHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = REAL( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/cgeev.f b/lapack-netlib/SRC/cgeev.f index f07d9b755b..a77525ef84 100644 --- a/lapack-netlib/SRC/cgeev.f +++ b/lapack-netlib/SRC/cgeev.f @@ -169,7 +169,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from zgeev.f, fortran z -> c, Tue Apr 19 01:47:44 2016 * @@ -180,10 +179,9 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, $ WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/cgeevx.f b/lapack-netlib/SRC/cgeevx.f index b1ff3cc674..2388f5accf 100644 --- a/lapack-netlib/SRC/cgeevx.f +++ b/lapack-netlib/SRC/cgeevx.f @@ -276,7 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from zgeevx.f, fortran z -> c, Tue Apr 19 01:47:44 2016 * @@ -288,10 +287,9 @@ SUBROUTINE CGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, $ RCONDV, WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/cgehd2.f b/lapack-netlib/SRC/cgehd2.f index d4d78b4f2b..d8b40b180c 100644 --- a/lapack-netlib/SRC/cgehd2.f +++ b/lapack-netlib/SRC/cgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/cgehrd.f b/lapack-netlib/SRC/cgehrd.f index ca0f2d54d9..d9c0502675 100644 --- a/lapack-netlib/SRC/cgehrd.f +++ b/lapack-netlib/SRC/cgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's CGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See CLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cgejsv.f b/lapack-netlib/SRC/cgejsv.f index 350da4c409..25ab813028 100644 --- a/lapack-netlib/SRC/cgejsv.f +++ b/lapack-netlib/SRC/cgejsv.f @@ -359,7 +359,7 @@ *> RWORK(3) = SCONDA is an estimate for the condition number of *> column equilibrated A. (If JOBA = 'E' or 'G') *> SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). -*> It is computed using SPOCON. It holds +*> It is computed using CPOCON. It holds *> N^(-1/4) * SCONDA <= ||R^(-1)||_2 <= N^(1/4) * SCONDA *> where R is the triangular factor from the QRF of A. *> However, if R is truncated and the numerical rank is @@ -368,7 +368,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -484,8 +484,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * *> \par Further Details: @@ -568,10 +566,9 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. IMPLICIT NONE @@ -707,11 +704,11 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL CGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_CGEQP3 = CDUMMY(1) + LWRK_CGEQP3 = REAL( CDUMMY(1) ) CALL CGEQRF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_CGEQRF = CDUMMY(1) + LWRK_CGEQRF = REAL( CDUMMY(1) ) CALL CGELQF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_CGELQF = CDUMMY(1) + LWRK_CGELQF = REAL( CDUMMY(1) ) END IF MINWRK = 2 OPTWRK = 2 @@ -727,7 +724,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'N', 'N', N, N, A, LDA, SVA, N, V, $ LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N**2+LWCON, $ N+LWRK_CGEQRF, LWRK_CGESVJ ) @@ -763,10 +760,10 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMLQ = CDUMMY(1) + LWRK_CUNMLQ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, LWCON, LWRK_CGESVJ, $ N+LWRK_CGELQF, 2*N+LWRK_CGEQRF, @@ -802,10 +799,10 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = N + MAX( LWRK_CGEQP3, LWCON, N+LWRK_CGEQRF, $ LWRK_CGESVJ, LWRK_CUNMQRM ) @@ -864,26 +861,26 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', N, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQR = CDUMMY(1) + LWRK_CUNMQR = REAL( CDUMMY(1) ) IF ( .NOT. JRACC ) THEN CALL CGEQP3( N,N, A, LDA, IWORK, CDUMMY,CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_CGEQP3N = CDUMMY(1) + LWRK_CGEQP3N = REAL( CDUMMY(1) ) CALL CGESVJ( 'L', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CGESVJ( 'U', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJU = CDUMMY(1) + LWRK_CGESVJU = REAL( CDUMMY(1) ) CALL CGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJV = CDUMMY(1) + LWRK_CGESVJV = REAL( CDUMMY(1) ) CALL CUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMLQ = CDUMMY(1) + LWRK_CUNMLQ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N+LWCON, $ 2*N+N**2+LWCON, 2*N+LWRK_CGEQRF, @@ -912,13 +909,13 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, ELSE CALL CGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJV = CDUMMY(1) + LWRK_CGESVJV = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', N, N, N, CDUMMY, N, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMQR = CDUMMY(1) + LWRK_CUNMQR = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N+LWCON, $ 2*N+LWRK_CGEQRF, 2*N+N**2, @@ -1314,7 +1311,7 @@ SUBROUTINE CGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * (eg speed by replacing global with restricted window pivoting, such * as in xGEQPX from TOMS # 782). Good results will be obtained using * xGEQPX with properly (!) chosen numerical parameters. -* Any improvement of CGEQP3 improves overal performance of CGEJSV. +* Any improvement of CGEQP3 improves overall performance of CGEJSV. * * A * P1 = Q1 * [ R1^* 0]^*: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/cgelq.f b/lapack-netlib/SRC/cgelq.f index f0ff3a20d6..d66033166d 100644 --- a/lapack-netlib/SRC/cgelq.f +++ b/lapack-netlib/SRC/cgelq.f @@ -170,10 +170,9 @@ SUBROUTINE CGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/cgelq2.f b/lapack-netlib/SRC/cgelq2.f index 3fab2c3966..0ea4a7200f 100644 --- a/lapack-netlib/SRC/cgelq2.f +++ b/lapack-netlib/SRC/cgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgelqf.f b/lapack-netlib/SRC/cgelqf.f index 030ac0b4d5..37ef13a276 100644 --- a/lapack-netlib/SRC/cgelqf.f +++ b/lapack-netlib/SRC/cgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgelqt.f b/lapack-netlib/SRC/cgelqt.f index f40db0b028..3a66dc0cab 100644 --- a/lapack-netlib/SRC/cgelqt.f +++ b/lapack-netlib/SRC/cgelqt.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -124,10 +122,9 @@ * ===================================================================== SUBROUTINE CGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/cgelqt3.f b/lapack-netlib/SRC/cgelqt3.f index 80a9a9fc72..1dfbd3f2b1 100644 --- a/lapack-netlib/SRC/cgelqt3.f +++ b/lapack-netlib/SRC/cgelqt3.f @@ -43,7 +43,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX array, dimension (LDA,N) -*> On entry, the real M-by-N matrix A. On exit, the elements on and +*> On entry, the complex M-by-N matrix A. On exit, the elements on and *> below the diagonal contain the N-by-N lower triangular matrix L; the *> elements above the diagonal are the rows of V. See below for *> further details. @@ -85,8 +85,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -116,10 +114,9 @@ * ===================================================================== RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -160,7 +157,7 @@ RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL CLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1)) diff --git a/lapack-netlib/SRC/cgels.f b/lapack-netlib/SRC/cgels.f index dbef9fa365..fd98873406 100644 --- a/lapack-netlib/SRC/cgels.f +++ b/lapack-netlib/SRC/cgels.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgelsd.f b/lapack-netlib/SRC/cgelsd.f index 2c29c3d59e..fce4ca6e29 100644 --- a/lapack-netlib/SRC/cgelsd.f +++ b/lapack-netlib/SRC/cgelsd.f @@ -210,8 +210,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * *> \par Contributors: @@ -225,10 +223,9 @@ SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/cgelss.f b/lapack-netlib/SRC/cgelss.f index 84faa29bc3..04defbb2e4 100644 --- a/lapack-netlib/SRC/cgelss.f +++ b/lapack-netlib/SRC/cgelss.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK @@ -269,11 +266,11 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * * Compute space needed for CGEQRF CALL CGEQRF( M, N, A, LDA, DUM(1), DUM(1), -1, INFO ) - LWORK_CGEQRF=DUM(1) + LWORK_CGEQRF = REAL( DUM(1) ) * Compute space needed for CUNMQR CALL CUNMQR( 'L', 'C', M, NRHS, N, A, LDA, DUM(1), B, $ LDB, DUM(1), -1, INFO ) - LWORK_CUNMQR=DUM(1) + LWORK_CUNMQR = REAL( DUM(1) ) MM = N MAXWRK = MAX( MAXWRK, N + N*ILAENV( 1, 'CGEQRF', ' ', M, $ N, -1, -1 ) ) @@ -287,15 +284,15 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for CGEBRD CALL CGEBRD( MM, N, A, LDA, S, S, DUM(1), DUM(1), DUM(1), $ -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) * Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNMBR ) @@ -313,23 +310,23 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for CGELQF CALL CGELQF( M, N, A, LDA, DUM(1), DUM(1), $ -1, INFO ) - LWORK_CGELQF=DUM(1) + LWORK_CGELQF = REAL( DUM(1) ) * Compute space needed for CGEBRD CALL CGEBRD( M, M, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', M, M, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) * Compute space needed for CUNMLQ CALL CUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMLQ=DUM(1) + LWORK_CUNMLQ = REAL( DUM(1) ) * Compute total workspace needed MAXWRK = M + LWORK_CGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CGEBRD ) @@ -348,15 +345,15 @@ SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for CGEBRD CALL CGEBRD( M, N, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', M, N, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) MAXWRK = 2*M + LWORK_CGEBRD MAXWRK = MAX( MAXWRK, 2*M + LWORK_CUNMBR ) MAXWRK = MAX( MAXWRK, 2*M + LWORK_CUNGBR ) diff --git a/lapack-netlib/SRC/cgelsy.f b/lapack-netlib/SRC/cgelsy.f index d235087d42..67140f1913 100644 --- a/lapack-netlib/SRC/cgelsy.f +++ b/lapack-netlib/SRC/cgelsy.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/cgemlq.f b/lapack-netlib/SRC/cgemlq.f index 4e374077ee..e0cf78bc0f 100644 --- a/lapack-netlib/SRC/cgemlq.f +++ b/lapack-netlib/SRC/cgemlq.f @@ -37,15 +37,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -99,7 +99,7 @@ *> \verbatim *> C is COMPLEX array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -168,10 +168,9 @@ SUBROUTINE CGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgemlqt.f b/lapack-netlib/SRC/cgemlqt.f index 66b186bff9..a4710f1158 100644 --- a/lapack-netlib/SRC/cgemlqt.f +++ b/lapack-netlib/SRC/cgemlqt.f @@ -20,13 +20,13 @@ *> *> \verbatim *> -*> CGEMLQT overwrites the general real M-by-N matrix C with +*> CGEMLQT overwrites the general complex M-by-N matrix C with *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q C C Q *> TRANS = 'C': Q**H C C Q**H *> -*> where Q is a complex orthogonal matrix defined as the product of K +*> where Q is a complex unitary matrix defined as the product of K *> elementary reflectors: *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H @@ -50,7 +50,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -79,7 +79,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in CGELQT. *> \endverbatim *> *> \param[in] V @@ -89,7 +89,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> CGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -102,7 +102,7 @@ *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by CGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -171,7 +168,7 @@ SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -195,8 +192,10 @@ SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -206,7 +205,7 @@ SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/cgemqr.f b/lapack-netlib/SRC/cgemqr.f index 54ab7aa746..ea9de146e5 100644 --- a/lapack-netlib/SRC/cgemqr.f +++ b/lapack-netlib/SRC/cgemqr.f @@ -38,15 +38,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -100,7 +100,7 @@ *> \verbatim *> C is COMPLEX array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -170,10 +170,9 @@ SUBROUTINE CGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgemqrt.f b/lapack-netlib/SRC/cgemqrt.f index 4926fb7f65..36fa333aa5 100644 --- a/lapack-netlib/SRC/cgemqrt.f +++ b/lapack-netlib/SRC/cgemqrt.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgeql2.f b/lapack-netlib/SRC/cgeql2.f index b9521ba4ad..41a5f9e049 100644 --- a/lapack-netlib/SRC/cgeql2.f +++ b/lapack-netlib/SRC/cgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqlf.f b/lapack-netlib/SRC/cgeqlf.f index fdd03f9e10..d2c11c2697 100644 --- a/lapack-netlib/SRC/cgeqlf.f +++ b/lapack-netlib/SRC/cgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqp3.f b/lapack-netlib/SRC/cgeqp3.f index e3d109de92..402cf21f2d 100644 --- a/lapack-netlib/SRC/cgeqp3.f +++ b/lapack-netlib/SRC/cgeqp3.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqr.f b/lapack-netlib/SRC/cgeqr.f index e0aea88b13..d10e3da65f 100644 --- a/lapack-netlib/SRC/cgeqr.f +++ b/lapack-netlib/SRC/cgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/cgeqr2.f b/lapack-netlib/SRC/cgeqr2.f index 8cb2fa119d..b0b346b2db 100644 --- a/lapack-netlib/SRC/cgeqr2.f +++ b/lapack-netlib/SRC/cgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqr2p.f b/lapack-netlib/SRC/cgeqr2p.f index 1e7b980df4..7be7e7a1c9 100644 --- a/lapack-netlib/SRC/cgeqr2p.f +++ b/lapack-netlib/SRC/cgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqrf.f b/lapack-netlib/SRC/cgeqrf.f index ff0c53f2ff..d71bd5b33b 100644 --- a/lapack-netlib/SRC/cgeqrf.f +++ b/lapack-netlib/SRC/cgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'CGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'CGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/cgeqrfp.f b/lapack-netlib/SRC/cgeqrfp.f index 9c29ac90b6..995404f43e 100644 --- a/lapack-netlib/SRC/cgeqrfp.f +++ b/lapack-netlib/SRC/cgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqrt.f b/lapack-netlib/SRC/cgeqrt.f index ef9c1c3c7d..c5eeddf7da 100644 --- a/lapack-netlib/SRC/cgeqrt.f +++ b/lapack-netlib/SRC/cgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/cgeqrt3.f b/lapack-netlib/SRC/cgeqrt3.f index e3cfeeaca0..f62aee4b50 100644 --- a/lapack-netlib/SRC/cgeqrt3.f +++ b/lapack-netlib/SRC/cgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/cgerfs.f b/lapack-netlib/SRC/cgerfs.f index 6178321daa..6026c4bee9 100644 --- a/lapack-netlib/SRC/cgerfs.f +++ b/lapack-netlib/SRC/cgerfs.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgerfsx.f b/lapack-netlib/SRC/cgerfsx.f index a6e24ae4f9..d6682654fa 100644 --- a/lapack-netlib/SRC/cgerfsx.f +++ b/lapack-netlib/SRC/cgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ SUBROUTINE CGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/cgerq2.f b/lapack-netlib/SRC/cgerq2.f index b0844ea7b2..a2cf5cf696 100644 --- a/lapack-netlib/SRC/cgerq2.f +++ b/lapack-netlib/SRC/cgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgerqf.f b/lapack-netlib/SRC/cgerqf.f index 4ae26e817c..d2247844ce 100644 --- a/lapack-netlib/SRC/cgerqf.f +++ b/lapack-netlib/SRC/cgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/cgesc2.f b/lapack-netlib/SRC/cgesc2.f index 6f45a09a63..129e498d9e 100644 --- a/lapack-netlib/SRC/cgesc2.f +++ b/lapack-netlib/SRC/cgesc2.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/cgesdd.f b/lapack-netlib/SRC/cgesdd.f index 34a80beea9..b824374d3b 100644 --- a/lapack-netlib/SRC/cgesdd.f +++ b/lapack-netlib/SRC/cgesdd.f @@ -199,9 +199,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: The updating process of SBDSDC did not converge. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -212,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * *> \par Contributors: @@ -227,10 +226,9 @@ SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, RWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -282,8 +280,9 @@ SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * .. * .. External Functions .. LOGICAL LSAME, SISNAN - REAL SLAMCH, CLANGE - EXTERNAL LSAME, SLAMCH, CLANGE, SISNAN + REAL SLAMCH, CLANGE, SROUNDUP_LWORK + EXTERNAL LSAME, SLAMCH, CLANGE, SISNAN, + $ SROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -619,7 +618,7 @@ SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, MAXWRK = MAX( MAXWRK, MINWRK ) END IF IF( INFO.EQ.0 ) THEN - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) IF( LWORK.LT.MINWRK .AND. .NOT. LQUERY ) THEN INFO = -12 END IF @@ -2215,7 +2214,7 @@ SUBROUTINE CGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/cgesv.f b/lapack-netlib/SRC/cgesv.f index 2b0fb21536..d18ed03758 100644 --- a/lapack-netlib/SRC/cgesv.f +++ b/lapack-netlib/SRC/cgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgesvd.f b/lapack-netlib/SRC/cgesvd.f index cdcf9db3cd..239b134315 100644 --- a/lapack-netlib/SRC/cgesvd.f +++ b/lapack-netlib/SRC/cgesvd.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsing * * ===================================================================== SUBROUTINE CGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/cgesvdq.f b/lapack-netlib/SRC/cgesvdq.f index 77c883dde2..1a587eca36 100644 --- a/lapack-netlib/SRC/cgesvdq.f +++ b/lapack-netlib/SRC/cgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -315,7 +315,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in CGESVD applied to the upper triangular or trapeziodal +*> exact zeros in CGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> CGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup complexGEsing * * ===================================================================== @@ -640,7 +638,7 @@ SUBROUTINE CGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 CGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 CGESVD +* .. minimal workspace length for N/2 x N/2 CGESVD LWSVD2 = MAX( 3 * (N/2), 1 ) LWUNQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/cgesvdx.f b/lapack-netlib/SRC/cgesvdx.f index 5b08d5732c..fbdb121ca7 100644 --- a/lapack-netlib/SRC/cgesvdx.f +++ b/lapack-netlib/SRC/cgesvdx.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * * ===================================================================== @@ -270,10 +268,9 @@ SUBROUTINE CGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/cgesvj.f b/lapack-netlib/SRC/cgesvj.f index 81e40efeff..149cf5e484 100644 --- a/lapack-netlib/SRC/cgesvj.f +++ b/lapack-netlib/SRC/cgesvj.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -296,7 +294,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -351,10 +349,9 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/cgesvx.f b/lapack-netlib/SRC/cgesvx.f index 321ace26be..66c714bb1c 100644 --- a/lapack-netlib/SRC/cgesvx.f +++ b/lapack-netlib/SRC/cgesvx.f @@ -341,8 +341,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsolve * * ===================================================================== @@ -350,10 +348,9 @@ SUBROUTINE CGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgesvxx.f b/lapack-netlib/SRC/cgesvxx.f index 383e4d0112..e50f1b56f4 100644 --- a/lapack-netlib/SRC/cgesvxx.f +++ b/lapack-netlib/SRC/cgesvxx.f @@ -532,8 +532,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsolve * * ===================================================================== @@ -543,10 +541,9 @@ SUBROUTINE CGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgetc2.f b/lapack-netlib/SRC/cgetc2.f index e4a414fc27..94267d7670 100644 --- a/lapack-netlib/SRC/cgetc2.f +++ b/lapack-netlib/SRC/cgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/cgetf2.f b/lapack-netlib/SRC/cgetf2.f index 083e6cce1e..aac9899702 100644 --- a/lapack-netlib/SRC/cgetf2.f +++ b/lapack-netlib/SRC/cgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetrf.f b/lapack-netlib/SRC/cgetrf.f index 4e72995f53..d08e0bb9a5 100644 --- a/lapack-netlib/SRC/cgetrf.f +++ b/lapack-netlib/SRC/cgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetrf2.f b/lapack-netlib/SRC/cgetrf2.f index eda77e2270..796dd50054 100644 --- a/lapack-netlib/SRC/cgetrf2.f +++ b/lapack-netlib/SRC/cgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetri.f b/lapack-netlib/SRC/cgetri.f index bc83f74c66..bd7fc286c8 100644 --- a/lapack-netlib/SRC/cgetri.f +++ b/lapack-netlib/SRC/cgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cgetrs.f b/lapack-netlib/SRC/cgetrs.f index 6dc63e70df..187b1a686c 100644 --- a/lapack-netlib/SRC/cgetrs.f +++ b/lapack-netlib/SRC/cgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgetsls.f b/lapack-netlib/SRC/cgetsls.f index 01de3c9847..8a4d022246 100644 --- a/lapack-netlib/SRC/cgetsls.f +++ b/lapack-netlib/SRC/cgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -186,17 +183,16 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 REAL ANRM, BIGNUM, BNRM, SMLNUM, DUM( 1 ) COMPLEX TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SLAMCH, CLANGE - EXTERNAL LSAME, ILAENV, SLABAD, SLAMCH, CLANGE + EXTERNAL LSAME, SLABAD, SLAMCH, CLANGE * .. * .. External Subroutines .. EXTERNAL CGEQR, CGEMQR, CLASCL, CLASET, @@ -210,9 +206,7 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'C' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -233,7 +227,7 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL CGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -270,16 +264,16 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = REAL( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CGETSLS', -INFO ) - WORK( 1 ) = REAL( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) RETURN END IF @@ -494,6 +488,6 @@ SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK( 1 ) = REAL( TSZO + LWO ) RETURN * -* End of ZGETSLS +* End of CGETSLS * END diff --git a/lapack-netlib/SRC/cggbak.f b/lapack-netlib/SRC/cggbak.f index 3626ecbeb8..e8ac348050 100644 --- a/lapack-netlib/SRC/cggbak.f +++ b/lapack-netlib/SRC/cggbak.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ SUBROUTINE CGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/cggbal.f b/lapack-netlib/SRC/cggbal.f index 8c7324c70c..c7a2324157 100644 --- a/lapack-netlib/SRC/cggbal.f +++ b/lapack-netlib/SRC/cggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE CGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/cgges.f b/lapack-netlib/SRC/cgges.f index 988b8a8539..c54174da49 100644 --- a/lapack-netlib/SRC/cgges.f +++ b/lapack-netlib/SRC/cgges.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -270,10 +268,9 @@ SUBROUTINE CGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/cgges3.f b/lapack-netlib/SRC/cgges3.f index 876a26df96..aac9f95103 100644 --- a/lapack-netlib/SRC/cgges3.f +++ b/lapack-netlib/SRC/cgges3.f @@ -243,7 +243,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHA(j) and BETA(j) should be correct for *> j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in CHGEQZ +*> > N: =N+1: other than QZ iteration failed in CLAQZ0 *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -269,10 +267,9 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -312,7 +309,7 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, REAL DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CHGEQZ, CLACPY, + EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CLAQZ0, CLACPY, $ CLASCL, CLASET, CTGSEN, CUNGQR, CUNMQR, SLABAD, $ XERBLA * .. @@ -392,9 +389,9 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, CALL CGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) - CALL CHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) IF( WANTST ) THEN CALL CTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -509,9 +506,9 @@ SUBROUTINE CGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL CHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/cggesx.f b/lapack-netlib/SRC/cggesx.f index acc4eda369..6385a74c11 100644 --- a/lapack-netlib/SRC/cggesx.f +++ b/lapack-netlib/SRC/cggesx.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -330,10 +328,9 @@ SUBROUTINE CGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/cggev.f b/lapack-netlib/SRC/cggev.f index 678a0e51dd..c1c28a1805 100644 --- a/lapack-netlib/SRC/cggev.f +++ b/lapack-netlib/SRC/cggev.f @@ -197,8 +197,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in SHGEQZ, -*> =N+2: error return from STGEVC. +*> > N: =N+1: other then QZ iteration failed in CHGEQZ, +*> =N+2: error return from CTGEVC. *> \endverbatim * * Authors: @@ -209,18 +209,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/cggev3.f b/lapack-netlib/SRC/cggev3.f index f34b8f2c41..9483ecdeb1 100644 --- a/lapack-netlib/SRC/cggev3.f +++ b/lapack-netlib/SRC/cggev3.f @@ -196,8 +196,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in SHGEQZ, -*> =N+2: error return from STGEVC. +*> > N: =N+1: other then QZ iteration failed in CHGEQZ, +*> =N+2: error return from CTGEVC. *> \endverbatim * * Authors: @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -255,7 +252,7 @@ SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CHGEQZ, CLACPY, + EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CLAQZ0, CLACPY, $ CLASCL, CLASET, CTGEVC, CUNGQR, CUNMQR, SLABAD, $ XERBLA * .. @@ -338,17 +335,17 @@ SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, CALL CGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL CHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) ELSE CALL CGGHD3( 'N', 'N', N, 1, N, A, LDA, B, LDB, VL, LDVL, $ VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL CHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) END IF WORK( 1 ) = CMPLX( LWKOPT ) @@ -471,9 +468,9 @@ SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, ELSE CHTEMP = 'E' END IF - CALL CHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL CLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/cggevx.f b/lapack-netlib/SRC/cggevx.f index c5fb37e888..405c9c3b56 100644 --- a/lapack-netlib/SRC/cggevx.f +++ b/lapack-netlib/SRC/cggevx.f @@ -335,8 +335,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEeigen * *> \par Further Details: @@ -374,10 +372,9 @@ SUBROUTINE CGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE @@ -710,8 +707,8 @@ SUBROUTINE CGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, * IF( .NOT.WANTSN ) THEN * -* compute eigenvectors (STGEVC) and estimate condition -* numbers (STGSNA). Note that the definition of the condition +* compute eigenvectors (CTGEVC) and estimate condition +* numbers (CTGSNA). Note that the definition of the condition * number is not invariant under transformation (u,v) to * (Q*u, Z*v), where (u,v) are eigenvectors of the generalized * Schur form (S,T), Q and Z are orthogonal matrices. In order diff --git a/lapack-netlib/SRC/cggglm.f b/lapack-netlib/SRC/cggglm.f index 9c8e0eec34..3efca1e713 100644 --- a/lapack-netlib/SRC/cggglm.f +++ b/lapack-netlib/SRC/cggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -292,7 +289,7 @@ SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * CALL CGGQRF( N, M, P, A, LDA, WORK, B, LDB, WORK( M+1 ), $ WORK( M+NP+1 ), LWORK-M-NP, INFO ) - LOPT = WORK( M+NP+1 ) + LOPT = REAL( WORK( M+NP+1 ) ) * * Update left-hand-side vector d = Q**H*d = ( d1 ) M * ( d2 ) N-M diff --git a/lapack-netlib/SRC/cgghd3.f b/lapack-netlib/SRC/cgghd3.f index b86c9dc710..76d7de4ce0 100644 --- a/lapack-netlib/SRC/cgghd3.f +++ b/lapack-netlib/SRC/cgghd3.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -221,7 +219,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -231,10 +229,9 @@ SUBROUTINE CGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * IMPLICIT NONE diff --git a/lapack-netlib/SRC/cgghrd.f b/lapack-netlib/SRC/cgghrd.f index e615e3feee..bf96a31381 100644 --- a/lapack-netlib/SRC/cgghrd.f +++ b/lapack-netlib/SRC/cgghrd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -204,10 +202,9 @@ SUBROUTINE CGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/cgglse.f b/lapack-netlib/SRC/cgglse.f index b84dbeca8e..4785941dbe 100644 --- a/lapack-netlib/SRC/cgglse.f +++ b/lapack-netlib/SRC/cgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * * ===================================================================== SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * CALL CGGRQF( P, M, N, B, LDB, WORK, A, LDA, WORK( P+1 ), $ WORK( P+MN+1 ), LWORK-P-MN, INFO ) - LOPT = WORK( P+MN+1 ) + LOPT = REAL( WORK( P+MN+1 ) ) * * Update c = Z**H *c = ( c1 ) N-P * ( c2 ) M+P-N diff --git a/lapack-netlib/SRC/cggqrf.f b/lapack-netlib/SRC/cggqrf.f index 6d3496bef3..febd9be8de 100644 --- a/lapack-netlib/SRC/cggqrf.f +++ b/lapack-netlib/SRC/cggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * QR factorization of N-by-M matrix A: A = Q*R * CALL CGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = REAL( WORK( 1 ) ) * * Update B := Q**H*B. * diff --git a/lapack-netlib/SRC/cggrqf.f b/lapack-netlib/SRC/cggrqf.f index cad1cc0a7b..b43febc1f5 100644 --- a/lapack-netlib/SRC/cggrqf.f +++ b/lapack-netlib/SRC/cggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -278,7 +275,7 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * RQ factorization of M-by-N matrix A: A = R*Q * CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = REAL( WORK( 1 ) ) * * Update B := B*Q**H * diff --git a/lapack-netlib/SRC/cggsvd3.f b/lapack-netlib/SRC/cggsvd3.f index c9b4262f65..f248aebd52 100644 --- a/lapack-netlib/SRC/cggsvd3.f +++ b/lapack-netlib/SRC/cggsvd3.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complexGEsing * *> \par Contributors: @@ -354,10 +352,9 @@ SUBROUTINE CGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/cggsvp3.f b/lapack-netlib/SRC/cggsvp3.f index 8ea60367a5..008a053a20 100644 --- a/lapack-netlib/SRC/cggsvp3.f +++ b/lapack-netlib/SRC/cggsvp3.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -278,10 +276,9 @@ SUBROUTINE CGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/cgsvj0.f b/lapack-netlib/SRC/cgsvj0.f index 810df33677..37853a10a1 100644 --- a/lapack-netlib/SRC/cgsvj0.f +++ b/lapack-netlib/SRC/cgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/cgsvj1.f b/lapack-netlib/SRC/cgsvj1.f index 06b417cf23..f1a5204e32 100644 --- a/lapack-netlib/SRC/cgsvj1.f +++ b/lapack-netlib/SRC/cgsvj1.f @@ -40,7 +40,7 @@ *> CGSVJ1 is called from CGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as CGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributor: @@ -236,10 +234,9 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/cgtcon.f b/lapack-netlib/SRC/cgtcon.f index ed3260532b..b21a19594a 100644 --- a/lapack-netlib/SRC/cgtcon.f +++ b/lapack-netlib/SRC/cgtcon.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgtrfs.f b/lapack-netlib/SRC/cgtrfs.f index 22979a721f..9b76220e84 100644 --- a/lapack-netlib/SRC/cgtrfs.f +++ b/lapack-netlib/SRC/cgtrfs.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE CGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgtsv.f b/lapack-netlib/SRC/cgtsv.f index 6063db0cd3..a9be1b70d5 100644 --- a/lapack-netlib/SRC/cgtsv.f +++ b/lapack-netlib/SRC/cgtsv.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTsolve * * ===================================================================== SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgtsvx.f b/lapack-netlib/SRC/cgtsvx.f index 5ebb25dad7..266e52b99b 100644 --- a/lapack-netlib/SRC/cgtsvx.f +++ b/lapack-netlib/SRC/cgtsvx.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTsolve * * ===================================================================== @@ -294,10 +292,9 @@ SUBROUTINE CGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/cgttrf.f b/lapack-netlib/SRC/cgttrf.f index 04a7a3f861..35d0997daf 100644 --- a/lapack-netlib/SRC/cgttrf.f +++ b/lapack-netlib/SRC/cgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cgttrs.f b/lapack-netlib/SRC/cgttrs.f index 64d675c266..a37ad738e8 100644 --- a/lapack-netlib/SRC/cgttrs.f +++ b/lapack-netlib/SRC/cgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgtts2.f b/lapack-netlib/SRC/cgtts2.f index 68d81cae87..60b5af0985 100644 --- a/lapack-netlib/SRC/cgtts2.f +++ b/lapack-netlib/SRC/cgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/chb2st_kernels.f b/lapack-netlib/SRC/chb2st_kernels.f index 01ea217bb3..ea25b76e1d 100644 --- a/lapack-netlib/SRC/chb2st_kernels.f +++ b/lapack-netlib/SRC/chb2st_kernels.f @@ -170,10 +170,9 @@ SUBROUTINE CHB2ST_KERNELS( UPLO, WANTZ, TTYPE, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ SUBROUTINE CHB2ST_KERNELS( UPLO, WANTZ, TTYPE, * RETURN * -* END OF CHB2ST_KERNELS +* End of CHB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/chbev.f b/lapack-netlib/SRC/chbev.f index 2e7022f1d5..6f82cc46ba 100644 --- a/lapack-netlib/SRC/chbev.f +++ b/lapack-netlib/SRC/chbev.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -223,9 +220,9 @@ SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * IF( N.EQ.1 ) THEN IF( LOWER ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = REAL( AB( 1, 1 ) ) ELSE - W( 1 ) = AB( KD+1, 1 ) + W( 1 ) = REAL( AB( KD+1, 1 ) ) END IF IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/chbev_2stage.f b/lapack-netlib/SRC/chbev_2stage.f index 179fb5a286..123d84729a 100644 --- a/lapack-netlib/SRC/chbev_2stage.f +++ b/lapack-netlib/SRC/chbev_2stage.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -213,10 +211,9 @@ SUBROUTINE CHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbevd.f b/lapack-netlib/SRC/chbevd.f index a54da4386b..1598f4de5e 100644 --- a/lapack-netlib/SRC/chbevd.f +++ b/lapack-netlib/SRC/chbevd.f @@ -207,18 +207,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -323,7 +320,7 @@ SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = REAL( AB( 1, 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/chbevd_2stage.f b/lapack-netlib/SRC/chbevd_2stage.f index 4002339768..340c546e8c 100644 --- a/lapack-netlib/SRC/chbevd_2stage.f +++ b/lapack-netlib/SRC/chbevd_2stage.f @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -262,10 +260,9 @@ SUBROUTINE CHBEVD_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbevx.f b/lapack-netlib/SRC/chbevx.f index c7060bbd70..6b5f549a7f 100644 --- a/lapack-netlib/SRC/chbevx.f +++ b/lapack-netlib/SRC/chbevx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== @@ -267,10 +265,9 @@ SUBROUTINE CHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -382,7 +379,7 @@ SUBROUTINE CHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ M = 0 END IF IF( M.EQ.1 ) THEN - W( 1 ) = CTMP1 + W( 1 ) = REAL( CTMP1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE END IF diff --git a/lapack-netlib/SRC/chbevx_2stage.f b/lapack-netlib/SRC/chbevx_2stage.f index ddc95e1883..22bced45f3 100644 --- a/lapack-netlib/SRC/chbevx_2stage.f +++ b/lapack-netlib/SRC/chbevx_2stage.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -329,10 +327,9 @@ SUBROUTINE CHBEVX_2STAGE( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chbgst.f b/lapack-netlib/SRC/chbgst.f index c84999834f..53a25a27f8 100644 --- a/lapack-netlib/SRC/chbgst.f +++ b/lapack-netlib/SRC/chbgst.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/chbgv.f b/lapack-netlib/SRC/chbgv.f index d20372e971..130594a0f2 100644 --- a/lapack-netlib/SRC/chbgv.f +++ b/lapack-netlib/SRC/chbgv.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbgvd.f b/lapack-netlib/SRC/chbgvd.f index a6d38f0c06..c4ad20753f 100644 --- a/lapack-netlib/SRC/chbgvd.f +++ b/lapack-netlib/SRC/chbgvd.f @@ -238,8 +238,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -252,10 +250,9 @@ SUBROUTINE CHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbgvx.f b/lapack-netlib/SRC/chbgvx.f index db4632eb8f..57cf51a551 100644 --- a/lapack-netlib/SRC/chbgvx.f +++ b/lapack-netlib/SRC/chbgvx.f @@ -286,8 +286,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -300,10 +298,9 @@ SUBROUTINE CHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chbtrd.f b/lapack-netlib/SRC/chbtrd.f index 126cc123ba..d05ce42f77 100644 --- a/lapack-netlib/SRC/chbtrd.f +++ b/lapack-netlib/SRC/chbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT @@ -459,7 +456,7 @@ SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * copy diagonal elements to D * DO 120 I = 1, N - D( I ) = AB( KD1, I ) + D( I ) = REAL( AB( KD1, I ) ) 120 CONTINUE * ELSE @@ -666,7 +663,7 @@ SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * copy diagonal elements to D * DO 240 I = 1, N - D( I ) = AB( 1, I ) + D( I ) = REAL( AB( 1, I ) ) 240 CONTINUE END IF * diff --git a/lapack-netlib/SRC/checon.f b/lapack-netlib/SRC/checon.f index d305232723..94c81bd42b 100644 --- a/lapack-netlib/SRC/checon.f +++ b/lapack-netlib/SRC/checon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/checon_3.f b/lapack-netlib/SRC/checon_3.f index 5d9ed97e94..2bbf879349 100644 --- a/lapack-netlib/SRC/checon_3.f +++ b/lapack-netlib/SRC/checon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE CHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/checon_rook.f b/lapack-netlib/SRC/checon_rook.f index 0fe4ffebab..5c203d8d80 100644 --- a/lapack-netlib/SRC/checon_rook.f +++ b/lapack-netlib/SRC/checon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE CHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cheequb.f b/lapack-netlib/SRC/cheequb.f index 3c6085ed21..3ea7a1627a 100644 --- a/lapack-netlib/SRC/cheequb.f +++ b/lapack-netlib/SRC/cheequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * avg = s^T beta / n AVG = 0.0E0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + REAL( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = REAL( ( N-2 ) * ( WORK( I ) - T*SI ) ) + C0 = REAL( -(T*SI)*SI + 2*WORK( I )*SI - N*AVG ) D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + REAL( ( U + WORK( I ) ) * D / N ) S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/cheev.f b/lapack-netlib/SRC/cheev.f index 913c032b7f..fb8e451df8 100644 --- a/lapack-netlib/SRC/cheev.f +++ b/lapack-netlib/SRC/cheev.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * * ===================================================================== SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -224,7 +221,7 @@ SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, END IF * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) WORK( 1 ) = 1 IF( WANTZ ) $ A( 1, 1 ) = CONE diff --git a/lapack-netlib/SRC/cheev_2stage.f b/lapack-netlib/SRC/cheev_2stage.f index a9d04ab818..fb7989d9f8 100644 --- a/lapack-netlib/SRC/cheev_2stage.f +++ b/lapack-netlib/SRC/cheev_2stage.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -191,10 +189,9 @@ SUBROUTINE CHEEV_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/cheevd.f b/lapack-netlib/SRC/cheevd.f index ff89c2961c..9a4a1efb7d 100644 --- a/lapack-netlib/SRC/cheevd.f +++ b/lapack-netlib/SRC/cheevd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -317,7 +314,7 @@ SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) IF( WANTZ ) $ A( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/cheevd_2stage.f b/lapack-netlib/SRC/cheevd_2stage.f index 6b31d4b735..830e13d301 100644 --- a/lapack-netlib/SRC/cheevd_2stage.f +++ b/lapack-netlib/SRC/cheevd_2stage.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -255,10 +253,9 @@ SUBROUTINE CHEEVD_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/cheevr.f b/lapack-netlib/SRC/cheevr.f index c5deb1166c..b8854b1829 100644 --- a/lapack-netlib/SRC/cheevr.f +++ b/lapack-netlib/SRC/cheevr.f @@ -75,7 +75,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see CSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -338,8 +338,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -357,10 +355,9 @@ SUBROUTINE CHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cheevr_2stage.f b/lapack-netlib/SRC/cheevr_2stage.f index 1489a322e1..0332a09bcd 100644 --- a/lapack-netlib/SRC/cheevr_2stage.f +++ b/lapack-netlib/SRC/cheevr_2stage.f @@ -81,7 +81,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see CSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -354,8 +354,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -408,10 +406,9 @@ SUBROUTINE CHEEVR_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cheevx.f b/lapack-netlib/SRC/cheevx.f index e2a2c3d765..1cec902aa3 100644 --- a/lapack-netlib/SRC/cheevx.f +++ b/lapack-netlib/SRC/cheevx.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * * ===================================================================== @@ -259,10 +257,9 @@ SUBROUTINE CHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -381,12 +378,12 @@ SUBROUTINE CHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) ELSE IF( VALEIG ) THEN IF( VL.LT.REAL( A( 1, 1 ) ) .AND. VU.GE.REAL( A( 1, 1 ) ) ) $ THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/cheevx_2stage.f b/lapack-netlib/SRC/cheevx_2stage.f index 59c2ae8dcf..04f6e30e8a 100644 --- a/lapack-netlib/SRC/cheevx_2stage.f +++ b/lapack-netlib/SRC/cheevx_2stage.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -308,10 +306,9 @@ SUBROUTINE CHEEVX_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chegs2.f b/lapack-netlib/SRC/chegs2.f index 55a895fc3b..0a949b4935 100644 --- a/lapack-netlib/SRC/chegs2.f +++ b/lapack-netlib/SRC/chegs2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -197,8 +194,8 @@ SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the upper triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -227,8 +224,8 @@ SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the lower triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -252,8 +249,8 @@ SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the upper triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) CALL CTRMV( UPLO, 'No transpose', 'Non-unit', K-1, B, $ LDB, A( 1, K ), 1 ) CT = HALF*AKK @@ -272,8 +269,8 @@ SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the lower triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) CALL CLACGV( K-1, A( K, 1 ), LDA ) CALL CTRMV( UPLO, 'Conjugate transpose', 'Non-unit', K-1, $ B, LDB, A( K, 1 ), LDA ) diff --git a/lapack-netlib/SRC/chegst.f b/lapack-netlib/SRC/chegst.f index b3fdff2d5c..129619fdb3 100644 --- a/lapack-netlib/SRC/chegst.f +++ b/lapack-netlib/SRC/chegst.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chegv.f b/lapack-netlib/SRC/chegv.f index 16b3a434e1..f7675a19fe 100644 --- a/lapack-netlib/SRC/chegv.f +++ b/lapack-netlib/SRC/chegv.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * * ===================================================================== SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegv_2stage.f b/lapack-netlib/SRC/chegv_2stage.f index 77bc7fc192..472581c4be 100644 --- a/lapack-netlib/SRC/chegv_2stage.f +++ b/lapack-netlib/SRC/chegv_2stage.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -234,10 +232,9 @@ SUBROUTINE CHEGV_2STAGE( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegvd.f b/lapack-netlib/SRC/chegvd.f index 38b234174e..0c708190ce 100644 --- a/lapack-netlib/SRC/chegvd.f +++ b/lapack-netlib/SRC/chegvd.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegvx.f b/lapack-netlib/SRC/chegvx.f index bf153f50a4..6e428242d2 100644 --- a/lapack-netlib/SRC/chegvx.f +++ b/lapack-netlib/SRC/chegvx.f @@ -293,8 +293,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -307,10 +305,9 @@ SUBROUTINE CHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cherfs.f b/lapack-netlib/SRC/cherfs.f index 14844825e4..704431ab59 100644 --- a/lapack-netlib/SRC/cherfs.f +++ b/lapack-netlib/SRC/cherfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cherfsx.f b/lapack-netlib/SRC/cherfsx.f index 76cef7cd1a..3b533c3b54 100644 --- a/lapack-netlib/SRC/cherfsx.f +++ b/lapack-netlib/SRC/cherfsx.f @@ -122,8 +122,8 @@ *> AF is COMPLEX array, dimension (LDAF,N) *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the -*> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by SSYTRF. +*> factor U or L from the factorization A = U*D*U**H or A = +*> L*D*L**H as computed by CHETRF. *> \endverbatim *> *> \param[in] LDAF @@ -136,7 +136,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by SSYTRF. +*> as determined by CHETRF. *> \endverbatim *> *> \param[in,out] S @@ -170,7 +170,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CHETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEcomputational * * ===================================================================== @@ -401,10 +399,9 @@ SUBROUTINE CHERFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/chesv.f b/lapack-netlib/SRC/chesv.f index 261cbbe9ea..238fb0a944 100644 --- a/lapack-netlib/SRC/chesv.f +++ b/lapack-netlib/SRC/chesv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEsolve * * ===================================================================== SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesv_aa.f b/lapack-netlib/SRC/chesv_aa.f index b934e624bd..c9b97e09cb 100644 --- a/lapack-netlib/SRC/chesv_aa.f +++ b/lapack-netlib/SRC/chesv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEsolve * * ===================================================================== SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesv_aa_2stage.f b/lapack-netlib/SRC/chesv_aa_2stage.f index ab5786d57c..e474c6fada 100644 --- a/lapack-netlib/SRC/chesv_aa_2stage.f +++ b/lapack-netlib/SRC/chesv_aa_2stage.f @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ SUBROUTINE CHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chesv_rk.f b/lapack-netlib/SRC/chesv_rk.f index f1ff523616..a659c8e795 100644 --- a/lapack-netlib/SRC/chesv_rk.f +++ b/lapack-netlib/SRC/chesv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE CHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ SUBROUTINE CHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL CHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/chesv_rook.f b/lapack-netlib/SRC/chesv_rook.f index 76a6f5e3cc..8e0b1a88f4 100644 --- a/lapack-netlib/SRC/chesv_rook.f +++ b/lapack-netlib/SRC/chesv_rook.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEsolve *> *> \verbatim @@ -205,10 +203,9 @@ SUBROUTINE CHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.5.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesvx.f b/lapack-netlib/SRC/chesvx.f index b3b1e9ca5a..6da49bdcf9 100644 --- a/lapack-netlib/SRC/chesvx.f +++ b/lapack-netlib/SRC/chesvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEsolve * * ===================================================================== @@ -285,10 +283,9 @@ SUBROUTINE CHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/chesvxx.f b/lapack-netlib/SRC/chesvxx.f index c59e72bbf3..2c022874a1 100644 --- a/lapack-netlib/SRC/chesvxx.f +++ b/lapack-netlib/SRC/chesvxx.f @@ -185,12 +185,12 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by SSYTRF. +*> U*D*U**H or A = L*D*L**H as computed by CHETRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T. +*> U*D*U**H or A = L*D*L**H. *> \endverbatim *> *> \param[in] LDAF @@ -499,8 +499,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEsolve * * ===================================================================== @@ -509,10 +507,9 @@ SUBROUTINE CHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO @@ -649,7 +646,7 @@ SUBROUTINE CHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LDL^T or UDU^T factorization of A. +* Compute the LDL^H or UDU^H factorization of A. * CALL CLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL CHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/lapack-netlib/SRC/cheswapr.f b/lapack-netlib/SRC/cheswapr.f index f251b9205f..aded514234 100644 --- a/lapack-netlib/SRC/cheswapr.f +++ b/lapack-netlib/SRC/cheswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetd2.f b/lapack-netlib/SRC/chetd2.f index b80bfec5c3..ae4f72df15 100644 --- a/lapack-netlib/SRC/chetd2.f +++ b/lapack-netlib/SRC/chetd2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -175,10 +173,9 @@ * ===================================================================== SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -248,7 +245,7 @@ SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * ALPHA = A( I, I+1 ) CALL CLARFG( I, ALPHA, A( 1, I+1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -276,10 +273,10 @@ SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) A( I, I ) = REAL( A( I, I ) ) END IF A( I, I+1 ) = E( I ) - D( I+1 ) = A( I+1, I+1 ) + D( I+1 ) = REAL( A( I+1, I+1 ) ) TAU( I ) = TAUI 10 CONTINUE - D( 1 ) = A( 1, 1 ) + D( 1 ) = REAL( A( 1, 1 ) ) ELSE * * Reduce the lower triangle of A @@ -292,7 +289,7 @@ SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * ALPHA = A( I+1, I ) CALL CLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -321,10 +318,10 @@ SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) A( I+1, I+1 ) = REAL( A( I+1, I+1 ) ) END IF A( I+1, I ) = E( I ) - D( I ) = A( I, I ) + D( I ) = REAL( A( I, I ) ) TAU( I ) = TAUI 20 CONTINUE - D( N ) = A( N, N ) + D( N ) = REAL( A( N, N ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/chetf2.f b/lapack-netlib/SRC/chetf2.f index 15585bd2f8..84ba339fbb 100644 --- a/lapack-netlib/SRC/chetf2.f +++ b/lapack-netlib/SRC/chetf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetf2_rk.f b/lapack-netlib/SRC/chetf2_rk.f index 80e2f61b71..4bb0323827 100644 --- a/lapack-netlib/SRC/chetf2_rk.f +++ b/lapack-netlib/SRC/chetf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE CHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -611,8 +608,8 @@ SUBROUTINE CHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * D = |A12| D = SLAPY2( REAL( A( K-1, K ) ), $ AIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = REAL( A( K, K ) / D ) + D22 = REAL( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * diff --git a/lapack-netlib/SRC/chetf2_rook.f b/lapack-netlib/SRC/chetf2_rook.f index ccd6a7f84a..ee4eaf68f2 100644 --- a/lapack-netlib/SRC/chetf2_rook.f +++ b/lapack-netlib/SRC/chetf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE CHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -531,8 +528,8 @@ SUBROUTINE CHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * D = |A12| D = SLAPY2( REAL( A( K-1, K ) ), $ AIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = REAL( A( K, K ) / D ) + D22 = REAL( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * diff --git a/lapack-netlib/SRC/chetrd.f b/lapack-netlib/SRC/chetrd.f index 22ea3516e5..52b9a895a9 100644 --- a/lapack-netlib/SRC/chetrd.f +++ b/lapack-netlib/SRC/chetrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -328,7 +325,7 @@ SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * DO 10 J = I, I + NB - 1 A( J-1, J ) = E( J-1 ) - D( J ) = A( J, J ) + D( J ) = REAL( A( J, J ) ) 10 CONTINUE 20 CONTINUE * @@ -360,7 +357,7 @@ SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * DO 30 J = I, I + NB - 1 A( J+1, J ) = E( J ) - D( J ) = A( J, J ) + D( J ) = REAL( A( J, J ) ) 30 CONTINUE 40 CONTINUE * diff --git a/lapack-netlib/SRC/chetrd_2stage.f b/lapack-netlib/SRC/chetrd_2stage.f index 4575a5e908..f5ad35f277 100644 --- a/lapack-netlib/SRC/chetrd_2stage.f +++ b/lapack-netlib/SRC/chetrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ SUBROUTINE CHETRD_2STAGE( VECT, UPLO, N, A, LDA, D, E, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/chetrd_hb2st.F b/lapack-netlib/SRC/chetrd_hb2st.F index a3d8259d32..e047ab7208 100644 --- a/lapack-netlib/SRC/chetrd_hb2st.F +++ b/lapack-netlib/SRC/chetrd_hb2st.F @@ -1,4 +1,4 @@ -*> \brief \b CHBTRD_HB2ST reduces a complex Hermitian band matrix A to real symmetric tridiagonal form T +*> \brief \b CHETRD_HB2ST reduces a complex Hermitian band matrix A to real symmetric tridiagonal form T * * =========== DOCUMENTATION =========== * @@ -6,12 +6,12 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBTRD_HB2ST + dependencies -*> +*> Download CHETRD_HB2ST + dependencies +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -237,10 +235,9 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -395,7 +392,7 @@ SUBROUTINE CHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/chetrd_he2hb.f b/lapack-netlib/SRC/chetrd_he2hb.f index e85c1fd013..904555c10e 100644 --- a/lapack-netlib/SRC/chetrd_he2hb.f +++ b/lapack-netlib/SRC/chetrd_he2hb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download CHETRD_HE2HB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE CHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf.f b/lapack-netlib/SRC/chetrf.f index aa8f7f23b9..484e762562 100644 --- a/lapack-netlib/SRC/chetrf.f +++ b/lapack-netlib/SRC/chetrf.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf_aa.f b/lapack-netlib/SRC/chetrf_aa.f index c6f548d429..54567b8cdf 100644 --- a/lapack-netlib/SRC/chetrf_aa.f +++ b/lapack-netlib/SRC/chetrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -462,6 +459,7 @@ SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of CHETRF_AA diff --git a/lapack-netlib/SRC/chetrf_aa_2stage.f b/lapack-netlib/SRC/chetrf_aa_2stage.f index d2e0e00232..20a9859e8e 100644 --- a/lapack-netlib/SRC/chetrf_aa_2stage.f +++ b/lapack-netlib/SRC/chetrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CHETRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrf_rk.f b/lapack-netlib/SRC/chetrf_rk.f index 9e42b57197..3f60f43705 100644 --- a/lapack-netlib/SRC/chetrf_rk.f +++ b/lapack-netlib/SRC/chetrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE CHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf_rook.f b/lapack-netlib/SRC/chetrf_rook.f index 0217150d18..805e0f4cbd 100644 --- a/lapack-netlib/SRC/chetrf_rook.f +++ b/lapack-netlib/SRC/chetrf_rook.f @@ -35,7 +35,7 @@ *> *> \verbatim *> -*> CHETRF_ROOK computes the factorization of a comlex Hermitian matrix A +*> CHETRF_ROOK computes the factorization of a complex Hermitian matrix A *> using the bounded Bunch-Kaufman ("rook") diagonal pivoting method. *> The form of the factorization is *> @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE CHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.6.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri.f b/lapack-netlib/SRC/chetri.f index a5762b20d6..7a38a25b8b 100644 --- a/lapack-netlib/SRC/chetri.f +++ b/lapack-netlib/SRC/chetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri2.f b/lapack-netlib/SRC/chetri2.f index 1e18202cf3..2865a6440f 100644 --- a/lapack-netlib/SRC/chetri2.f +++ b/lapack-netlib/SRC/chetri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri2x.f b/lapack-netlib/SRC/chetri2x.f index 2ac18b5746..0cfaf2861c 100644 --- a/lapack-netlib/SRC/chetri2x.f +++ b/lapack-netlib/SRC/chetri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_3.f b/lapack-netlib/SRC/chetri_3.f index 0b31f533b0..cc2318b22f 100644 --- a/lapack-netlib/SRC/chetri_3.f +++ b/lapack-netlib/SRC/chetri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE CHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_3x.f b/lapack-netlib/SRC/chetri_3x.f index d4cddc1c0b..0a6083bef4 100644 --- a/lapack-netlib/SRC/chetri_3x.f +++ b/lapack-netlib/SRC/chetri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_rook.f b/lapack-netlib/SRC/chetri_rook.f index 00d99e2a95..8090a576c7 100644 --- a/lapack-netlib/SRC/chetri_rook.f +++ b/lapack-netlib/SRC/chetri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -128,10 +126,9 @@ * ===================================================================== SUBROUTINE CHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs.f b/lapack-netlib/SRC/chetrs.f index a7864621a0..4dc97cd309 100644 --- a/lapack-netlib/SRC/chetrs.f +++ b/lapack-netlib/SRC/chetrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs2.f b/lapack-netlib/SRC/chetrs2.f index 7041568793..07b6e025fe 100644 --- a/lapack-netlib/SRC/chetrs2.f +++ b/lapack-netlib/SRC/chetrs2.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs_3.f b/lapack-netlib/SRC/chetrs_3.f index c7c77b971b..f9c25bd565 100644 --- a/lapack-netlib/SRC/chetrs_3.f +++ b/lapack-netlib/SRC/chetrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE CHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs_aa.f b/lapack-netlib/SRC/chetrs_aa.f index 877517031e..2546adb2de 100644 --- a/lapack-netlib/SRC/chetrs_aa.f +++ b/lapack-netlib/SRC/chetrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrs_aa_2stage.f b/lapack-netlib/SRC/chetrs_aa_2stage.f index 979d80a7cf..41cd3e289d 100644 --- a/lapack-netlib/SRC/chetrs_aa_2stage.f +++ b/lapack-netlib/SRC/chetrs_aa_2stage.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CHETRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrs_rook.f b/lapack-netlib/SRC/chetrs_rook.f index 2b0cc6db20..d80da9328e 100644 --- a/lapack-netlib/SRC/chetrs_rook.f +++ b/lapack-netlib/SRC/chetrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE CHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chfrk.f b/lapack-netlib/SRC/chfrk.f index 3378e6fb85..7aa2343ed0 100644 --- a/lapack-netlib/SRC/chfrk.f +++ b/lapack-netlib/SRC/chfrk.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/chgeqz.f b/lapack-netlib/SRC/chgeqz.f index bcf5acd0bf..8c1d62a875 100644 --- a/lapack-netlib/SRC/chgeqz.f +++ b/lapack-netlib/SRC/chgeqz.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -284,10 +282,9 @@ SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -518,13 +515,17 @@ SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( ILAST.EQ.ILO ) THEN GO TO 60 ELSE - IF( ABS1( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( ILAST, ILAST ) ) + ABS1( H( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN H( ILAST, ILAST-1 ) = CZERO GO TO 60 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = CZERO GO TO 50 END IF @@ -538,7 +539,9 @@ SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS1( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( J, J ) ) + ABS1( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = CZERO ILAZRO = .TRUE. ELSE @@ -548,7 +551,10 @@ SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = CZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/chla_transtype.f b/lapack-netlib/SRC/chla_transtype.f index 0630a759bc..16c37afbfe 100644 --- a/lapack-netlib/SRC/chla_transtype.f +++ b/lapack-netlib/SRC/chla_transtype.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER TRANS diff --git a/lapack-netlib/SRC/chpcon.f b/lapack-netlib/SRC/chpcon.f index d48a8bd51c..f34b57cd94 100644 --- a/lapack-netlib/SRC/chpcon.f +++ b/lapack-netlib/SRC/chpcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpev.f b/lapack-netlib/SRC/chpev.f index 489709060a..1be8c0c6d8 100644 --- a/lapack-netlib/SRC/chpev.f +++ b/lapack-netlib/SRC/chpev.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -206,7 +203,7 @@ SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) RWORK( 1 ) = 1 IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/chpevd.f b/lapack-netlib/SRC/chpevd.f index b9c872034e..c44462394e 100644 --- a/lapack-netlib/SRC/chpevd.f +++ b/lapack-netlib/SRC/chpevd.f @@ -192,18 +192,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -303,7 +300,7 @@ SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/chpevx.f b/lapack-netlib/SRC/chpevx.f index 6a111f00f7..a5af973a73 100644 --- a/lapack-netlib/SRC/chpevx.f +++ b/lapack-netlib/SRC/chpevx.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== @@ -240,10 +238,9 @@ SUBROUTINE CHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -335,11 +332,11 @@ SUBROUTINE CHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) ELSE IF( VL.LT.REAL( AP( 1 ) ) .AND. VU.GE.REAL( AP( 1 ) ) ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/chpgst.f b/lapack-netlib/SRC/chpgst.f index 3813914dd8..17f10b034b 100644 --- a/lapack-netlib/SRC/chpgst.f +++ b/lapack-netlib/SRC/chpgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -185,7 +182,7 @@ SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * Compute the j-th column of the upper triangle of A * AP( JJ ) = REAL( AP( JJ ) ) - BJJ = BP( JJ ) + BJJ = REAL( BP( JJ ) ) CALL CTPSV( UPLO, 'Conjugate transpose', 'Non-unit', J, $ BP, AP( J1 ), 1 ) CALL CHPMV( UPLO, J-1, -CONE, AP, BP( J1 ), 1, CONE, @@ -206,8 +203,8 @@ SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Update the lower triangle of A(k:n,k:n) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = REAL( AP( KK ) ) + BKK = REAL( BP( KK ) ) AKK = AKK / BKK**2 AP( KK ) = AKK IF( K.LT.N ) THEN @@ -237,8 +234,8 @@ SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Update the upper triangle of A(1:k,1:k) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = REAL( AP( KK ) ) + BKK = REAL( BP( KK ) ) CALL CTPMV( UPLO, 'No transpose', 'Non-unit', K-1, BP, $ AP( K1 ), 1 ) CT = HALF*AKK @@ -261,8 +258,8 @@ SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Compute the j-th column of the lower triangle of A * - AJJ = AP( JJ ) - BJJ = BP( JJ ) + AJJ = REAL( AP( JJ ) ) + BJJ = REAL( BP( JJ ) ) AP( JJ ) = AJJ*BJJ + CDOTC( N-J, AP( JJ+1 ), 1, $ BP( JJ+1 ), 1 ) CALL CSSCAL( N-J, BJJ, AP( JJ+1 ), 1 ) diff --git a/lapack-netlib/SRC/chpgv.f b/lapack-netlib/SRC/chpgv.f index 999031d13a..417f101219 100644 --- a/lapack-netlib/SRC/chpgv.f +++ b/lapack-netlib/SRC/chpgv.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chpgvd.f b/lapack-netlib/SRC/chpgvd.f index 6c1ef3227c..754be31ed3 100644 --- a/lapack-netlib/SRC/chpgvd.f +++ b/lapack-netlib/SRC/chpgvd.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -231,10 +229,9 @@ SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chpgvx.f b/lapack-netlib/SRC/chpgvx.f index 06a08798a0..711daf55fd 100644 --- a/lapack-netlib/SRC/chpgvx.f +++ b/lapack-netlib/SRC/chpgvx.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -277,10 +275,9 @@ SUBROUTINE CHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chprfs.f b/lapack-netlib/SRC/chprfs.f index 9fe0532cd7..65e22c5b00 100644 --- a/lapack-netlib/SRC/chprfs.f +++ b/lapack-netlib/SRC/chprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpsv.f b/lapack-netlib/SRC/chpsv.f index af62b5a1e5..d41c966128 100644 --- a/lapack-netlib/SRC/chpsv.f +++ b/lapack-netlib/SRC/chpsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpsvx.f b/lapack-netlib/SRC/chpsvx.f index 5783a189f7..fa9f714f5b 100644 --- a/lapack-netlib/SRC/chpsvx.f +++ b/lapack-netlib/SRC/chpsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/chptrd.f b/lapack-netlib/SRC/chptrd.f index e5caab7b07..5618e014f6 100644 --- a/lapack-netlib/SRC/chptrd.f +++ b/lapack-netlib/SRC/chptrd.f @@ -112,8 +112,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -224,7 +221,7 @@ SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * ALPHA = AP( I1+I-1 ) CALL CLARFG( I, ALPHA, AP( I1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -249,11 +246,11 @@ SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * END IF AP( I1+I-1 ) = E( I ) - D( I+1 ) = AP( I1+I ) + D( I+1 ) = REAL( AP( I1+I ) ) TAU( I ) = TAUI I1 = I1 - I 10 CONTINUE - D( 1 ) = AP( 1 ) + D( 1 ) = REAL( AP( 1 ) ) ELSE * * Reduce the lower triangle of A. II is the index in AP of @@ -269,7 +266,7 @@ SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * ALPHA = AP( II+1 ) CALL CLARFG( N-I, ALPHA, AP( II+2 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -296,11 +293,11 @@ SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * END IF AP( II+1 ) = E( I ) - D( I ) = AP( II ) + D( I ) = REAL( AP( II ) ) TAU( I ) = TAUI II = I1I1 20 CONTINUE - D( N ) = AP( II ) + D( N ) = REAL( AP( II ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/chptrf.f b/lapack-netlib/SRC/chptrf.f index 97c4e96eda..d9bfffb06e 100644 --- a/lapack-netlib/SRC/chptrf.f +++ b/lapack-netlib/SRC/chptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chptri.f b/lapack-netlib/SRC/chptri.f index 878c88157e..8147a6d183 100644 --- a/lapack-netlib/SRC/chptri.f +++ b/lapack-netlib/SRC/chptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chptrs.f b/lapack-netlib/SRC/chptrs.f index bfb8777e5f..df3832d4e4 100644 --- a/lapack-netlib/SRC/chptrs.f +++ b/lapack-netlib/SRC/chptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chsein.f b/lapack-netlib/SRC/chsein.f index 5c15b0b68c..c125211abb 100644 --- a/lapack-netlib/SRC/chsein.f +++ b/lapack-netlib/SRC/chsein.f @@ -226,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE CHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/chseqr.f b/lapack-netlib/SRC/chseqr.f index 32b6fa87ba..007f72f59d 100644 --- a/lapack-netlib/SRC/chseqr.f +++ b/lapack-netlib/SRC/chseqr.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/cla_gbamv.f b/lapack-netlib/SRC/cla_gbamv.f index e043d74446..e98334fa48 100644 --- a/lapack-netlib/SRC/cla_gbamv.f +++ b/lapack-netlib/SRC/cla_gbamv.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_gbrcond_c.f b/lapack-netlib/SRC/cla_gbrcond_c.f index c382ac2106..ecea389a6f 100644 --- a/lapack-netlib/SRC/cla_gbrcond_c.f +++ b/lapack-netlib/SRC/cla_gbrcond_c.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -161,10 +159,9 @@ REAL FUNCTION CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -338,5 +335,7 @@ REAL FUNCTION CLA_GBRCOND_C( TRANS, N, KL, KU, AB, LDAB, AFB, $ CLA_GBRCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GBRCOND_C * END diff --git a/lapack-netlib/SRC/cla_gbrcond_x.f b/lapack-netlib/SRC/cla_gbrcond_x.f index 46991ea14d..ffe9edbb3e 100644 --- a/lapack-netlib/SRC/cla_gbrcond_x.f +++ b/lapack-netlib/SRC/cla_gbrcond_x.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -315,5 +312,7 @@ REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, $ CLA_GBRCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GBRCOND_X * END diff --git a/lapack-netlib/SRC/cla_gbrfsx_extended.f b/lapack-netlib/SRC/cla_gbrfsx_extended.f index 9f066137b8..6d43c83251 100644 --- a/lapack-netlib/SRC/cla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/cla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -710,4 +707,7 @@ SUBROUTINE CLA_GBRFSX_EXTENDED ( PREC_TYPE, TRANS_TYPE, N, KL, KU, END DO * RETURN +* +* End of CLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_gbrpvgrw.f b/lapack-netlib/SRC/cla_gbrpvgrw.f index f60b714c08..310f39949b 100644 --- a/lapack-netlib/SRC/cla_gbrpvgrw.f +++ b/lapack-netlib/SRC/cla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -164,4 +161,7 @@ REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, END IF END DO CLA_GBRPVGRW = RPVGRW +* +* End of CLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/cla_geamv.f b/lapack-netlib/SRC/cla_geamv.f index cbbcca8932..62d861791d 100644 --- a/lapack-netlib/SRC/cla_geamv.f +++ b/lapack-netlib/SRC/cla_geamv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_gercond_c.f b/lapack-netlib/SRC/cla_gercond_c.f index 1a2e8230e6..024dcb1d9a 100644 --- a/lapack-netlib/SRC/cla_gercond_c.f +++ b/lapack-netlib/SRC/cla_gercond_c.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -313,5 +310,7 @@ REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, $ CLA_GERCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GERCOND_C * END diff --git a/lapack-netlib/SRC/cla_gercond_x.f b/lapack-netlib/SRC/cla_gercond_x.f index 46e9b039f9..80b0eab01f 100644 --- a/lapack-netlib/SRC/cla_gercond_x.f +++ b/lapack-netlib/SRC/cla_gercond_x.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -289,5 +286,7 @@ REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, $ CLA_GERCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GERCOND_X * END diff --git a/lapack-netlib/SRC/cla_gerfsx_extended.f b/lapack-netlib/SRC/cla_gerfsx_extended.f index d231733e65..4b10311017 100644 --- a/lapack-netlib/SRC/cla_gerfsx_extended.f +++ b/lapack-netlib/SRC/cla_gerfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -356,7 +356,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -385,8 +385,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== @@ -397,10 +395,9 @@ SUBROUTINE CLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -695,4 +692,7 @@ SUBROUTINE CLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, END DO * RETURN +* +* End of CLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_gerpvgrw.f b/lapack-netlib/SRC/cla_gerpvgrw.f index f6d27c8c0f..f7e514510a 100644 --- a/lapack-netlib/SRC/cla_gerpvgrw.f +++ b/lapack-netlib/SRC/cla_gerpvgrw.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -144,4 +141,7 @@ REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) END IF END DO CLA_GERPVGRW = RPVGRW +* +* End of CLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/cla_heamv.f b/lapack-netlib/SRC/cla_heamv.f index 38a9492927..6230de4af7 100644 --- a/lapack-netlib/SRC/cla_heamv.f +++ b/lapack-netlib/SRC/cla_heamv.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -178,10 +176,9 @@ SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_hercond_c.f b/lapack-netlib/SRC/cla_hercond_c.f index 5f26822afe..64bb580971 100644 --- a/lapack-netlib/SRC/cla_hercond_c.f +++ b/lapack-netlib/SRC/cla_hercond_c.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -323,5 +320,7 @@ REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CLA_HERCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_HERCOND_C * END diff --git a/lapack-netlib/SRC/cla_hercond_x.f b/lapack-netlib/SRC/cla_hercond_x.f index 91c80a6683..e79d4d449e 100644 --- a/lapack-netlib/SRC/cla_hercond_x.f +++ b/lapack-netlib/SRC/cla_hercond_x.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -293,5 +290,7 @@ REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ CLA_HERCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_HERCOND_X * END diff --git a/lapack-netlib/SRC/cla_herfsx_extended.f b/lapack-netlib/SRC/cla_herfsx_extended.f index d1aa8462c9..6d007ef580 100644 --- a/lapack-netlib/SRC/cla_herfsx_extended.f +++ b/lapack-netlib/SRC/cla_herfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== @@ -395,10 +393,9 @@ SUBROUTINE CLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -713,4 +710,7 @@ SUBROUTINE CLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of CLA_HERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_herpvgrw.f b/lapack-netlib/SRC/cla_herpvgrw.f index 0fa26d9e3a..21b01ac77b 100644 --- a/lapack-netlib/SRC/cla_herpvgrw.f +++ b/lapack-netlib/SRC/cla_herpvgrw.f @@ -102,7 +102,7 @@ *> as determined by CHETRF. *> \endverbatim *> -*> \param[in] WORK +*> \param[out] WORK *> \verbatim *> WORK is REAL array, dimension (2*N) *> \endverbatim @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -327,4 +324,7 @@ REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, END IF CLA_HERPVGRW = RPVGRW +* +* End of CLA_HERPVGRW +* END diff --git a/lapack-netlib/SRC/cla_lin_berr.f b/lapack-netlib/SRC/cla_lin_berr.f index c892d8b0e4..d589b3dcc5 100644 --- a/lapack-netlib/SRC/cla_lin_berr.f +++ b/lapack-netlib/SRC/cla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -157,4 +154,7 @@ SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * END DO END DO +* +* End of CLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/cla_porcond_c.f b/lapack-netlib/SRC/cla_porcond_c.f index c2356590f8..d322979e50 100644 --- a/lapack-netlib/SRC/cla_porcond_c.f +++ b/lapack-netlib/SRC/cla_porcond_c.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -315,5 +312,7 @@ REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, $ CLA_PORCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_PORCOND_C * END diff --git a/lapack-netlib/SRC/cla_porcond_x.f b/lapack-netlib/SRC/cla_porcond_x.f index a5ff3aa61b..62d0584ef4 100644 --- a/lapack-netlib/SRC/cla_porcond_x.f +++ b/lapack-netlib/SRC/cla_porcond_x.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -284,5 +281,7 @@ REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, $ CLA_PORCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_PORCOND_X * END diff --git a/lapack-netlib/SRC/cla_porfsx_extended.f b/lapack-netlib/SRC/cla_porfsx_extended.f index 545bdc445e..9ced9b1b93 100644 --- a/lapack-netlib/SRC/cla_porfsx_extended.f +++ b/lapack-netlib/SRC/cla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexPOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ SUBROUTINE CLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -684,4 +681,7 @@ SUBROUTINE CLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of CLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_porpvgrw.f b/lapack-netlib/SRC/cla_porpvgrw.f index f10299c5a2..1eb706d1a0 100644 --- a/lapack-netlib/SRC/cla_porpvgrw.f +++ b/lapack-netlib/SRC/cla_porpvgrw.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -213,4 +210,7 @@ REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) END IF CLA_PORPVGRW = RPVGRW +* +* End of CLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/cla_syamv.f b/lapack-netlib/SRC/cla_syamv.f index 695b5e4786..6507495838 100644 --- a/lapack-netlib/SRC/cla_syamv.f +++ b/lapack-netlib/SRC/cla_syamv.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -179,10 +177,9 @@ SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_syrcond_c.f b/lapack-netlib/SRC/cla_syrcond_c.f index e59e83aa6f..74c02abd93 100644 --- a/lapack-netlib/SRC/cla_syrcond_c.f +++ b/lapack-netlib/SRC/cla_syrcond_c.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -324,5 +321,7 @@ REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CLA_SYRCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_SYRCOND_C * END diff --git a/lapack-netlib/SRC/cla_syrcond_x.f b/lapack-netlib/SRC/cla_syrcond_x.f index 3edf58f837..d898c16ec0 100644 --- a/lapack-netlib/SRC/cla_syrcond_x.f +++ b/lapack-netlib/SRC/cla_syrcond_x.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -294,5 +291,7 @@ REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ CLA_SYRCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_SYRCOND_X * END diff --git a/lapack-netlib/SRC/cla_syrfsx_extended.f b/lapack-netlib/SRC/cla_syrfsx_extended.f index 92243abcb1..4fe538a989 100644 --- a/lapack-netlib/SRC/cla_syrfsx_extended.f +++ b/lapack-netlib/SRC/cla_syrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -395,10 +393,9 @@ SUBROUTINE CLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -713,4 +710,7 @@ SUBROUTINE CLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of CLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_syrpvgrw.f b/lapack-netlib/SRC/cla_syrpvgrw.f index 15e55ea7df..1f53e0f9ed 100644 --- a/lapack-netlib/SRC/cla_syrpvgrw.f +++ b/lapack-netlib/SRC/cla_syrpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -328,4 +325,7 @@ REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, END IF CLA_SYRPVGRW = RPVGRW +* +* End of CLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/cla_wwaddw.f b/lapack-netlib/SRC/cla_wwaddw.f index 08e45ac798..aa78f60f41 100644 --- a/lapack-netlib/SRC/cla_wwaddw.f +++ b/lapack-netlib/SRC/cla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ SUBROUTINE CLA_WWADDW( N, X, Y, W ) X(I) = S 10 CONTINUE RETURN +* +* End of CLA_WWADDW +* END diff --git a/lapack-netlib/SRC/clabrd.f b/lapack-netlib/SRC/clabrd.f index 7830222b8b..765d71e509 100644 --- a/lapack-netlib/SRC/clabrd.f +++ b/lapack-netlib/SRC/clabrd.f @@ -157,8 +157,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -212,10 +210,9 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB @@ -270,7 +267,7 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I ) CALL CLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) IF( I.LT.N ) THEN A( I, I ) = ONE * @@ -310,7 +307,7 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I+1 ) CALL CLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), $ LDA, TAUP( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I, I+1 ) = ONE * * Compute X(i+1:m,i) @@ -354,7 +351,7 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I ) CALL CLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) IF( I.LT.M ) THEN A( I, I ) = ONE * @@ -388,7 +385,7 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I+1, I ) CALL CLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Compute Y(i+1:n,i) diff --git a/lapack-netlib/SRC/clacgv.f b/lapack-netlib/SRC/clacgv.f index 81ecadcdec..d85df7435a 100644 --- a/lapack-netlib/SRC/clacgv.f +++ b/lapack-netlib/SRC/clacgv.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/clacn2.f b/lapack-netlib/SRC/clacn2.f index 132712deb9..cbbe9242bf 100644 --- a/lapack-netlib/SRC/clacn2.f +++ b/lapack-netlib/SRC/clacn2.f @@ -96,8 +96,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -133,10 +131,9 @@ * ===================================================================== SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/clacon.f b/lapack-netlib/SRC/clacon.f index 2d67b9e695..cb5e23db41 100644 --- a/lapack-netlib/SRC/clacon.f +++ b/lapack-netlib/SRC/clacon.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE CLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/clacp2.f b/lapack-netlib/SRC/clacp2.f index 1d04962d3f..3c0f73b7bc 100644 --- a/lapack-netlib/SRC/clacp2.f +++ b/lapack-netlib/SRC/clacp2.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clacpy.f b/lapack-netlib/SRC/clacpy.f index 26d5f37da9..ab4404a29a 100644 --- a/lapack-netlib/SRC/clacpy.f +++ b/lapack-netlib/SRC/clacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clacrm.f b/lapack-netlib/SRC/clacrm.f index 47c8374852..84620b5e1b 100644 --- a/lapack-netlib/SRC/clacrm.f +++ b/lapack-netlib/SRC/clacrm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/clacrt.f b/lapack-netlib/SRC/clacrt.f index 1f7181791b..d297f78dfd 100644 --- a/lapack-netlib/SRC/clacrt.f +++ b/lapack-netlib/SRC/clacrt.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/cladiv.f b/lapack-netlib/SRC/cladiv.f index 189ef21145..1dca85a353 100644 --- a/lapack-netlib/SRC/cladiv.f +++ b/lapack-netlib/SRC/cladiv.f @@ -57,17 +57,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== COMPLEX FUNCTION CLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX X, Y diff --git a/lapack-netlib/SRC/claed0.f b/lapack-netlib/SRC/claed0.f index 9907b10168..40a301fa7c 100644 --- a/lapack-netlib/SRC/claed0.f +++ b/lapack-netlib/SRC/claed0.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b CLAED0 used by CSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/claed7.f b/lapack-netlib/SRC/claed7.f index 45dd54cade..9d2f971414 100644 --- a/lapack-netlib/SRC/claed7.f +++ b/lapack-netlib/SRC/claed7.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b CLAED7 used by CSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -249,10 +247,9 @@ SUBROUTINE CLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/lapack-netlib/SRC/claed8.f b/lapack-netlib/SRC/claed8.f index d66bf801ac..c15a0365f9 100644 --- a/lapack-netlib/SRC/claed8.f +++ b/lapack-netlib/SRC/claed8.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b CLAED8 used by CSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -228,10 +226,9 @@ SUBROUTINE CLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/lapack-netlib/SRC/claein.f b/lapack-netlib/SRC/claein.f index c4442d7929..9df436e447 100644 --- a/lapack-netlib/SRC/claein.f +++ b/lapack-netlib/SRC/claein.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/claesy.f b/lapack-netlib/SRC/claesy.f index c6a7b84318..045c9a5d9c 100644 --- a/lapack-netlib/SRC/claesy.f +++ b/lapack-netlib/SRC/claesy.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/claev2.f b/lapack-netlib/SRC/claev2.f index b80397fa7e..e16b199276 100644 --- a/lapack-netlib/SRC/claev2.f +++ b/lapack-netlib/SRC/claev2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CS1, RT1, RT2 diff --git a/lapack-netlib/SRC/clag2z.f b/lapack-netlib/SRC/clag2z.f index a1777f0b59..467c08009c 100644 --- a/lapack-netlib/SRC/clag2z.f +++ b/lapack-netlib/SRC/clag2z.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/clags2.f b/lapack-netlib/SRC/clags2.f index 7f507708fe..0cd06ba63d 100644 --- a/lapack-netlib/SRC/clags2.f +++ b/lapack-netlib/SRC/clags2.f @@ -150,18 +150,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/clagtm.f b/lapack-netlib/SRC/clagtm.f index dcf47a1e38..d34ca4a1a3 100644 --- a/lapack-netlib/SRC/clagtm.f +++ b/lapack-netlib/SRC/clagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/clahef.f b/lapack-netlib/SRC/clahef.f index f51de18677..60ec116d6b 100644 --- a/lapack-netlib/SRC/clahef.f +++ b/lapack-netlib/SRC/clahef.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahef_aa.f b/lapack-netlib/SRC/clahef_aa.f index 934aa92f9d..ae2fc96ce8 100644 --- a/lapack-netlib/SRC/clahef_aa.f +++ b/lapack-netlib/SRC/clahef_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/clahef_rk.f b/lapack-netlib/SRC/clahef_rk.f index cc4603e9b1..ffdde7eeba 100644 --- a/lapack-netlib/SRC/clahef_rk.f +++ b/lapack-netlib/SRC/clahef_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahef_rook.f b/lapack-netlib/SRC/clahef_rook.f index 698df999fd..130dfcb00c 100644 --- a/lapack-netlib/SRC/clahef_rook.f +++ b/lapack-netlib/SRC/clahef_rook.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE CLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahqr.f b/lapack-netlib/SRC/clahqr.f index ef50b5a565..dbd848e2f3 100644 --- a/lapack-netlib/SRC/clahqr.f +++ b/lapack-netlib/SRC/clahqr.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -194,11 +192,11 @@ * ===================================================================== SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -218,6 +216,8 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, PARAMETER ( RZERO = 0.0e0, RONE = 1.0e0, HALF = 0.5e0 ) REAL DAT1 PARAMETER ( DAT1 = 3.0e0 / 4.0e0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. COMPLEX CDUM, H11, H11S, H22, SC, SUM, T, T1, TEMP, U, @@ -225,7 +225,7 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, REAL AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, $ SAFMIN, SMLNUM, SX, T2, TST, ULP INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, - $ NH, NZ + $ NH, NZ, KDEFL * .. * .. Local Arrays .. COMPLEX V( 2 ) @@ -315,6 +315,10 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -374,6 +378,7 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IF( L.GE.I ) $ GO TO 140 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -384,18 +389,18 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( REAL( H( L+1, L ) ) ) - T = S + H( L, L ) - ELSE IF( ITS.EQ.20 ) THEN + S = DAT1*ABS( REAL( H( I, I-1 ) ) ) + T = S + H( I, I ) + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( REAL( H( I, I-1 ) ) ) - T = S + H( I, I ) + S = DAT1*ABS( REAL( H( L+1, L ) ) ) + T = S + H( L, L ) ELSE * * Wilkinson's shift. @@ -556,6 +561,8 @@ SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * H(I,I-1) is negligible: one eigenvalue has converged. * W( I ) = H( I, I ) +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/clahr2.f b/lapack-netlib/SRC/clahr2.f index 50547f2cd8..ce15093dac 100644 --- a/lapack-netlib/SRC/clahr2.f +++ b/lapack-netlib/SRC/clahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's CLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's CLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's CLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/claic1.f b/lapack-netlib/SRC/claic1.f index 9aaecf48eb..773c718d1d 100644 --- a/lapack-netlib/SRC/claic1.f +++ b/lapack-netlib/SRC/claic1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB @@ -194,7 +191,7 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) ELSE S = ALPHA / S1 C = GAMMA / S1 - TMP = SQRT( S*CONJG( S )+C*CONJG( C ) ) + TMP = REAL( SQRT( S*CONJG( S )+C*CONJG( C ) ) ) S = S / TMP C = C / TMP SESTPR = S1*TMP @@ -248,14 +245,15 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) B = ( ONE-ZETA1*ZETA1-ZETA2*ZETA2 )*HALF C = ZETA1*ZETA1 IF( B.GT.ZERO ) THEN - T = C / ( B+SQRT( B*B+C ) ) + T = REAL( C / ( B+SQRT( B*B+C ) ) ) ELSE - T = SQRT( B*B+C ) - B + T = REAL( SQRT( B*B+C ) - B ) END IF * SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) - TMP = SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) + TMP = REAL( SQRT( SINE * CONJG( SINE ) + $ + COSINE * CONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP SESTPR = SQRT( T+ONE )*ABSEST @@ -280,7 +278,7 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) S1 = MAX( ABS( SINE ), ABS( COSINE ) ) S = SINE / S1 C = COSINE / S1 - TMP = SQRT( S*CONJG( S )+C*CONJG( C ) ) + TMP = REAL( SQRT( S*CONJG( S )+C*CONJG( C ) ) ) S = S / TMP C = C / TMP RETURN @@ -338,7 +336,7 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * B = ( ZETA1*ZETA1+ZETA2*ZETA2+ONE )*HALF C = ZETA2*ZETA2 - T = C / ( B+SQRT( ABS( B*B-C ) ) ) + T = REAL( C / ( B+SQRT( ABS( B*B-C ) ) ) ) SINE = ( ALPHA / ABSEST ) / ( ONE-T ) COSINE = -( GAMMA / ABSEST ) / T SESTPR = SQRT( T+FOUR*EPS*EPS*NORMA )*ABSEST @@ -349,15 +347,16 @@ SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) B = ( ZETA2*ZETA2+ZETA1*ZETA1-ONE )*HALF C = ZETA1*ZETA1 IF( B.GE.ZERO ) THEN - T = -C / ( B+SQRT( B*B+C ) ) + T = REAL( -C / ( B+SQRT( B*B+C ) ) ) ELSE - T = B - SQRT( B*B+C ) + T = REAL( B - SQRT( B*B+C ) ) END IF SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) SESTPR = SQRT( ONE+T+FOUR*EPS*EPS*NORMA )*ABSEST END IF - TMP = SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) + TMP = REAL( SQRT( SINE * CONJG( SINE ) + $ + COSINE * CONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP RETURN diff --git a/lapack-netlib/SRC/clals0.f b/lapack-netlib/SRC/clals0.f index 90bff5889e..e981fc36fd 100644 --- a/lapack-netlib/SRC/clals0.f +++ b/lapack-netlib/SRC/clals0.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -270,10 +268,9 @@ SUBROUTINE CLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/clalsa.f b/lapack-netlib/SRC/clalsa.f index 004d68fbaf..06883ab207 100644 --- a/lapack-netlib/SRC/clalsa.f +++ b/lapack-netlib/SRC/clalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ SUBROUTINE CLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/clalsd.f b/lapack-netlib/SRC/clalsd.f index 5ebbb23b6c..a2da9a9257 100644 --- a/lapack-netlib/SRC/clalsd.f +++ b/lapack-netlib/SRC/clalsd.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -186,10 +184,9 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clamswlq.f b/lapack-netlib/SRC/clamswlq.f index f6909b6669..1606cc611c 100644 --- a/lapack-netlib/SRC/clamswlq.f +++ b/lapack-netlib/SRC/clamswlq.f @@ -19,13 +19,13 @@ *> *> \verbatim *> -*> CLAMQRTS overwrites the general real M-by-N matrix C with +*> CLAMSWLQ overwrites the general complex M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'T': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product of blocked +*> where Q is a complex unitary matrix defined as the product of blocked *> elementary reflectors computed by short wide LQ *> factorization (CLASWLQ) *> \endverbatim @@ -44,7 +44,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is COMPLEX array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA => max(1,K). *> \endverbatim *> *> \param[in] T @@ -171,8 +161,8 @@ * ===================== *> *> \verbatim -*> Short-Wide LQ (SWLQ) performs LQ by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Short-Wide LQ (SWLQ) performs LQ by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out upper diagonal entries of a block of NB rows of A: *> Q(1) zeros out the upper diagonal entries of rows 1:NB of A @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE CLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ SUBROUTINE CLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/clamtsqr.f b/lapack-netlib/SRC/clamtsqr.f index c71e4aa7d1..5677420ac9 100644 --- a/lapack-netlib/SRC/clamtsqr.f +++ b/lapack-netlib/SRC/clamtsqr.f @@ -25,7 +25,7 @@ *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product +*> where Q is a complex unitary matrix defined as the product *> of blocked elementary reflectors computed by tall skinny *> QR factorization (CLATSQR) *> \endverbatim @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as CLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is COMPLEX array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by CLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -164,8 +163,8 @@ * ===================== *> *> \verbatim -*> Tall-Skinny QR (TSQR) performs QR by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Tall-Skinny QR (TSQR) performs QR by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out subdiagonal entries of a block of MB rows of A: *> Q(1) zeros out the subdiagonal entries of rows 1:MB of A @@ -196,10 +195,9 @@ SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = M * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/clangb.f b/lapack-netlib/SRC/clangb.f index 9818360fe4..09f36bbc45 100644 --- a/lapack-netlib/SRC/clangb.f +++ b/lapack-netlib/SRC/clangb.f @@ -117,20 +117,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBauxiliary * * ===================================================================== REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -148,17 +144,14 @@ REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, K, L - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -211,22 +204,15 @@ REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANGB = VALUE diff --git a/lapack-netlib/SRC/clange.f b/lapack-netlib/SRC/clange.f index 00895c8bc7..14d487b26f 100644 --- a/lapack-netlib/SRC/clange.f +++ b/lapack-netlib/SRC/clange.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * * ===================================================================== REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -138,17 +134,14 @@ REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -200,19 +193,13 @@ REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANGE = VALUE diff --git a/lapack-netlib/SRC/clangt.f b/lapack-netlib/SRC/clangt.f index 836e127fb2..a778c6702a 100644 --- a/lapack-netlib/SRC/clangt.f +++ b/lapack-netlib/SRC/clangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/clanhb.f b/lapack-netlib/SRC/clanhb.f index f78de23df5..1eae7fbe74 100644 --- a/lapack-netlib/SRC/clanhb.f +++ b/lapack-netlib/SRC/clanhb.f @@ -124,20 +124,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -155,17 +151,14 @@ REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SQRT @@ -237,57 +230,39 @@ REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 J = 1, N IF( REAL( AB( L, J ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AB( L, J ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHB = VALUE diff --git a/lapack-netlib/SRC/clanhe.f b/lapack-netlib/SRC/clanhe.f index 33d6c8b014..8181b329ef 100644 --- a/lapack-netlib/SRC/clanhe.f +++ b/lapack-netlib/SRC/clanhe.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -147,17 +143,14 @@ REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, SQRT @@ -227,48 +220,31 @@ REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, A( J+1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM DO 130 I = 1, N IF( REAL( A( I, I ) ).NE.ZERO ) THEN ABSA = ABS( REAL( A( I, I ) ) ) - IF( SSQ( 1 ).LT.ABSA ) THEN - SSQ( 2 ) = ONE + SSQ( 2 )*( SSQ( 1 ) / ABSA )**2 - SSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - SSQ( 2 ) = SSQ( 2 ) + ( ABSA / SSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHE = VALUE diff --git a/lapack-netlib/SRC/clanhf.f b/lapack-netlib/SRC/clanhf.f index 13e5fe300d..4ce70602df 100644 --- a/lapack-netlib/SRC/clanhf.f +++ b/lapack-netlib/SRC/clanhf.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -246,10 +244,9 @@ * ===================================================================== REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/clanhp.f b/lapack-netlib/SRC/clanhp.f index e0e23abc7e..ff99a73537 100644 --- a/lapack-netlib/SRC/clanhp.f +++ b/lapack-netlib/SRC/clanhp.f @@ -110,19 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -140,17 +136,14 @@ REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, SQRT @@ -229,48 +222,31 @@ REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( REAL( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -279,8 +255,7 @@ REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHP = VALUE diff --git a/lapack-netlib/SRC/clanhs.f b/lapack-netlib/SRC/clanhs.f index 661b4f9013..faf86124ad 100644 --- a/lapack-netlib/SRC/clanhs.f +++ b/lapack-netlib/SRC/clanhs.f @@ -102,19 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -132,17 +128,14 @@ REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -194,20 +187,13 @@ REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHS = VALUE diff --git a/lapack-netlib/SRC/clanht.f b/lapack-netlib/SRC/clanht.f index 9e2be72cf8..5ac3d4b1d2 100644 --- a/lapack-netlib/SRC/clanht.f +++ b/lapack-netlib/SRC/clanht.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/clansb.f b/lapack-netlib/SRC/clansb.f index 1085fd8805..b95f6335f2 100644 --- a/lapack-netlib/SRC/clansb.f +++ b/lapack-netlib/SRC/clansb.f @@ -122,20 +122,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -153,17 +149,14 @@ REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -231,47 +224,29 @@ REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL CLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSB = VALUE diff --git a/lapack-netlib/SRC/clansp.f b/lapack-netlib/SRC/clansp.f index 628dc0a75f..1065066d33 100644 --- a/lapack-netlib/SRC/clansp.f +++ b/lapack-netlib/SRC/clansp.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -138,17 +134,14 @@ REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, AIMAG, REAL, SQRT @@ -223,57 +216,40 @@ REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( REAL( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( AIMAG( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( AIMAG( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -282,8 +258,7 @@ REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSP = VALUE diff --git a/lapack-netlib/SRC/clansy.f b/lapack-netlib/SRC/clansy.f index 537fb7ba9d..478c14040d 100644 --- a/lapack-netlib/SRC/clansy.f +++ b/lapack-netlib/SRC/clansy.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -146,17 +142,14 @@ REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -222,39 +215,21 @@ REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL CLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSY = VALUE diff --git a/lapack-netlib/SRC/clantb.f b/lapack-netlib/SRC/clantb.f index 8066d0ef69..f7747b6edd 100644 --- a/lapack-netlib/SRC/clantb.f +++ b/lapack-netlib/SRC/clantb.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -165,17 +161,14 @@ REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -317,61 +310,46 @@ REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTB = VALUE diff --git a/lapack-netlib/SRC/clantp.f b/lapack-netlib/SRC/clantp.f index b0c48eb468..f7169360eb 100644 --- a/lapack-netlib/SRC/clantp.f +++ b/lapack-netlib/SRC/clantp.f @@ -118,19 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -149,17 +145,14 @@ REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -312,64 +305,45 @@ REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTP = VALUE diff --git a/lapack-netlib/SRC/clantr.f b/lapack-netlib/SRC/clantr.f index 3b361cc973..f1dce1402d 100644 --- a/lapack-netlib/SRC/clantr.f +++ b/lapack-netlib/SRC/clantr.f @@ -134,20 +134,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -166,17 +162,14 @@ REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -317,56 +310,38 @@ REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTR = VALUE diff --git a/lapack-netlib/SRC/clapll.f b/lapack-netlib/SRC/clapll.f index 5465372da7..2fea2b1a31 100644 --- a/lapack-netlib/SRC/clapll.f +++ b/lapack-netlib/SRC/clapll.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/clapmr.f b/lapack-netlib/SRC/clapmr.f index e01d5bfca1..fa6193fc3a 100644 --- a/lapack-netlib/SRC/clapmr.f +++ b/lapack-netlib/SRC/clapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) * RETURN * -* End of ZLAPMT +* End of CLAPMR * END diff --git a/lapack-netlib/SRC/clapmt.f b/lapack-netlib/SRC/clapmt.f index 3b22e09ea9..e1230aeba9 100644 --- a/lapack-netlib/SRC/clapmt.f +++ b/lapack-netlib/SRC/clapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/claqgb.f b/lapack-netlib/SRC/claqgb.f index 636c6842a4..3f1e824dbf 100644 --- a/lapack-netlib/SRC/claqgb.f +++ b/lapack-netlib/SRC/claqgb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBauxiliary * * ===================================================================== SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/claqge.f b/lapack-netlib/SRC/claqge.f index 9d9efa30fb..ae20ab7a02 100644 --- a/lapack-netlib/SRC/claqge.f +++ b/lapack-netlib/SRC/claqge.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * * ===================================================================== SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/claqhb.f b/lapack-netlib/SRC/claqhb.f index db69875264..0ee2a1e595 100644 --- a/lapack-netlib/SRC/claqhb.f +++ b/lapack-netlib/SRC/claqhb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqhe.f b/lapack-netlib/SRC/claqhe.f index 14714b5180..619c35260f 100644 --- a/lapack-netlib/SRC/claqhe.f +++ b/lapack-netlib/SRC/claqhe.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqhp.f b/lapack-netlib/SRC/claqhp.f index c41eb184b7..e4088f7da6 100644 --- a/lapack-netlib/SRC/claqhp.f +++ b/lapack-netlib/SRC/claqhp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqp2.f b/lapack-netlib/SRC/claqp2.f index 33f2a8e08d..6e41afeb4a 100644 --- a/lapack-netlib/SRC/claqp2.f +++ b/lapack-netlib/SRC/claqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/claqps.f b/lapack-netlib/SRC/claqps.f index d0b7efcd55..e41c47c3c6 100644 --- a/lapack-netlib/SRC/claqps.f +++ b/lapack-netlib/SRC/claqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/claqr0.f b/lapack-netlib/SRC/claqr0.f index 233721352c..47494e0677 100644 --- a/lapack-netlib/SRC/claqr0.f +++ b/lapack-netlib/SRC/claqr0.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -240,10 +238,9 @@ SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/claqr1.f b/lapack-netlib/SRC/claqr1.f index 87d53871a7..e6989798f1 100644 --- a/lapack-netlib/SRC/claqr1.f +++ b/lapack-netlib/SRC/claqr1.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. COMPLEX S1, S2 diff --git a/lapack-netlib/SRC/claqr2.f b/lapack-netlib/SRC/claqr2.f index fc282b2d6a..1695fbe5bd 100644 --- a/lapack-netlib/SRC/claqr2.f +++ b/lapack-netlib/SRC/claqr2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ SUBROUTINE CLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/claqr3.f b/lapack-netlib/SRC/claqr3.f index 84d57d4d69..2f5402de97 100644 --- a/lapack-netlib/SRC/claqr3.f +++ b/lapack-netlib/SRC/claqr3.f @@ -251,8 +251,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ SUBROUTINE CLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/claqr4.f b/lapack-netlib/SRC/claqr4.f index 94484e7980..b2d15dd6e4 100644 --- a/lapack-netlib/SRC/claqr4.f +++ b/lapack-netlib/SRC/claqr4.f @@ -222,8 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -248,10 +246,9 @@ SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/claqr5.f b/lapack-netlib/SRC/claqr5.f index 71f26d8c92..95cc33b9d9 100644 --- a/lapack-netlib/SRC/claqr5.f +++ b/lapack-netlib/SRC/claqr5.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -258,10 +256,9 @@ SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, $ WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/claqsb.f b/lapack-netlib/SRC/claqsb.f index 004645a0f3..f7e3c0ef07 100644 --- a/lapack-netlib/SRC/claqsb.f +++ b/lapack-netlib/SRC/claqsb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqsp.f b/lapack-netlib/SRC/claqsp.f index 2a962d42d4..523e4a19e0 100644 --- a/lapack-netlib/SRC/claqsp.f +++ b/lapack-netlib/SRC/claqsp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqsy.f b/lapack-netlib/SRC/claqsy.f index 6d5f7da1ee..d9f3a5dddc 100644 --- a/lapack-netlib/SRC/claqsy.f +++ b/lapack-netlib/SRC/claqsy.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqz0.c b/lapack-netlib/SRC/claqz0.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/claqz0.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b CLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* INTEGER, INTENT( OUT ) :: INFO +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) +* REAL, INTENT( OUT ) :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ0 computes the eigenvalues of a matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a matrix pair (A,B): +*> +*> A = Q1*H*Z1**H, B = Q1*T*Z1**H, +*> +*> as computed by CGGHRD. +*> +*> If JOB='S', then the Hessenberg-triangular pair (H,T) is +*> also reduced to generalized Schur form, +*> +*> H = Q*S*Z**H, T = Q*P*Z**H, +*> +*> where Q and Z are unitary matrices, P and S are an upper triangular +*> matrices. +*> +*> Optionally, the unitary matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> unitary matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the unitary matrices from CGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the unitary factors from the +*> generalized Schur factorization of (A,B): +*> +*> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. +*> +*> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, +*> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an unitary matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an unitary matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal of A matches that of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization. +*> If JOB = 'E', the diagonal of B matches that of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = ALPHA(j) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the unitary matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the unitary matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the unitary matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the unitary matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the unitary matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> unitary matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHA(i) and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE CLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHA, BETA, Q, LDQ, Z, + $ LDZ, WORK, LWORK, RWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + INTEGER, INTENT( OUT ) :: INFO + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) + REAL, INTENT( OUT ) :: RWORK( * ) + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + REAL :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX :: ESHIFT, S1, TEMP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, CHGEQZ, CLAQZ2, CLAQZ3, CLASET, SLABAD, + $ CLARTG, CROT + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = REAL( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( REAL( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL CHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to CLAQZ2 + NW = MAX( NWR, NMIN ) + CALL CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHA, + $ BETA, WORK, NW, WORK, NW, WORK, -1, RWORK, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to CLAQZ3 + CALL CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHA, + $ BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, NBR, + $ WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = REAL( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL CLASET( 'FULL', N, N, CZERO, CONE, Q, + $ LDQ ) + IF( IWANTZ.EQ.3 ) CALL CLASET( 'FULL', N, N, CZERO, CONE, Z, + $ LDZ ) + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 30*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = CZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = CZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = CZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = CZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = CZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMPR = ZERO + IF( K .LT. ISTOP ) THEN + TEMPR = TEMPR+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMPR = TEMPR+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMPR ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL CLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = CZERO + + CALL CROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL CROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL CROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL CLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = CZERO + + CALL CROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL CROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL CROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, CONJG( S1 ) ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL CLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = CZERO + + CALL CROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL CROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL CROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, CONJG( S1 ) ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = CZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using CHGEQZ because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL CLAQZ2( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHA, BETA, WORK, NW, WORK( NW**2+1 ), NW, + $ WORK( 2*NW**2+1 ), LWORK-2*NW**2, RWORK, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = CZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( REAL( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+CONE/( SAFMIN*REAL( MAXIT ) ) + END IF + ALPHA( SHIFTPOS ) = CONE + BETA( SHIFTPOS ) = ESHIFT + NS = 1 + END IF + +* +* Time for a QZ sweep +* + CALL CLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHA( SHIFTPOS ), BETA( SHIFTPOS ), A, LDA, B, + $ LDB, Q, LDQ, Z, LDZ, WORK, NBLOCK, WORK( NBLOCK** + $ 2+1 ), NBLOCK, WORK( 2*NBLOCK**2+1 ), + $ LWORK-2*NBLOCK**2, SWEEP_INFO ) + + END DO + +* +* Call CHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, CHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL CHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/claqz1.c b/lapack-netlib/SRC/claqz1.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/claqz1.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b CLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* COMPLEX :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ1 chases a 1x1 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1,k),B(k+1,k)). +*> On exit, the bulge is located in +*> (A(k+2,k+1),B(k+2,k+1)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+2,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+3-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+2-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + SUBROUTINE CLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + COMPLEX :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local variables + REAL :: C + COMPLEX :: S, TEMP +* +* External Functions + EXTERNAL :: CLARTG, CROT +* + IF( K+1 .EQ. IHI ) THEN +* +* Shift is located on the edge of the matrix, remove it +* + CALL CLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C, S, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = CZERO + CALL CROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C, S ) + CALL CROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C, S ) + IF ( ILZ ) THEN + CALL CROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C, S ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* +* +* Apply transformation from the right +* + CALL CLARTG( B( K+1, K+1 ), B( K+1, K ), C, S, TEMP ) + B( K+1, K+1 ) = TEMP + B( K+1, K ) = CZERO + CALL CROT( K+2-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C, S ) + CALL CROT( K-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, K ), + $ 1, C, S ) + IF ( ILZ ) THEN + CALL CROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C, S ) + END IF +* +* Apply transformation from the left +* + CALL CLARTG( A( K+1, K ), A( K+2, K ), C, S, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = CZERO + CALL CROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, C, + $ S ) + CALL CROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, C, + $ S ) + IF ( ILQ ) THEN + CALL CROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C, CONJG( S ) ) + END IF +* + END IF +* +* End of CLAQZ1 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/claqz2.c b/lapack-netlib/SRC/claqz2.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/claqz2.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b CLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, +* $ WORK, LWORK, RWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHA( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* COMPLEX :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* REAL :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ2 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = ALPHA(j) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, + $ WORK, LWORK, RWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHA( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + COMPLEX :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + REAL :: RWORK( * ) + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local Scalars + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, CTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + REAL :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX :: S, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, CLAQZ0, CLAQZ1, SLABAD, CLACPY, CLASET, CGEMM, + $ CTGEXC, CLARTG, CROT + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = CZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL CLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK, -1, RWORK, REC+1, QZ_SMALL_INFO ) + LWORKREQ = INT( WORK( 1 ) )+2*JW**2 + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ2', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHA( KWTOP ) = A( KWTOP, KWTOP ) + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = CZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) + CALL CLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. CZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) +* Try to deflate eigenvalue + TEMPR = ABS( A( KWBOT, KWBOT ) ) + IF( TEMPR .EQ. ZERO ) THEN + TEMPR = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMPR, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL CTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, CTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + ALPHA( K ) = A( K, K ) + BETA( K ) = B( K, K ) + K = K+1 + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. CZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 ) *CONJG( QC( 1, + $ 1:JW-ND ) ) + DO K = KWBOT-1, KWTOP, -1 + CALL CLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = CZERO + K2 = MAX( KWTOP, K-1 ) + CALL CROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL CROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL CROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, CONJG( S1 ) ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + +* Move bulge down and remove it + DO K2 = K, KWBOT-1 + CALL CLAQZ1( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, LDQC, + $ JW, KWTOP, ZC, LDZC ) + END DO + + K = K-1 + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL CGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, CZERO, WORK, JW ) + CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL CGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, CZERO, WORK, JW ) + CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, JW, JW, CONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL CGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL CLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL CGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL CLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, JW, JW, CONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/claqz3.c b/lapack-netlib/SRC/claqz3.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/claqz3.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b CLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), +* $ ALPHA( * ), BETA( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ3 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array. SR contains +*> the alpha parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] BETA +*> \verbatim +*> BETA is COMPLEX array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, + $ LWORK, INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), + $ ALPHA( * ), BETA( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + REAL :: SAFMIN, SAFMAX, C, SCALE + COMPLEX :: TEMP, TEMP2, TEMP3, S + +* External Functions + EXTERNAL :: XERBLA, SLABAD, CLASET, CLARTG, CROT, CLAQZ1, CGEMM, + $ CLACPY + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ3', -INFO ) + RETURN + END IF + +* +* Executable statements +* + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + NS = NSHIFTS + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL CLASET( 'FULL', NS+1, NS+1, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS, NS, CZERO, CONE, ZC, LDZC ) + + DO I = 1, NS +* Introduce the shift + SCALE = SQRT( ABS( ALPHA( I ) ) ) * SQRT( ABS( BETA( I ) ) ) + IF( SCALE .GE. SAFMIN .AND. SCALE .LE. SAFMAX ) THEN + ALPHA( I ) = ALPHA( I )/SCALE + BETA( I ) = BETA( I )/SCALE + END IF + + TEMP2 = BETA( I )*A( ILO, ILO )-ALPHA( I )*B( ILO, ILO ) + TEMP3 = BETA( I )*A( ILO+1, ILO ) + + IF ( ABS( TEMP2 ) .GT. SAFMAX .OR. + $ ABS( TEMP3 ) .GT. SAFMAX ) THEN + TEMP2 = CONE + TEMP3 = CZERO + END IF + + CALL CLARTG( TEMP2, TEMP3, C, S, TEMP ) + CALL CROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C, + $ S ) + CALL CROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C, + $ S ) + CALL CROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C, CONJG( S ) ) + +* Chase the shift down + DO J = 1, NS-I + + CALL CLAQZ1( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, CONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, ILO ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, ILO ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, SWIDTH, SWIDTH, CONE, Z( 1, ILO ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL CLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -1 + DO J = 0, NP-1 +* Move down the block with index k+i+j, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL CLAQZ1( .TRUE., .TRUE., K+I+J, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Z( 1, K ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL CLASET( 'FULL', NS, NS, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS+1, NS+1, CZERO, CONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I, IHI-1 + CALL CLAQZ1( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, NS, NS, CONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, IHI-NS ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, IHI-NS ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, NS+1, NS+1, CONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/clar1v.f b/lapack-netlib/SRC/clar1v.f index 972c82cc78..f8d6531c3e 100644 --- a/lapack-netlib/SRC/clar1v.f +++ b/lapack-netlib/SRC/clar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ SUBROUTINE CLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/clar2v.f b/lapack-netlib/SRC/clar2v.f index 8dd17164fe..e293a7cab1 100644 --- a/lapack-netlib/SRC/clar2v.f +++ b/lapack-netlib/SRC/clar2v.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/clarcm.f b/lapack-netlib/SRC/clarcm.f index b22af2da58..4ad9563918 100644 --- a/lapack-netlib/SRC/clarcm.f +++ b/lapack-netlib/SRC/clarcm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/clarf.f b/lapack-netlib/SRC/clarf.f index 72140d52a2..b76841f59c 100644 --- a/lapack-netlib/SRC/clarf.f +++ b/lapack-netlib/SRC/clarf.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarfb.f b/lapack-netlib/SRC/clarfb.f index a4d429c09d..3dcadb1879 100644 --- a/lapack-netlib/SRC/clarfb.f +++ b/lapack-netlib/SRC/clarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/clarfg.f b/lapack-netlib/SRC/clarfg.f index d54c227bc6..36a98f5893 100644 --- a/lapack-netlib/SRC/clarfg.f +++ b/lapack-netlib/SRC/clarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/clarfgp.f b/lapack-netlib/SRC/clarfgp.f index 19e48cccdd..b584484c7f 100644 --- a/lapack-netlib/SRC/clarfgp.f +++ b/lapack-netlib/SRC/clarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N @@ -238,7 +235,7 @@ SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO - BETA = -SAVEALPHA + BETA = REAL( -SAVEALPHA ) END IF ELSE XNORM = SLAPY2( ALPHR, ALPHI ) diff --git a/lapack-netlib/SRC/clarft.f b/lapack-netlib/SRC/clarft.f index 296467a9f2..fdf80b78e9 100644 --- a/lapack-netlib/SRC/clarft.f +++ b/lapack-netlib/SRC/clarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/clarfx.f b/lapack-netlib/SRC/clarfx.f index ad284883d4..6a39094b8e 100644 --- a/lapack-netlib/SRC/clarfx.f +++ b/lapack-netlib/SRC/clarfx.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarfy.f b/lapack-netlib/SRC/clarfy.f index fccd136a87..77292757b4 100644 --- a/lapack-netlib/SRC/clarfy.f +++ b/lapack-netlib/SRC/clarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clargv.f b/lapack-netlib/SRC/clargv.f index 36c5108dfd..82a77b4422 100644 --- a/lapack-netlib/SRC/clargv.f +++ b/lapack-netlib/SRC/clargv.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -122,10 +120,9 @@ * ===================================================================== SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/clarnv.f b/lapack-netlib/SRC/clarnv.f index 9b26f4fd14..6d71d2b538 100644 --- a/lapack-netlib/SRC/clarnv.f +++ b/lapack-netlib/SRC/clarnv.f @@ -81,8 +81,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -99,10 +97,9 @@ * ===================================================================== SUBROUTINE CLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -120,7 +117,7 @@ SUBROUTINE CLARNV( IDIST, ISEED, N, X ) INTEGER LV PARAMETER ( LV = 128 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IV diff --git a/lapack-netlib/SRC/clarrv.f b/lapack-netlib/SRC/clarrv.f index 26a9febc87..d2a03fd241 100644 --- a/lapack-netlib/SRC/clarrv.f +++ b/lapack-netlib/SRC/clarrv.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -286,10 +284,9 @@ SUBROUTINE CLARRV( N, VL, VU, D, L, PIVMIN, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/clarscl2.f b/lapack-netlib/SRC/clarscl2.f index e7c1c215d2..26b028dbba 100644 --- a/lapack-netlib/SRC/clarscl2.f +++ b/lapack-netlib/SRC/clarscl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/clartg.f b/lapack-netlib/SRC/clartg.f deleted file mode 100644 index baa68b6574..0000000000 --- a/lapack-netlib/SRC/clartg.f +++ /dev/null @@ -1,250 +0,0 @@ -*> \brief \b CLARTG generates a plane rotation with real cosine and complex sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download CLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE CLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* REAL CS -* COMPLEX F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> CLARTG generates a plane rotation so that -*> -*> [ CS SN ] [ F ] [ R ] -*> [ __ ] . [ ] = [ ] where CS**2 + |SN|**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a faster version of the BLAS1 routine CROTG, except for -*> the following differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0, then CS=0 and SN is chosen so that R is real. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is COMPLEX -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is COMPLEX -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is REAL -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is COMPLEX -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is COMPLEX -*> The nonzero component of the rotated vector. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complexOTHERauxiliary -* -*> \par Further Details: -* ===================== -*> -*> \verbatim -*> -*> 3-5-96 - Modified with a new algorithm by W. Kahan and J. Demmel -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -*> -* ===================================================================== - SUBROUTINE CLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - REAL CS - COMPLEX F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL TWO, ONE, ZERO - PARAMETER ( TWO = 2.0E+0, ONE = 1.0E+0, ZERO = 0.0E+0 ) - COMPLEX CZERO - PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - REAL D, DI, DR, EPS, F2, F2S, G2, G2S, SAFMIN, - $ SAFMN2, SAFMX2, SCALE - COMPLEX FF, FS, GS -* .. -* .. External Functions .. - REAL SLAMCH, SLAPY2 - LOGICAL SISNAN - EXTERNAL SLAMCH, SLAPY2, SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, AIMAG, CMPLX, CONJG, INT, LOG, MAX, REAL, - $ SQRT -* .. -* .. Statement Functions .. - REAL ABS1, ABSSQ -* .. -* .. Statement Function definitions .. - ABS1( FF ) = MAX( ABS( REAL( FF ) ), ABS( AIMAG( FF ) ) ) - ABSSQ( FF ) = REAL( FF )**2 + AIMAG( FF )**2 -* .. -* .. Executable Statements .. -* - SAFMIN = SLAMCH( 'S' ) - EPS = SLAMCH( 'E' ) - SAFMN2 = SLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( SLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 - SCALE = MAX( ABS1( F ), ABS1( G ) ) - FS = F - GS = G - COUNT = 0 - IF( SCALE.GE.SAFMX2 ) THEN - 10 CONTINUE - COUNT = COUNT + 1 - FS = FS*SAFMN2 - GS = GS*SAFMN2 - SCALE = SCALE*SAFMN2 - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - ELSE IF( SCALE.LE.SAFMN2 ) THEN - IF( G.EQ.CZERO.OR.SISNAN( ABS( G ) ) ) THEN - CS = ONE - SN = CZERO - R = F - RETURN - END IF - 20 CONTINUE - COUNT = COUNT - 1 - FS = FS*SAFMX2 - GS = GS*SAFMX2 - SCALE = SCALE*SAFMX2 - IF( SCALE.LE.SAFMN2 ) - $ GO TO 20 - END IF - F2 = ABSSQ( FS ) - G2 = ABSSQ( GS ) - IF( F2.LE.MAX( G2, ONE )*SAFMIN ) THEN -* -* This is a rare case: F is very small. -* - IF( F.EQ.CZERO ) THEN - CS = ZERO - R = SLAPY2( REAL( G ), AIMAG( G ) ) -* Do complex/real division explicitly with two real divisions - D = SLAPY2( REAL( GS ), AIMAG( GS ) ) - SN = CMPLX( REAL( GS ) / D, -AIMAG( GS ) / D ) - RETURN - END IF - F2S = SLAPY2( REAL( FS ), AIMAG( FS ) ) -* G2 and G2S are accurate -* G2 is at least SAFMIN, and G2S is at least SAFMN2 - G2S = SQRT( G2 ) -* Error in CS from underflow in F2S is at most -* UNFL / SAFMN2 .lt. sqrt(UNFL*EPS) .lt. EPS -* If MAX(G2,ONE)=G2, then F2 .lt. G2*SAFMIN, -* and so CS .lt. sqrt(SAFMIN) -* If MAX(G2,ONE)=ONE, then F2 .lt. SAFMIN -* and so CS .lt. sqrt(SAFMIN)/SAFMN2 = sqrt(EPS) -* Therefore, CS = F2S/G2S / sqrt( 1 + (F2S/G2S)**2 ) = F2S/G2S - CS = F2S / G2S -* Make sure abs(FF) = 1 -* Do complex/real division explicitly with 2 real divisions - IF( ABS1( F ).GT.ONE ) THEN - D = SLAPY2( REAL( F ), AIMAG( F ) ) - FF = CMPLX( REAL( F ) / D, AIMAG( F ) / D ) - ELSE - DR = SAFMX2*REAL( F ) - DI = SAFMX2*AIMAG( F ) - D = SLAPY2( DR, DI ) - FF = CMPLX( DR / D, DI / D ) - END IF - SN = FF*CMPLX( REAL( GS ) / G2S, -AIMAG( GS ) / G2S ) - R = CS*F + SN*G - ELSE -* -* This is the most common case. -* Neither F2 nor F2/G2 are less than SAFMIN -* F2S cannot overflow, and it is accurate -* - F2S = SQRT( ONE+G2 / F2 ) -* Do the F2S(real)*FS(complex) multiply with two real multiplies - R = CMPLX( F2S*REAL( FS ), F2S*AIMAG( FS ) ) - CS = ONE / F2S - D = F2 + G2 -* Do complex/real division explicitly with two real divisions - SN = CMPLX( REAL( R ) / D, AIMAG( R ) / D ) - SN = SN*CONJG( GS ) - IF( COUNT.NE.0 ) THEN - IF( COUNT.GT.0 ) THEN - DO 30 I = 1, COUNT - R = R*SAFMX2 - 30 CONTINUE - ELSE - DO 40 I = 1, -COUNT - R = R*SAFMN2 - 40 CONTINUE - END IF - END IF - END IF - RETURN -* -* End of CLARTG -* - END diff --git a/lapack-netlib/SRC/clartg.f90 b/lapack-netlib/SRC/clartg.f90 new file mode 100644 index 0000000000..13a629a34e --- /dev/null +++ b/lapack-netlib/SRC/clartg.f90 @@ -0,0 +1,233 @@ +!> \brief \b CLARTG generates a plane rotation with real cosine and complex sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE CLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C +! COMPLEX(wp) F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> CLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -conjg(S) C ] [ G ] [ 0 ] +!> +!> where C is real and C**2 + |S|**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> +!> sgn(x) = { x / |x|, x != 0 +!> { 1, x = 0 +!> +!> R = sgn(F) * sqrt(|F|**2 + |G|**2) +!> +!> C = |F| / sqrt(|F|**2 + |G|**2) +!> +!> S = sgn(F) * conjg(G) / sqrt(|F|**2 + |G|**2) +!> +!> When F and G are real, the formulas simplify to C = F/R and +!> S = G/R, and the returned values of C, S, and R should be +!> identical to those returned by CLARTG. +!> +!> The algorithm used to compute these quantities incorporates scaling +!> to avoid overflow or underflow in computing the square root of the +!> sum of squares. +!> +!> This is a faster version of the BLAS1 routine CROTG, except for +!> the following differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0, then C=0 and S is chosen so that R is real. +!> +!> Below, wp=>sp stands for single precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is COMPLEX(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is COMPLEX(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is COMPLEX(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is COMPLEX(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date August 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine CLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, & + rtmin=>srtmin, rtmax=>srtmax, safmin=>ssafmin, safmax=>ssafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) c + complex(wp) f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, f2, g1, g2, h2, p, u, uu, v, vv, w + complex(wp) :: fs, gs, t +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, aimag, conjg, max, min, real, sqrt +! .. +! .. Statement Functions .. + real(wp) :: ABSSQ +! .. +! .. Statement Function definitions .. + ABSSQ( t ) = real( t )**2 + aimag( t )**2 +! .. +! .. Executable Statements .. +! + if( g == czero ) then + c = one + s = czero + r = f + else if( f == czero ) then + c = zero + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + g2 = ABSSQ( g ) + d = sqrt( g2 ) + s = conjg( g ) / d + r = d + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + d = sqrt( g2 ) + s = conjg( gs ) / d + r = d*u + end if + else + f1 = max( abs(real(f)), abs(aimag(f)) ) + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + f2 = ABSSQ( f ) + g2 = ABSSQ( g ) + h2 = f2 + g2 + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = f2*p + s = conjg( g )*( f*p ) + r = f*( h2*p ) + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + if( f1*uu < rtmin ) then +! +! f is not well-scaled when scaled by g1. +! Use a different scaling for f. +! + v = min( safmax, max( safmin, f1 ) ) + vv = one / v + w = v * uu + fs = f*vv + f2 = ABSSQ( fs ) + h2 = f2*w**2 + g2 + else +! +! Otherwise use the same scaling for f and g. +! + w = one + fs = f*uu + f2 = ABSSQ( fs ) + h2 = f2 + g2 + end if + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = ( f2*p )*w + s = conjg( gs )*( fs*p ) + r = ( fs*( h2*p ) )*u + end if + end if + return +end subroutine diff --git a/lapack-netlib/SRC/clartv.f b/lapack-netlib/SRC/clartv.f index c366c7dccc..08999bf36b 100644 --- a/lapack-netlib/SRC/clartv.f +++ b/lapack-netlib/SRC/clartv.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/clarz.f b/lapack-netlib/SRC/clarz.f index b7fde54382..0a40b40f50 100644 --- a/lapack-netlib/SRC/clarz.f +++ b/lapack-netlib/SRC/clarz.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ * ===================================================================== SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarzb.f b/lapack-netlib/SRC/clarzb.f index ffa884282e..97d7b0e40c 100644 --- a/lapack-netlib/SRC/clarzb.f +++ b/lapack-netlib/SRC/clarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/clarzt.f b/lapack-netlib/SRC/clarzt.f index 6bea5d465f..b21bc6f1ad 100644 --- a/lapack-netlib/SRC/clarzt.f +++ b/lapack-netlib/SRC/clarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/clascl.f b/lapack-netlib/SRC/clascl.f index b760bab50d..399af23a4b 100644 --- a/lapack-netlib/SRC/clascl.f +++ b/lapack-netlib/SRC/clascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/clascl2.f b/lapack-netlib/SRC/clascl2.f index d3a5b9144d..2ae27975c5 100644 --- a/lapack-netlib/SRC/clascl2.f +++ b/lapack-netlib/SRC/clascl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/claset.f b/lapack-netlib/SRC/claset.f index fe49fd56fc..d1a6779d34 100644 --- a/lapack-netlib/SRC/claset.f +++ b/lapack-netlib/SRC/claset.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasr.f b/lapack-netlib/SRC/clasr.f index 8c6216b41b..71fc7521f7 100644 --- a/lapack-netlib/SRC/clasr.f +++ b/lapack-netlib/SRC/clasr.f @@ -193,17 +193,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/classq.f b/lapack-netlib/SRC/classq.f deleted file mode 100644 index 92e407ff3f..0000000000 --- a/lapack-netlib/SRC/classq.f +++ /dev/null @@ -1,168 +0,0 @@ -*> \brief \b CLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download CLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. -* COMPLEX X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> CLASSQ returns the values scl and ssq such that -*> -*> ( scl**2 )*ssq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is -*> assumed to be at least unity and the value of ssq will then satisfy -*> -*> 1.0 <= ssq <= ( sumsq + 2*n ). -*> -*> scale is assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( real( x( i ) ) ), abs( aimag( x( i ) ) ) ), -*> i -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ respectively. -*> SCALE and SUMSQ are overwritten by scl and ssq respectively. -*> -*> The routine makes only one pass through the vector X. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is COMPLEX array, dimension (1+(N-1)*INCX) -*> The vector x as described above. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is REAL -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with the value scl . -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is REAL -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with the value ssq . -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complexOTHERauxiliary -* -* ===================================================================== - SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. - COMPLEX X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - REAL TEMP1 -* .. -* .. External Functions .. - LOGICAL SISNAN - EXTERNAL SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, AIMAG, REAL -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - TEMP1 = ABS( REAL( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.SISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - TEMP1 = ABS( AIMAG( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.SISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 .OR. SISNAN( TEMP1 ) ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF -* - RETURN -* -* End of CLASSQ -* - END diff --git a/lapack-netlib/SRC/classq.f90 b/lapack-netlib/SRC/classq.f90 new file mode 100644 index 0000000000..cb4e7971f0 --- /dev/null +++ b/lapack-netlib/SRC/classq.f90 @@ -0,0 +1,262 @@ +!> \brief \b CLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download CLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! REAL SCALE, SUMSQ +! .. +! .. Array Arguments .. +! COMPLEX X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> CLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is COMPLEX array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is REAL +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is REAL +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine CLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, & + sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + complex(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(real(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ax = abs(aimag(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/claswlq.f b/lapack-netlib/SRC/claswlq.f index dcbdc0d52d..63cbd02c6d 100644 --- a/lapack-netlib/SRC/claswlq.f +++ b/lapack-netlib/SRC/claswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -207,10 +206,10 @@ SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/claswp.f b/lapack-netlib/SRC/claswp.f index 9f8a2dc698..60af6f664d 100644 --- a/lapack-netlib/SRC/claswp.f +++ b/lapack-netlib/SRC/claswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/clasyf.f b/lapack-netlib/SRC/clasyf.f index ade36f9e29..e6666cfed6 100644 --- a/lapack-netlib/SRC/clasyf.f +++ b/lapack-netlib/SRC/clasyf.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasyf_aa.f b/lapack-netlib/SRC/clasyf_aa.f index a44a8f5b19..d79b06874e 100644 --- a/lapack-netlib/SRC/clasyf_aa.f +++ b/lapack-netlib/SRC/clasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/clasyf_rk.f b/lapack-netlib/SRC/clasyf_rk.f index bd7a0fb456..080a65a121 100644 --- a/lapack-netlib/SRC/clasyf_rk.f +++ b/lapack-netlib/SRC/clasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE CLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasyf_rook.f b/lapack-netlib/SRC/clasyf_rook.f index b83f541881..40e2cbe944 100644 --- a/lapack-netlib/SRC/clasyf_rook.f +++ b/lapack-netlib/SRC/clasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE CLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clatbs.f b/lapack-netlib/SRC/clatbs.f index 3bb7bff880..606f963d38 100644 --- a/lapack-netlib/SRC/clatbs.f +++ b/lapack-netlib/SRC/clatbs.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -243,10 +241,9 @@ SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatdf.f b/lapack-netlib/SRC/clatdf.f index 557830d1c3..5445e387e5 100644 --- a/lapack-netlib/SRC/clatdf.f +++ b/lapack-netlib/SRC/clatdf.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -169,10 +167,9 @@ SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/clatps.f b/lapack-netlib/SRC/clatps.f index 402b33eae4..a5578b5d49 100644 --- a/lapack-netlib/SRC/clatps.f +++ b/lapack-netlib/SRC/clatps.f @@ -151,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -231,10 +229,9 @@ SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatrd.f b/lapack-netlib/SRC/clatrd.f index 1ad84c1172..6e9da3b27f 100644 --- a/lapack-netlib/SRC/clatrd.f +++ b/lapack-netlib/SRC/clatrd.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -271,7 +268,7 @@ SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * ALPHA = A( I-1, I ) CALL CLARFG( I-1, ALPHA, A( 1, I ), 1, TAU( I-1 ) ) - E( I-1 ) = ALPHA + E( I-1 ) = REAL( ALPHA ) A( I-1, I ) = ONE * * Compute W(1:i-1,i) @@ -325,7 +322,7 @@ SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) ALPHA = A( I+1, I ) CALL CLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, $ TAU( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Compute W(i+1:n,i) diff --git a/lapack-netlib/SRC/clatrs.f b/lapack-netlib/SRC/clatrs.f index 8fc539b308..946ab80689 100644 --- a/lapack-netlib/SRC/clatrs.f +++ b/lapack-netlib/SRC/clatrs.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -239,10 +237,9 @@ SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatrz.f b/lapack-netlib/SRC/clatrz.f index 0328e31c39..677892011d 100644 --- a/lapack-netlib/SRC/clatrz.f +++ b/lapack-netlib/SRC/clatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/clatsqr.f b/lapack-netlib/SRC/clatsqr.f index e9c6d77c26..7a0b85487d 100644 --- a/lapack-netlib/SRC/clatsqr.f +++ b/lapack-netlib/SRC/clatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp.f b/lapack-netlib/SRC/claunhr_col_getrfnp.f index 66b9c0407c..96381ee26d 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp.f +++ b/lapack-netlib/SRC/claunhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE CLAUNHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp2.f b/lapack-netlib/SRC/claunhr_col_getrfnp2.f index 82fc329eee..d3103fde90 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/claunhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> CLAUNHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine CLAUNHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, CLAUNHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, CLAUNHR_COL_GETRFNP2 *> is self-sufficient and can be used without CLAUNHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE CLAUNHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/clauu2.f b/lapack-netlib/SRC/clauu2.f index 930662d0f2..240ec20c08 100644 --- a/lapack-netlib/SRC/clauu2.f +++ b/lapack-netlib/SRC/clauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -165,7 +162,7 @@ SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * Compute the product U * U**H. * DO 10 I = 1, N - AII = A( I, I ) + AII = REAL( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + REAL( CDOTC( N-I, A( I, I+1 ), LDA, $ A( I, I+1 ), LDA ) ) @@ -184,7 +181,7 @@ SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * Compute the product L**H * L. * DO 20 I = 1, N - AII = A( I, I ) + AII = REAL( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + REAL( CDOTC( N-I, A( I+1, I ), 1, $ A( I+1, I ), 1 ) ) diff --git a/lapack-netlib/SRC/clauum.f b/lapack-netlib/SRC/clauum.f index eb9f894867..8b3cbc51dd 100644 --- a/lapack-netlib/SRC/clauum.f +++ b/lapack-netlib/SRC/clauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbcon.f b/lapack-netlib/SRC/cpbcon.f index 174f840306..df1a3bd1f7 100644 --- a/lapack-netlib/SRC/cpbcon.f +++ b/lapack-netlib/SRC/cpbcon.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbequ.f b/lapack-netlib/SRC/cpbequ.f index 922c44b1fc..fd91ea121b 100644 --- a/lapack-netlib/SRC/cpbequ.f +++ b/lapack-netlib/SRC/cpbequ.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbrfs.f b/lapack-netlib/SRC/cpbrfs.f index 7bf13e9274..eb35e8fc0a 100644 --- a/lapack-netlib/SRC/cpbrfs.f +++ b/lapack-netlib/SRC/cpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbstf.f b/lapack-netlib/SRC/cpbstf.f index f344bf812c..0452a91835 100644 --- a/lapack-netlib/SRC/cpbstf.f +++ b/lapack-netlib/SRC/cpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE CPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbsv.f b/lapack-netlib/SRC/cpbsv.f index b1a1fab0f2..248abbc1f3 100644 --- a/lapack-netlib/SRC/cpbsv.f +++ b/lapack-netlib/SRC/cpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbsvx.f b/lapack-netlib/SRC/cpbsvx.f index fde0564e41..652e185010 100644 --- a/lapack-netlib/SRC/cpbsvx.f +++ b/lapack-netlib/SRC/cpbsvx.f @@ -301,8 +301,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -342,10 +340,9 @@ SUBROUTINE CPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpbtf2.f b/lapack-netlib/SRC/cpbtf2.f index f871dd7ddd..0be2c0a7f5 100644 --- a/lapack-netlib/SRC/cpbtf2.f +++ b/lapack-netlib/SRC/cpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbtrf.f b/lapack-netlib/SRC/cpbtrf.f index 8854cbee70..a4c18efb39 100644 --- a/lapack-netlib/SRC/cpbtrf.f +++ b/lapack-netlib/SRC/cpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbtrs.f b/lapack-netlib/SRC/cpbtrs.f index 1fef333373..62874f688a 100644 --- a/lapack-netlib/SRC/cpbtrs.f +++ b/lapack-netlib/SRC/cpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpftrf.f b/lapack-netlib/SRC/cpftrf.f index 6d0b527911..cbaab6832a 100644 --- a/lapack-netlib/SRC/cpftrf.f +++ b/lapack-netlib/SRC/cpftrf.f @@ -204,17 +204,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpftri.f b/lapack-netlib/SRC/cpftri.f index e2b5690da7..1f783a6fd1 100644 --- a/lapack-netlib/SRC/cpftri.f +++ b/lapack-netlib/SRC/cpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpftrs.f b/lapack-netlib/SRC/cpftrs.f index 739ae27de1..cd9a2434ca 100644 --- a/lapack-netlib/SRC/cpftrs.f +++ b/lapack-netlib/SRC/cpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -220,10 +218,9 @@ * ===================================================================== SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpocon.f b/lapack-netlib/SRC/cpocon.f index fbaba80b68..790d61d749 100644 --- a/lapack-netlib/SRC/cpocon.f +++ b/lapack-netlib/SRC/cpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpoequ.f b/lapack-netlib/SRC/cpoequ.f index 1463d3c996..adc484d96f 100644 --- a/lapack-netlib/SRC/cpoequ.f +++ b/lapack-netlib/SRC/cpoequ.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/cpoequb.f b/lapack-netlib/SRC/cpoequb.f index 68641bf676..22f5387b50 100644 --- a/lapack-netlib/SRC/cpoequb.f +++ b/lapack-netlib/SRC/cpoequb.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -183,11 +180,11 @@ SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * * Find the minimum and maximum diagonal elements. * - S( 1 ) = A( 1, 1 ) + S( 1 ) = REAL( A( 1, 1 ) ) SMIN = S( 1 ) AMAX = S( 1 ) DO 10 I = 2, N - S( I ) = A( I, I ) + S( I ) = REAL( A( I, I ) ) SMIN = MIN( SMIN, S( I ) ) AMAX = MAX( AMAX, S( I ) ) 10 CONTINUE diff --git a/lapack-netlib/SRC/cporfs.f b/lapack-netlib/SRC/cporfs.f index bd4054cecd..8e12d79738 100644 --- a/lapack-netlib/SRC/cporfs.f +++ b/lapack-netlib/SRC/cporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cporfsx.f b/lapack-netlib/SRC/cporfsx.f index 3a2db7135c..c41ba270eb 100644 --- a/lapack-netlib/SRC/cporfsx.f +++ b/lapack-netlib/SRC/cporfsx.f @@ -122,7 +122,7 @@ *> \verbatim *> AF is COMPLEX array, dimension (LDAF,N) *> The triangular factor U or L from the Cholesky factorization -*> A = U**T*U or A = L*L**T, as computed by SPOTRF. +*> A = U**H*U or A = L*L**H, as computed by CPOTRF. *> \endverbatim *> *> \param[in] LDAF @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOcomputational * * ===================================================================== @@ -393,10 +391,9 @@ SUBROUTINE CPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, B, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/cposv.f b/lapack-netlib/SRC/cposv.f index ecd61ec0a4..f37dfa3c09 100644 --- a/lapack-netlib/SRC/cposv.f +++ b/lapack-netlib/SRC/cposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOsolve * * ===================================================================== SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cposvx.f b/lapack-netlib/SRC/cposvx.f index aec8db211e..78b9f4db1e 100644 --- a/lapack-netlib/SRC/cposvx.f +++ b/lapack-netlib/SRC/cposvx.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOsolve * * ===================================================================== @@ -306,10 +304,9 @@ SUBROUTINE CPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cposvxx.f b/lapack-netlib/SRC/cposvxx.f index 57c2d3feb5..7834c75da4 100644 --- a/lapack-netlib/SRC/cposvxx.f +++ b/lapack-netlib/SRC/cposvxx.f @@ -486,8 +486,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOsolve * * ===================================================================== @@ -496,10 +494,9 @@ SUBROUTINE CPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpotf2.f b/lapack-netlib/SRC/cpotf2.f index 16b917ad45..2f4658bae3 100644 --- a/lapack-netlib/SRC/cpotf2.f +++ b/lapack-netlib/SRC/cpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -177,8 +174,8 @@ SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = REAL( A( J, J ) ) - CDOTC( J-1, A( 1, J ), 1, - $ A( 1, J ), 1 ) + AJJ = REAL( REAL( A( J, J ) ) - CDOTC( J-1, A( 1, J ), 1, + $ A( 1, J ), 1 ) ) IF( AJJ.LE.ZERO.OR.SISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 @@ -204,8 +201,8 @@ SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * * Compute L(J,J) and test for non-positive-definiteness. * - AJJ = REAL( A( J, J ) ) - CDOTC( J-1, A( J, 1 ), LDA, - $ A( J, 1 ), LDA ) + AJJ = REAL( REAL( A( J, J ) ) - CDOTC( J-1, A( J, 1 ), LDA, + $ A( J, 1 ), LDA ) ) IF( AJJ.LE.ZERO.OR.SISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/cpotrf.f b/lapack-netlib/SRC/cpotrf.f index 1d981bf7b0..6aba3103e1 100644 --- a/lapack-netlib/SRC/cpotrf.f +++ b/lapack-netlib/SRC/cpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotrf2.f b/lapack-netlib/SRC/cpotrf2.f index ed4f12cba1..e1eae3e9df 100644 --- a/lapack-netlib/SRC/cpotrf2.f +++ b/lapack-netlib/SRC/cpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotri.f b/lapack-netlib/SRC/cpotri.f index 9b548953dd..bf05c91be2 100644 --- a/lapack-netlib/SRC/cpotri.f +++ b/lapack-netlib/SRC/cpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotrs.f b/lapack-netlib/SRC/cpotrs.f index 18c3d0d3ea..bb08ca6878 100644 --- a/lapack-netlib/SRC/cpotrs.f +++ b/lapack-netlib/SRC/cpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppcon.f b/lapack-netlib/SRC/cppcon.f index 48b0a338d2..84e3b79779 100644 --- a/lapack-netlib/SRC/cppcon.f +++ b/lapack-netlib/SRC/cppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppequ.f b/lapack-netlib/SRC/cppequ.f index 2ceeb3f504..223167338c 100644 --- a/lapack-netlib/SRC/cppequ.f +++ b/lapack-netlib/SRC/cppequ.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpprfs.f b/lapack-netlib/SRC/cpprfs.f index 5206b9526b..6c26b0c130 100644 --- a/lapack-netlib/SRC/cpprfs.f +++ b/lapack-netlib/SRC/cpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppsv.f b/lapack-netlib/SRC/cppsv.f index 084ef461e9..1e6f02695b 100644 --- a/lapack-netlib/SRC/cppsv.f +++ b/lapack-netlib/SRC/cppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppsvx.f b/lapack-netlib/SRC/cppsvx.f index 5ae669c229..f6f07538c0 100644 --- a/lapack-netlib/SRC/cppsvx.f +++ b/lapack-netlib/SRC/cppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpptrf.f b/lapack-netlib/SRC/cpptrf.f index bbca265ea6..4e81458cbc 100644 --- a/lapack-netlib/SRC/cpptrf.f +++ b/lapack-netlib/SRC/cpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -192,8 +189,8 @@ SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = REAL( AP( JJ ) ) - CDOTC( J-1, AP( JC ), 1, AP( JC ), - $ 1 ) + AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1, + $ AP( JC ), 1, AP( JC ), 1 ) ) IF( AJJ.LE.ZERO ) THEN AP( JJ ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/cpptri.f b/lapack-netlib/SRC/cpptri.f index 1340cfb70e..3f24d20bd2 100644 --- a/lapack-netlib/SRC/cpptri.f +++ b/lapack-netlib/SRC/cpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -164,7 +161,7 @@ SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) JJ = JJ + J IF( J.GT.1 ) $ CALL CHPR( 'Upper', J-1, ONE, AP( JC ), 1, AP ) - AJJ = AP( JJ ) + AJJ = REAL( AP( JJ ) ) CALL CSSCAL( J, AJJ, AP( JC ), 1 ) 10 CONTINUE * diff --git a/lapack-netlib/SRC/cpptrs.f b/lapack-netlib/SRC/cpptrs.f index 7d9b6defce..08bba1acc0 100644 --- a/lapack-netlib/SRC/cpptrs.f +++ b/lapack-netlib/SRC/cpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpstf2.f b/lapack-netlib/SRC/cpstf2.f index f43cb308c5..001042e1ef 100644 --- a/lapack-netlib/SRC/cpstf2.f +++ b/lapack-netlib/SRC/cpstf2.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/cpstrf.f b/lapack-netlib/SRC/cpstrf.f index 4b6cc41a99..119b954f39 100644 --- a/lapack-netlib/SRC/cpstrf.f +++ b/lapack-netlib/SRC/cpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/cptcon.f b/lapack-netlib/SRC/cptcon.f index 8956d0b8b6..67d247dffc 100644 --- a/lapack-netlib/SRC/cptcon.f +++ b/lapack-netlib/SRC/cptcon.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cpteqr.f b/lapack-netlib/SRC/cpteqr.f index 07d0779310..e3af590416 100644 --- a/lapack-netlib/SRC/cpteqr.f +++ b/lapack-netlib/SRC/cpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/cptrfs.f b/lapack-netlib/SRC/cptrfs.f index a01ef9003b..1ef289dcce 100644 --- a/lapack-netlib/SRC/cptrfs.f +++ b/lapack-netlib/SRC/cptrfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cptsv.f b/lapack-netlib/SRC/cptsv.f index 7c6f1ede15..20ee32bbed 100644 --- a/lapack-netlib/SRC/cptsv.f +++ b/lapack-netlib/SRC/cptsv.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTsolve * * ===================================================================== SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cptsvx.f b/lapack-netlib/SRC/cptsvx.f index 0482f7f35d..db63a3c36a 100644 --- a/lapack-netlib/SRC/cptsvx.f +++ b/lapack-netlib/SRC/cptsvx.f @@ -226,18 +226,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTsolve * * ===================================================================== SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/cpttrf.f b/lapack-netlib/SRC/cpttrf.f index 2f7471435f..c6379e9239 100644 --- a/lapack-netlib/SRC/cpttrf.f +++ b/lapack-netlib/SRC/cpttrf.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cpttrs.f b/lapack-netlib/SRC/cpttrs.f index 8edf726836..636a8de929 100644 --- a/lapack-netlib/SRC/cpttrs.f +++ b/lapack-netlib/SRC/cpttrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cptts2.f b/lapack-netlib/SRC/cptts2.f index c2b2b041ec..15ea7ede86 100644 --- a/lapack-netlib/SRC/cptts2.f +++ b/lapack-netlib/SRC/cptts2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/crot.f b/lapack-netlib/SRC/crot.f index 849b9be49f..6dc771506f 100644 --- a/lapack-netlib/SRC/crot.f +++ b/lapack-netlib/SRC/crot.f @@ -58,7 +58,7 @@ *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of CY. INCX <> 0. +*> The increment between successive values of CX. INCX <> 0. *> \endverbatim *> *> \param[in,out] CY @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/cspcon.f b/lapack-netlib/SRC/cspcon.f index f8bcc77642..75b33da6a4 100644 --- a/lapack-netlib/SRC/cspcon.f +++ b/lapack-netlib/SRC/cspcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspmv.f b/lapack-netlib/SRC/cspmv.f index 80f2cefd36..6b8c9c8c91 100644 --- a/lapack-netlib/SRC/cspmv.f +++ b/lapack-netlib/SRC/cspmv.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspr.f b/lapack-netlib/SRC/cspr.f index 2ea80c145d..bc23b7c489 100644 --- a/lapack-netlib/SRC/cspr.f +++ b/lapack-netlib/SRC/cspr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csprfs.f b/lapack-netlib/SRC/csprfs.f index 4ab12208bf..e52aaa5f3a 100644 --- a/lapack-netlib/SRC/csprfs.f +++ b/lapack-netlib/SRC/csprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspsv.f b/lapack-netlib/SRC/cspsv.f index 4bf0781016..bfb5aa21c6 100644 --- a/lapack-netlib/SRC/cspsv.f +++ b/lapack-netlib/SRC/cspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspsvx.f b/lapack-netlib/SRC/cspsvx.f index 821d82af94..5de199340a 100644 --- a/lapack-netlib/SRC/cspsvx.f +++ b/lapack-netlib/SRC/cspsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/csptrf.f b/lapack-netlib/SRC/csptrf.f index 3499cb4e6a..702ed0c518 100644 --- a/lapack-netlib/SRC/csptrf.f +++ b/lapack-netlib/SRC/csptrf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -158,10 +156,9 @@ * ===================================================================== SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csptri.f b/lapack-netlib/SRC/csptri.f index d8fed87427..8ae1d1daa2 100644 --- a/lapack-netlib/SRC/csptri.f +++ b/lapack-netlib/SRC/csptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csptrs.f b/lapack-netlib/SRC/csptrs.f index b13c6514b1..6434c473ad 100644 --- a/lapack-netlib/SRC/csptrs.f +++ b/lapack-netlib/SRC/csptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csrscl.f b/lapack-netlib/SRC/csrscl.f index e85168e778..5f27f63872 100644 --- a/lapack-netlib/SRC/csrscl.f +++ b/lapack-netlib/SRC/csrscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/cstedc.f b/lapack-netlib/SRC/cstedc.f index 4a00fbabde..a57d9eaef1 100644 --- a/lapack-netlib/SRC/cstedc.f +++ b/lapack-netlib/SRC/cstedc.f @@ -198,8 +198,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE CSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/cstegr.f b/lapack-netlib/SRC/cstegr.f index 98b82c1b74..9d6e06da32 100644 --- a/lapack-netlib/SRC/cstegr.f +++ b/lapack-netlib/SRC/cstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE CSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/cstein.f b/lapack-netlib/SRC/cstein.f index 4f6687d72c..5609efb014 100644 --- a/lapack-netlib/SRC/cstein.f +++ b/lapack-netlib/SRC/cstein.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/cstemr.f b/lapack-netlib/SRC/cstemr.f index 8fb8131d81..d49684db35 100644 --- a/lapack-netlib/SRC/cstemr.f +++ b/lapack-netlib/SRC/cstemr.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -338,10 +336,9 @@ SUBROUTINE CSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/csteqr.f b/lapack-netlib/SRC/csteqr.f index fa95db6d1f..4044e77eda 100644 --- a/lapack-netlib/SRC/csteqr.f +++ b/lapack-netlib/SRC/csteqr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/csycon.f b/lapack-netlib/SRC/csycon.f index dbd6957d35..f4fb33a377 100644 --- a/lapack-netlib/SRC/csycon.f +++ b/lapack-netlib/SRC/csycon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csycon_3.f b/lapack-netlib/SRC/csycon_3.f index 5c1cb04916..7fe915e576 100644 --- a/lapack-netlib/SRC/csycon_3.f +++ b/lapack-netlib/SRC/csycon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE CSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csycon_rook.f b/lapack-netlib/SRC/csycon_rook.f index 85320baa4c..f01659c779 100644 --- a/lapack-netlib/SRC/csycon_rook.f +++ b/lapack-netlib/SRC/csycon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE CSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyconv.f b/lapack-netlib/SRC/csyconv.f index 0937f824b8..79a1b0c114 100644 --- a/lapack-netlib/SRC/csyconv.f +++ b/lapack-netlib/SRC/csyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyconvf.f b/lapack-netlib/SRC/csyconvf.f index fd5a5e47f9..f3b46f0b42 100644 --- a/lapack-netlib/SRC/csyconvf.f +++ b/lapack-netlib/SRC/csyconvf.f @@ -38,7 +38,7 @@ *> CSYCONVF converts the factorization output format used in *> CSYTRF provided on entry in parameter A into the factorization *> output format used in CSYTRF_RK (or CSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in CSYTRF into *> the format used in CSYTRF_RK (or CSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in CSYTRF_RK *> (or CSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in CSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in CSYTRF_RK *> (or CSYTRF_BK) into the format used in CSYTRF. *> @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -209,10 +207,9 @@ * ===================================================================== SUBROUTINE CSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyconvf_rook.f b/lapack-netlib/SRC/csyconvf_rook.f index 7ede268637..a5b9d82da2 100644 --- a/lapack-netlib/SRC/csyconvf_rook.f +++ b/lapack-netlib/SRC/csyconvf_rook.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ * ===================================================================== SUBROUTINE CSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyequb.f b/lapack-netlib/SRC/csyequb.f index b1c5c6fc6a..185501d04f 100644 --- a/lapack-netlib/SRC/csyequb.f +++ b/lapack-netlib/SRC/csyequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * avg = s^T beta / n AVG = 0.0E0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + REAL( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = REAL( N-2 ) * ( REAL( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * REAL( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + REAL( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/csymv.f b/lapack-netlib/SRC/csymv.f index 5ae8c219c9..e54ea2289f 100644 --- a/lapack-netlib/SRC/csymv.f +++ b/lapack-netlib/SRC/csymv.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyr.f b/lapack-netlib/SRC/csyr.f index 9f435cdf11..a96f0053ce 100644 --- a/lapack-netlib/SRC/csyr.f +++ b/lapack-netlib/SRC/csyr.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyrfs.f b/lapack-netlib/SRC/csyrfs.f index b00fde895f..382b1ae297 100644 --- a/lapack-netlib/SRC/csyrfs.f +++ b/lapack-netlib/SRC/csyrfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyrfsx.f b/lapack-netlib/SRC/csyrfsx.f index 4d1bc3ccc3..040d0253c9 100644 --- a/lapack-netlib/SRC/csyrfsx.f +++ b/lapack-netlib/SRC/csyrfsx.f @@ -124,7 +124,7 @@ *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the *> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by SSYTRF. +*> L*D*L**T as computed by CSYTRF. *> \endverbatim *> *> \param[in] LDAF @@ -137,7 +137,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by SSYTRF. +*> as determined by CSYTRF. *> \endverbatim *> *> \param[in,out] S @@ -171,7 +171,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ SUBROUTINE CSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/csysv.f b/lapack-netlib/SRC/csysv.f index 827ac093da..6f175e381b 100644 --- a/lapack-netlib/SRC/csysv.f +++ b/lapack-netlib/SRC/csysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYsolve * * ===================================================================== SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -226,7 +223,7 @@ SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL CSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysv_aa.f b/lapack-netlib/SRC/csysv_aa.f index 2081644b1b..8548c27893 100644 --- a/lapack-netlib/SRC/csysv_aa.f +++ b/lapack-netlib/SRC/csysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYsolve * * ===================================================================== SUBROUTINE CSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csysv_aa_2stage.f b/lapack-netlib/SRC/csysv_aa_2stage.f index c5c328c63e..d8881a7480 100644 --- a/lapack-netlib/SRC/csysv_aa_2stage.f +++ b/lapack-netlib/SRC/csysv_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download CSYSV_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ SUBROUTINE CSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csysv_rk.f b/lapack-netlib/SRC/csysv_rk.f index f2b21753b2..793e39df5a 100644 --- a/lapack-netlib/SRC/csysv_rk.f +++ b/lapack-netlib/SRC/csysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE CSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ SUBROUTINE CSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL CSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysv_rook.f b/lapack-netlib/SRC/csysv_rook.f index e0ab726509..daa9f27c41 100644 --- a/lapack-netlib/SRC/csysv_rook.f +++ b/lapack-netlib/SRC/csysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -259,7 +256,7 @@ SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysvx.f b/lapack-netlib/SRC/csysvx.f index 46f65f6a4a..2afa082a9f 100644 --- a/lapack-netlib/SRC/csysvx.f +++ b/lapack-netlib/SRC/csysvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * * ===================================================================== @@ -285,10 +283,9 @@ SUBROUTINE CSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/csysvxx.f b/lapack-netlib/SRC/csysvxx.f index 7a9aee105c..19d07411ca 100644 --- a/lapack-netlib/SRC/csysvxx.f +++ b/lapack-netlib/SRC/csysvxx.f @@ -185,7 +185,7 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by SSYTRF. +*> U*D*U**T or A = L*D*L**T as computed by CSYTRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers @@ -204,7 +204,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains details of the interchanges and the block -*> structure of D, as determined by SSYTRF. If IPIV(k) > 0, +*> structure of D, as determined by CSYTRF. If IPIV(k) > 0, *> then rows and columns k and IPIV(k) were interchanged and *> D(k,k) is a 1-by-1 diagonal block. If UPLO = 'U' and *> IPIV(k) = IPIV(k-1) < 0, then rows and columns k-1 and @@ -215,7 +215,7 @@ *> *> If FACT = 'N', then IPIV is an output argument and on exit *> contains details of the interchanges and the block -*> structure of D, as determined by SSYTRF. +*> structure of D, as determined by CSYTRF. *> \endverbatim *> *> \param[in,out] EQUED @@ -499,8 +499,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * * ===================================================================== @@ -509,10 +507,9 @@ SUBROUTINE CSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/csyswapr.f b/lapack-netlib/SRC/csyswapr.f index b8291dafc5..185d819225 100644 --- a/lapack-netlib/SRC/csyswapr.f +++ b/lapack-netlib/SRC/csyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2.f b/lapack-netlib/SRC/csytf2.f index 370e57d44b..0bee443189 100644 --- a/lapack-netlib/SRC/csytf2.f +++ b/lapack-netlib/SRC/csytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2_rk.f b/lapack-netlib/SRC/csytf2_rk.f index 7e39c2dfd7..12d6d5d8f9 100644 --- a/lapack-netlib/SRC/csytf2_rk.f +++ b/lapack-netlib/SRC/csytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE CSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2_rook.f b/lapack-netlib/SRC/csytf2_rook.f index 2a80375d3d..5ae4c98036 100644 --- a/lapack-netlib/SRC/csytf2_rook.f +++ b/lapack-netlib/SRC/csytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE CSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf.f b/lapack-netlib/SRC/csytrf.f index af913b8f46..ebf228f188 100644 --- a/lapack-netlib/SRC/csytrf.f +++ b/lapack-netlib/SRC/csytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf_aa.f b/lapack-netlib/SRC/csytrf_aa.f index 427235bdaa..b1165a425b 100644 --- a/lapack-netlib/SRC/csytrf_aa.f +++ b/lapack-netlib/SRC/csytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of CSYTRF_AA diff --git a/lapack-netlib/SRC/csytrf_aa_2stage.f b/lapack-netlib/SRC/csytrf_aa_2stage.f index 0946d61b0d..8a2cfd7bc0 100644 --- a/lapack-netlib/SRC/csytrf_aa_2stage.f +++ b/lapack-netlib/SRC/csytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrf_rk.f b/lapack-netlib/SRC/csytrf_rk.f index f7e3528acc..9c2b7182f2 100644 --- a/lapack-netlib/SRC/csytrf_rk.f +++ b/lapack-netlib/SRC/csytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE CSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf_rook.f b/lapack-netlib/SRC/csytrf_rook.f index c6a8ae5c1d..ce7c1e5866 100644 --- a/lapack-netlib/SRC/csytrf_rook.f +++ b/lapack-netlib/SRC/csytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri.f b/lapack-netlib/SRC/csytri.f index 8f15e36988..3f3665338a 100644 --- a/lapack-netlib/SRC/csytri.f +++ b/lapack-netlib/SRC/csytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri2.f b/lapack-netlib/SRC/csytri2.f index 8bee149c40..33c71060ea 100644 --- a/lapack-netlib/SRC/csytri2.f +++ b/lapack-netlib/SRC/csytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri2x.f b/lapack-netlib/SRC/csytri2x.f index 151f06331f..306e666e0e 100644 --- a/lapack-netlib/SRC/csytri2x.f +++ b/lapack-netlib/SRC/csytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_3.f b/lapack-netlib/SRC/csytri_3.f index d618c26ed3..279f62853e 100644 --- a/lapack-netlib/SRC/csytri_3.f +++ b/lapack-netlib/SRC/csytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE CSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_3x.f b/lapack-netlib/SRC/csytri_3x.f index 5a81ee3a53..138fe67c83 100644 --- a/lapack-netlib/SRC/csytri_3x.f +++ b/lapack-netlib/SRC/csytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_rook.f b/lapack-netlib/SRC/csytri_rook.f index c375e81dca..9fba543801 100644 --- a/lapack-netlib/SRC/csytri_rook.f +++ b/lapack-netlib/SRC/csytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs.f b/lapack-netlib/SRC/csytrs.f index 3ab72b8ce3..c872fda946 100644 --- a/lapack-netlib/SRC/csytrs.f +++ b/lapack-netlib/SRC/csytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs2.f b/lapack-netlib/SRC/csytrs2.f index 93f2d6a1be..a3e7f4144c 100644 --- a/lapack-netlib/SRC/csytrs2.f +++ b/lapack-netlib/SRC/csytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs_3.f b/lapack-netlib/SRC/csytrs_3.f index 8008c5de43..48b12d1cd0 100644 --- a/lapack-netlib/SRC/csytrs_3.f +++ b/lapack-netlib/SRC/csytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE CSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs_aa.f b/lapack-netlib/SRC/csytrs_aa.f index 981f8722a4..1f6ea40af5 100644 --- a/lapack-netlib/SRC/csytrs_aa.f +++ b/lapack-netlib/SRC/csytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrs_aa_2stage.f b/lapack-netlib/SRC/csytrs_aa_2stage.f index 5819109337..add9f42756 100644 --- a/lapack-netlib/SRC/csytrs_aa_2stage.f +++ b/lapack-netlib/SRC/csytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrs_rook.f b/lapack-netlib/SRC/csytrs_rook.f index 3cfe45a741..edc2248f26 100644 --- a/lapack-netlib/SRC/csytrs_rook.f +++ b/lapack-netlib/SRC/csytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE CSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctbcon.f b/lapack-netlib/SRC/ctbcon.f index a11a55aa64..4943011eb2 100644 --- a/lapack-netlib/SRC/ctbcon.f +++ b/lapack-netlib/SRC/ctbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctbrfs.f b/lapack-netlib/SRC/ctbrfs.f index c6cb9f9c46..cfa2107e97 100644 --- a/lapack-netlib/SRC/ctbrfs.f +++ b/lapack-netlib/SRC/ctbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctbtrs.f b/lapack-netlib/SRC/ctbtrs.f index 3ca70c656a..1e0499765a 100644 --- a/lapack-netlib/SRC/ctbtrs.f +++ b/lapack-netlib/SRC/ctbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctfsm.f b/lapack-netlib/SRC/ctfsm.f index b4b26dd0e7..7ea2c1006d 100644 --- a/lapack-netlib/SRC/ctfsm.f +++ b/lapack-netlib/SRC/ctfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -298,10 +296,9 @@ SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctftri.f b/lapack-netlib/SRC/ctftri.f index 2e51a3d881..faf647b986 100644 --- a/lapack-netlib/SRC/ctftri.f +++ b/lapack-netlib/SRC/ctftri.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -221,10 +219,9 @@ * ===================================================================== SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/ctfttp.f b/lapack-netlib/SRC/ctfttp.f index 6cd47e1769..4da1aa1842 100644 --- a/lapack-netlib/SRC/ctfttp.f +++ b/lapack-netlib/SRC/ctfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctfttr.f b/lapack-netlib/SRC/ctfttr.f index 3720b6977f..2b1ab39345 100644 --- a/lapack-netlib/SRC/ctfttr.f +++ b/lapack-netlib/SRC/ctfttr.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctgevc.f b/lapack-netlib/SRC/ctgevc.f index 342d562980..4e5289cb20 100644 --- a/lapack-netlib/SRC/ctgevc.f +++ b/lapack-netlib/SRC/ctgevc.f @@ -211,18 +211,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctgex2.f b/lapack-netlib/SRC/ctgex2.f index 7ac1784b6c..c519a597d3 100644 --- a/lapack-netlib/SRC/ctgex2.f +++ b/lapack-netlib/SRC/ctgex2.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEauxiliary * *> \par Further Details: @@ -190,10 +188,9 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -220,8 +217,8 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * .. Local Scalars .. LOGICAL STRONG, WEAK INTEGER I, M - REAL CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM, - $ THRESH, WS + REAL CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM, + $ THRESHA, THRESHB COMPLEX CDUM, F, G, SQ, SZ * .. * .. Local Arrays .. @@ -263,8 +260,12 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, SUM = REAL( CONE ) CALL CLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL CLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) - CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) + CALL CLASSQ( M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -274,15 +275,16 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*SB, SMLNUM ) * * Compute unitary QL and RQ that swap 1-by-1 and 1-by-1 blocks * using Givens rotations and perform the swap tentatively. * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SA = ABS( S( 2, 2 ) ) - SB = ABS( T( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL CLARTG( G, F, CZ, SZ, CDUM ) SZ = -SZ CALL CROT( 2, S( 1, 1 ), 1, S( 1, 2 ), 1, CZ, CONJG( SZ ) ) @@ -295,10 +297,11 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL CROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) CALL CROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) * -* Weak stability test: |S21| + |T21| <= O(EPS F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ).LE.THRESHA .AND. + $ ABS( T( 2, 1 ) ).LE.THRESHB IF( .NOT.WEAK ) $ GO TO 20 * @@ -319,11 +322,15 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, WORK( I+4 ) = WORK( I+4 ) - B( J1+I-1, J1 ) WORK( I+6 ) = WORK( I+6 ) - B( J1+I-1, J1+1 ) 10 CONTINUE - SCALE = REAL( CZERO ) - SUM = REAL( CONE ) - CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) - SS = SCALE*SQRT( SUM ) - STRONG = SS.LE.THRESH + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK, 1, SCALE, SUM ) + SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 20 END IF diff --git a/lapack-netlib/SRC/ctgexc.f b/lapack-netlib/SRC/ctgexc.f index ba1c2814c9..f50f8be3f6 100644 --- a/lapack-netlib/SRC/ctgexc.f +++ b/lapack-netlib/SRC/ctgexc.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ctgsen.f b/lapack-netlib/SRC/ctgsen.f index 8198d45546..f9b6cd10c8 100644 --- a/lapack-netlib/SRC/ctgsen.f +++ b/lapack-netlib/SRC/ctgsen.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -433,10 +431,9 @@ SUBROUTINE CTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ctgsja.f b/lapack-netlib/SRC/ctgsja.f index c96cbe0220..22725e86ce 100644 --- a/lapack-netlib/SRC/ctgsja.f +++ b/lapack-netlib/SRC/ctgsja.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -379,10 +377,9 @@ SUBROUTINE CTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/ctgsna.f b/lapack-netlib/SRC/ctgsna.f index 6081d19b25..2295dc5ccc 100644 --- a/lapack-netlib/SRC/ctgsna.f +++ b/lapack-netlib/SRC/ctgsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE CTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ctgsy2.f b/lapack-netlib/SRC/ctgsy2.f index 5ccdfb1e1b..2840af74cb 100644 --- a/lapack-netlib/SRC/ctgsy2.f +++ b/lapack-netlib/SRC/ctgsy2.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * *> \par Contributors: @@ -259,10 +257,9 @@ SUBROUTINE CTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ctgsyl.f b/lapack-netlib/SRC/ctgsyl.f index 602e8091cb..ae14371254 100644 --- a/lapack-netlib/SRC/ctgsyl.f +++ b/lapack-netlib/SRC/ctgsyl.f @@ -217,7 +217,7 @@ *> If 0 < SCALE < 1, C and F hold the solutions R and L, resp., *> to a slightly perturbed system but the input matrices A, B, *> D and E have not been changed. If SCALE = 0, R and L will -*> hold the solutions to the homogenious system with C = F = 0. +*> hold the solutions to the homogeneous system with C = F = 0. *> \endverbatim *> *> \param[out] WORK @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -295,10 +293,9 @@ SUBROUTINE CTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ctpcon.f b/lapack-netlib/SRC/ctpcon.f index 6b439fb527..44ae10d7e9 100644 --- a/lapack-netlib/SRC/ctpcon.f +++ b/lapack-netlib/SRC/ctpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctplqt.f b/lapack-netlib/SRC/ctplqt.f index 39893df484..01263a4e1b 100644 --- a/lapack-netlib/SRC/ctplqt.f +++ b/lapack-netlib/SRC/ctplqt.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -174,10 +172,9 @@ SUBROUTINE CTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/ctplqt2.f b/lapack-netlib/SRC/ctplqt2.f index d18452aec7..bb455fefeb 100644 --- a/lapack-netlib/SRC/ctplqt2.f +++ b/lapack-netlib/SRC/ctplqt2.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ctpmlqt.f b/lapack-netlib/SRC/ctpmlqt.f index 5899a5335e..606c1f5db2 100644 --- a/lapack-netlib/SRC/ctpmlqt.f +++ b/lapack-netlib/SRC/ctpmlqt.f @@ -21,7 +21,7 @@ *> *> \verbatim *> -*> CTPMLQT applies a complex orthogonal matrix Q obtained from a +*> CTPMLQT applies a complex unitary matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -40,7 +40,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -74,7 +74,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in CTPLQT. *> \endverbatim *> *> \param[in] V @@ -82,22 +82,20 @@ *> V is COMPLEX array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> CTPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by CTPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -120,8 +118,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -160,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -186,7 +182,7 @@ *> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is K-by-N. *> -*> The real orthogonal matrix Q is formed from V and T. +*> The complex unitary matrix Q is formed from V and T. *> *> If TRANS='N' and SIDE='L', C is on exit replaced with Q * C. *> @@ -201,10 +197,9 @@ SUBROUTINE CTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ctpmqrt.f b/lapack-netlib/SRC/ctpmqrt.f index 8d4a36ca88..75ee6c0ae5 100644 --- a/lapack-netlib/SRC/ctpmqrt.f +++ b/lapack-netlib/SRC/ctpmqrt.f @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ctpqrt.f b/lapack-netlib/SRC/ctpqrt.f index 96b3856e27..9abd06e8bf 100644 --- a/lapack-netlib/SRC/ctpqrt.f +++ b/lapack-netlib/SRC/ctpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/ctpqrt2.f b/lapack-netlib/SRC/ctpqrt2.f index 4cebe76f78..3cd75da356 100644 --- a/lapack-netlib/SRC/ctpqrt2.f +++ b/lapack-netlib/SRC/ctpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ctprfb.f b/lapack-netlib/SRC/ctprfb.f index 0f45edaf82..11496180fc 100644 --- a/lapack-netlib/SRC/ctprfb.f +++ b/lapack-netlib/SRC/ctprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ SUBROUTINE CTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/ctprfs.f b/lapack-netlib/SRC/ctprfs.f index b66bd7c887..97fabc66ac 100644 --- a/lapack-netlib/SRC/ctprfs.f +++ b/lapack-netlib/SRC/ctprfs.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctptri.f b/lapack-netlib/SRC/ctptri.f index b6566ae3ab..e3f0d7d1b0 100644 --- a/lapack-netlib/SRC/ctptri.f +++ b/lapack-netlib/SRC/ctptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE CTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctptrs.f b/lapack-netlib/SRC/ctptrs.f index 8a75e2fdfa..a3f7687bd2 100644 --- a/lapack-netlib/SRC/ctptrs.f +++ b/lapack-netlib/SRC/ctptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctpttf.f b/lapack-netlib/SRC/ctpttf.f index 91e6fa70fd..af7e8961bc 100644 --- a/lapack-netlib/SRC/ctpttf.f +++ b/lapack-netlib/SRC/ctpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ * ===================================================================== SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctpttr.f b/lapack-netlib/SRC/ctpttr.f index a0548a3a69..0b9c498a04 100644 --- a/lapack-netlib/SRC/ctpttr.f +++ b/lapack-netlib/SRC/ctpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctrcon.f b/lapack-netlib/SRC/ctrcon.f index 81ba45d013..a14748f41c 100644 --- a/lapack-netlib/SRC/ctrcon.f +++ b/lapack-netlib/SRC/ctrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctrevc.f b/lapack-netlib/SRC/ctrevc.f index 2b950348cb..42880ab427 100644 --- a/lapack-netlib/SRC/ctrevc.f +++ b/lapack-netlib/SRC/ctrevc.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctrevc3.f b/lapack-netlib/SRC/ctrevc3.f index a134c1a50c..0f58696b2b 100644 --- a/lapack-netlib/SRC/ctrevc3.f +++ b/lapack-netlib/SRC/ctrevc3.f @@ -222,10 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from ztrevc3.f, fortran z -> c, Tue Apr 19 01:47:44 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -247,10 +243,9 @@ SUBROUTINE CTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctrexc.f b/lapack-netlib/SRC/ctrexc.f index cefc32cb9f..ea64ddf9b8 100644 --- a/lapack-netlib/SRC/ctrexc.f +++ b/lapack-netlib/SRC/ctrexc.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/ctrrfs.f b/lapack-netlib/SRC/ctrrfs.f index 840f9b5096..40c3cdde0b 100644 --- a/lapack-netlib/SRC/ctrrfs.f +++ b/lapack-netlib/SRC/ctrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctrsen.f b/lapack-netlib/SRC/ctrsen.f index aaba3c5a21..d93b97be6c 100644 --- a/lapack-netlib/SRC/ctrsen.f +++ b/lapack-netlib/SRC/ctrsen.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -264,10 +262,9 @@ SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/ctrsna.f b/lapack-netlib/SRC/ctrsna.f index e08185b08b..b8074907c0 100644 --- a/lapack-netlib/SRC/ctrsna.f +++ b/lapack-netlib/SRC/ctrsna.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE CTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ctrsyl.f b/lapack-netlib/SRC/ctrsyl.f index 2561804de7..7a2243ee9b 100644 --- a/lapack-netlib/SRC/ctrsyl.f +++ b/lapack-netlib/SRC/ctrsyl.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/ctrti2.f b/lapack-netlib/SRC/ctrti2.f index 55d8d1fa76..47a9ab45f5 100644 --- a/lapack-netlib/SRC/ctrti2.f +++ b/lapack-netlib/SRC/ctrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctrtri.f b/lapack-netlib/SRC/ctrtri.f index 4c284d18db..d7f41ba3e8 100644 --- a/lapack-netlib/SRC/ctrtri.f +++ b/lapack-netlib/SRC/ctrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctrtrs.f b/lapack-netlib/SRC/ctrtrs.f index 4019ced039..47e4245f74 100644 --- a/lapack-netlib/SRC/ctrtrs.f +++ b/lapack-netlib/SRC/ctrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctrttf.f b/lapack-netlib/SRC/ctrttf.f index c762b0c334..bbfa0a922b 100644 --- a/lapack-netlib/SRC/ctrttf.f +++ b/lapack-netlib/SRC/ctrttf.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctrttp.f b/lapack-netlib/SRC/ctrttp.f index 0fa3e1a5a7..92bdb23f9a 100644 --- a/lapack-netlib/SRC/ctrttp.f +++ b/lapack-netlib/SRC/ctrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctzrzf.f b/lapack-netlib/SRC/ctzrzf.f index f3f5fdfc3c..b21f092cea 100644 --- a/lapack-netlib/SRC/ctzrzf.f +++ b/lapack-netlib/SRC/ctzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I A(:,M+1:N) ) *> *> I is the M-by-M identity matrix, A(:,M+1:N) -*> is the output stored in A on exit from DTZRZF, +*> is the output stored in A on exit from CTZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cunbdb.f b/lapack-netlib/SRC/cunbdb.f index 9006242c6f..a41895dc8c 100644 --- a/lapack-netlib/SRC/cunbdb.f +++ b/lapack-netlib/SRC/cunbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ SUBROUTINE CUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/cunbdb1.f b/lapack-netlib/SRC/cunbdb1.f index bfd2147df4..740e38a859 100644 --- a/lapack-netlib/SRC/cunbdb1.f +++ b/lapack-netlib/SRC/cunbdb1.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb2.f b/lapack-netlib/SRC/cunbdb2.f index ae73699b66..db238f9256 100644 --- a/lapack-netlib/SRC/cunbdb2.f +++ b/lapack-netlib/SRC/cunbdb2.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb3.f b/lapack-netlib/SRC/cunbdb3.f index c0abde1eb0..b532bfbc8e 100644 --- a/lapack-netlib/SRC/cunbdb3.f +++ b/lapack-netlib/SRC/cunbdb3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb4.f b/lapack-netlib/SRC/cunbdb4.f index 803b851450..e6afd89c30 100644 --- a/lapack-netlib/SRC/cunbdb4.f +++ b/lapack-netlib/SRC/cunbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ SUBROUTINE CUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb5.f b/lapack-netlib/SRC/cunbdb5.f index 95997450a1..d2ff4e7000 100644 --- a/lapack-netlib/SRC/cunbdb5.f +++ b/lapack-netlib/SRC/cunbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/cunbdb6.f b/lapack-netlib/SRC/cunbdb6.f index 05a13896d5..7acc99cb8b 100644 --- a/lapack-netlib/SRC/cunbdb6.f +++ b/lapack-netlib/SRC/cunbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/cuncsd.f b/lapack-netlib/SRC/cuncsd.f index f30529130d..3653a396a5 100644 --- a/lapack-netlib/SRC/cuncsd.f +++ b/lapack-netlib/SRC/cuncsd.f @@ -308,8 +308,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -320,10 +318,9 @@ RECURSIVE SUBROUTINE CUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/cuncsd2by1.f b/lapack-netlib/SRC/cuncsd2by1.f index 1d49885f2a..8360d59328 100644 --- a/lapack-netlib/SRC/cuncsd2by1.f +++ b/lapack-netlib/SRC/cuncsd2by1.f @@ -190,9 +190,10 @@ *> The dimension of the array WORK. *> *> If LWORK = -1, then a workspace query is assumed; the routine -*> only calculates the optimal size of the WORK array, returns -*> this value as the first entry of the work array, and no error -*> message related to LWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim *> *> \param[out] RWORK @@ -212,9 +213,10 @@ *> The dimension of the array RWORK. *> *> If LRWORK = -1, then a workspace query is assumed; the routine -*> only calculates the optimal size of the RWORK array, returns -*> this value as the first entry of the work array, and no error -*> message related to LRWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim * *> \param[out] IWORK @@ -245,8 +247,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -255,10 +255,9 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -313,7 +312,7 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, WANTU1 = LSAME( JOBU1, 'Y' ) WANTU2 = LSAME( JOBU2, 'Y' ) WANTV1T = LSAME( JOBV1T, 'Y' ) - LQUERY = LWORK .EQ. -1 + LQUERY = ( LWORK.EQ.-1 ) .OR. ( LRWORK.EQ.-1 ) * IF( M .LT. 0 ) THEN INFO = -4 @@ -513,6 +512,9 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN INFO = -19 END IF + IF( LRWORK .LT. LRWORKMIN .AND. .NOT.LQUERY ) THEN + INFO = -21 + END IF END IF IF( INFO .NE. 0 ) THEN CALL XERBLA( 'CUNCSD2BY1', -INFO ) @@ -566,8 +568,8 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), - $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, - $ CHILDINFO ) + $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), + $ LRWORK-IBBCSD+1, CHILDINFO ) * * Permute rows and columns to place zero submatrices in * preferred positions @@ -708,6 +710,10 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * * Accumulate Householder reflectors * + + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL CCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL CCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -719,7 +725,6 @@ SUBROUTINE CUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL CCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/cung2l.f b/lapack-netlib/SRC/cung2l.f index 88d285e9fa..a05843a5d3 100644 --- a/lapack-netlib/SRC/cung2l.f +++ b/lapack-netlib/SRC/cung2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cung2r.f b/lapack-netlib/SRC/cung2r.f index eea37d18e0..a984818c1e 100644 --- a/lapack-netlib/SRC/cung2r.f +++ b/lapack-netlib/SRC/cung2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cungbr.f b/lapack-netlib/SRC/cungbr.f index 0dddd42a68..c973d0b0a7 100644 --- a/lapack-netlib/SRC/cungbr.f +++ b/lapack-netlib/SRC/cungbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT @@ -236,7 +233,7 @@ SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) END IF END IF END IF - LWKOPT = WORK( 1 ) + LWKOPT = REAL( WORK( 1 ) ) LWKOPT = MAX (LWKOPT, MN) END IF * diff --git a/lapack-netlib/SRC/cunghr.f b/lapack-netlib/SRC/cunghr.f index 40c71d4a77..4f8a0a2639 100644 --- a/lapack-netlib/SRC/cunghr.f +++ b/lapack-netlib/SRC/cunghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cungl2.f b/lapack-netlib/SRC/cungl2.f index 837354da23..81a3b89cd8 100644 --- a/lapack-netlib/SRC/cungl2.f +++ b/lapack-netlib/SRC/cungl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cunglq.f b/lapack-netlib/SRC/cunglq.f index 10c2deef32..e250e036cf 100644 --- a/lapack-netlib/SRC/cunglq.f +++ b/lapack-netlib/SRC/cunglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungql.f b/lapack-netlib/SRC/cungql.f index 4a13826ebe..d3b812a62d 100644 --- a/lapack-netlib/SRC/cungql.f +++ b/lapack-netlib/SRC/cungql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungqr.f b/lapack-netlib/SRC/cungqr.f index f8d06429a9..5010ae0df1 100644 --- a/lapack-netlib/SRC/cungqr.f +++ b/lapack-netlib/SRC/cungqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungr2.f b/lapack-netlib/SRC/cungr2.f index defc5859fa..1f2f2b4610 100644 --- a/lapack-netlib/SRC/cungr2.f +++ b/lapack-netlib/SRC/cungr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cungrq.f b/lapack-netlib/SRC/cungrq.f index 50837445e3..1593ff938b 100644 --- a/lapack-netlib/SRC/cungrq.f +++ b/lapack-netlib/SRC/cungrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungtr.f b/lapack-netlib/SRC/cungtr.f index 2749bc366c..26ff0428ef 100644 --- a/lapack-netlib/SRC/cungtr.f +++ b/lapack-netlib/SRC/cungtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cungtsqr.f b/lapack-netlib/SRC/cungtsqr.f index bc5305cf90..64ccb97317 100644 --- a/lapack-netlib/SRC/cungtsqr.f +++ b/lapack-netlib/SRC/cungtsqr.f @@ -9,10 +9,11 @@ *> Download CUNGTSQR + dependencies *> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] +*> \endhtmlonly *> * Definition: * =========== @@ -59,7 +60,7 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size used by DLATSQR to return +*> The row block size used by CLATSQR to return *> arrays A and T. MB > N. *> (Note that if MB > M, then M is used instead of MB *> as the row block size). @@ -155,9 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* -*> \ingroup comlexOTHERcomputational +*> \ingroup complexOTHERcomputational * *> \par Contributors: * ================== @@ -175,10 +174,9 @@ SUBROUTINE CUNGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/cunhr_col.f b/lapack-netlib/SRC/cunhr_col.f index 15c31491e0..faa37d3ed3 100644 --- a/lapack-netlib/SRC/cunhr_col.f +++ b/lapack-netlib/SRC/cunhr_col.f @@ -13,6 +13,7 @@ *> [ZIP] *> *> [TXT] +*> \endhtmlonly *> * Definition: * =========== @@ -112,7 +113,7 @@ *> blocks (same format as the output T in CGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE CUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/cunm22.f b/lapack-netlib/SRC/cunm22.f index 3c6b4c1259..f11a2180c5 100644 --- a/lapack-netlib/SRC/cunm22.f +++ b/lapack-netlib/SRC/cunm22.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/cunm2l.f b/lapack-netlib/SRC/cunm2l.f index 75dd5f911e..416c0a0c36 100644 --- a/lapack-netlib/SRC/cunm2l.f +++ b/lapack-netlib/SRC/cunm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunm2r.f b/lapack-netlib/SRC/cunm2r.f index 569276f8c6..a79e9a78d0 100644 --- a/lapack-netlib/SRC/cunm2r.f +++ b/lapack-netlib/SRC/cunm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmbr.f b/lapack-netlib/SRC/cunmbr.f index 4136fcd4b9..cef6025b02 100644 --- a/lapack-netlib/SRC/cunmbr.f +++ b/lapack-netlib/SRC/cunmbr.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -243,13 +240,10 @@ SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M - END IF - IF( M.EQ.0 .OR. N.EQ.0 ) THEN - NW = 0 + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -269,12 +263,12 @@ SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * IF( INFO.EQ.0 ) THEN - IF( NW.GT.0 ) THEN + IF( M.GT.0 .AND. N.GT.0 ) THEN IF( APPLYQ ) THEN IF( LEFT ) THEN NB = ILAENV( 1, 'CUNMQR', SIDE // TRANS, M-1, N, M-1, @@ -292,7 +286,7 @@ SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW*NB ) + LWKOPT = NW*NB ELSE LWKOPT = 1 END IF diff --git a/lapack-netlib/SRC/cunmhr.f b/lapack-netlib/SRC/cunmhr.f index aa6588631e..af3140d5f3 100644 --- a/lapack-netlib/SRC/cunmhr.f +++ b/lapack-netlib/SRC/cunmhr.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -223,10 +220,10 @@ SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -245,7 +242,7 @@ SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -255,7 +252,7 @@ SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, ELSE NB = ILAENV( 1, 'CUNMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/cunml2.f b/lapack-netlib/SRC/cunml2.f index b55b0c2442..6af8cc0358 100644 --- a/lapack-netlib/SRC/cunml2.f +++ b/lapack-netlib/SRC/cunml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmlq.f b/lapack-netlib/SRC/cunmlq.f index 8cf4442c27..25a4107708 100644 --- a/lapack-netlib/SRC/cunmlq.f +++ b/lapack-netlib/SRC/cunmlq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -219,10 +216,10 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -238,7 +235,7 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -251,7 +248,7 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, ELSE NB = MIN( NBMAX, ILAENV( 1, 'CUNMLQ', SIDE // TRANS, M, N, $ K, -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE END IF WORK( 1 ) = LWKOPT END IF @@ -274,7 +271,7 @@ SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmql.f b/lapack-netlib/SRC/cunmql.f index e7279607a8..3c71660663 100644 --- a/lapack-netlib/SRC/cunmql.f +++ b/lapack-netlib/SRC/cunmql.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -273,7 +270,7 @@ SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.(NW*NB+TSIZE) ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmqr.f b/lapack-netlib/SRC/cunmqr.f index 41fee718ea..7e59d71297 100644 --- a/lapack-netlib/SRC/cunmqr.f +++ b/lapack-netlib/SRC/cunmqr.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -218,10 +215,10 @@ SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -237,7 +234,7 @@ SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -247,7 +244,7 @@ SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'CUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -268,7 +265,7 @@ SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmr2.f b/lapack-netlib/SRC/cunmr2.f index 40b6583d19..ebd4cfbb64 100644 --- a/lapack-netlib/SRC/cunmr2.f +++ b/lapack-netlib/SRC/cunmr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmr3.f b/lapack-netlib/SRC/cunmr3.f index 0a8bad8f09..dcd893fa32 100644 --- a/lapack-netlib/SRC/cunmr3.f +++ b/lapack-netlib/SRC/cunmr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmrq.f b/lapack-netlib/SRC/cunmrq.f index 3513215a8e..5a233f6040 100644 --- a/lapack-netlib/SRC/cunmrq.f +++ b/lapack-netlib/SRC/cunmrq.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -272,7 +269,7 @@ SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmrz.f b/lapack-netlib/SRC/cunmrz.f index ccf9cd5d06..8e06f2329a 100644 --- a/lapack-netlib/SRC/cunmrz.f +++ b/lapack-netlib/SRC/cunmrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -297,7 +294,7 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmtr.f b/lapack-netlib/SRC/cunmtr.f index 81d2ca6d2c..097dba91e7 100644 --- a/lapack-netlib/SRC/cunmtr.f +++ b/lapack-netlib/SRC/cunmtr.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -216,10 +213,10 @@ SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -258,7 +255,7 @@ SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/cupgtr.f b/lapack-netlib/SRC/cupgtr.f index 4c75d3ea1c..c491a1f4db 100644 --- a/lapack-netlib/SRC/cupgtr.f +++ b/lapack-netlib/SRC/cupgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cupmtr.f b/lapack-netlib/SRC/cupmtr.f index eb6d219c68..2629e91792 100644 --- a/lapack-netlib/SRC/cupmtr.f +++ b/lapack-netlib/SRC/cupmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dbbcsd.f b/lapack-netlib/SRC/dbbcsd.f index f1df567c13..4fcf9ab5de 100644 --- a/lapack-netlib/SRC/dbbcsd.f +++ b/lapack-netlib/SRC/dbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ SUBROUTINE DBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0D0, MEIGHTH = -0.125D0, - $ ONE = 1.0D0, PIOVER2 = 1.57079632679489662D0, - $ TEN = 10.0D0, ZERO = 0.0D0 ) + $ ONE = 1.0D0, TEN = 10.0D0, ZERO = 0.0D0 ) DOUBLE PRECISION NEGONE PARAMETER ( NEGONE = -1.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/dbdsdc.f b/lapack-netlib/SRC/dbdsdc.f index 4c8b95f85a..99fe82296d 100644 --- a/lapack-netlib/SRC/dbdsdc.f +++ b/lapack-netlib/SRC/dbdsdc.f @@ -191,8 +191,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -205,10 +203,9 @@ SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, UPLO diff --git a/lapack-netlib/SRC/dbdsqr.f b/lapack-netlib/SRC/dbdsqr.f index 7d47fa2820..c220a5875d 100644 --- a/lapack-netlib/SRC/dbdsqr.f +++ b/lapack-netlib/SRC/dbdsqr.f @@ -233,18 +233,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dbdsvdx.f b/lapack-netlib/SRC/dbdsvdx.f index 10d97a71f5..4ccd4edadb 100644 --- a/lapack-netlib/SRC/dbdsvdx.f +++ b/lapack-netlib/SRC/dbdsvdx.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ddisna.f b/lapack-netlib/SRC/ddisna.f index 61345c6e7a..1e5e9778e4 100644 --- a/lapack-netlib/SRC/ddisna.f +++ b/lapack-netlib/SRC/ddisna.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DDISNA( JOB, M, N, D, SEP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgbbrd.f b/lapack-netlib/SRC/dgbbrd.f index 350a982fb5..03aaa0a009 100644 --- a/lapack-netlib/SRC/dgbbrd.f +++ b/lapack-netlib/SRC/dgbbrd.f @@ -179,18 +179,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/dgbcon.f b/lapack-netlib/SRC/dgbcon.f index 26f14fd64f..1ffb3c0f8b 100644 --- a/lapack-netlib/SRC/dgbcon.f +++ b/lapack-netlib/SRC/dgbcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgbequ.f b/lapack-netlib/SRC/dgbequ.f index 486c88de52..ab8b20b2e2 100644 --- a/lapack-netlib/SRC/dgbequ.f +++ b/lapack-netlib/SRC/dgbequ.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbequb.f b/lapack-netlib/SRC/dgbequb.f index f7543aa0cb..93179f733d 100644 --- a/lapack-netlib/SRC/dgbequb.f +++ b/lapack-netlib/SRC/dgbequb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbrfs.f b/lapack-netlib/SRC/dgbrfs.f index 179ddfe572..9520f23f66 100644 --- a/lapack-netlib/SRC/dgbrfs.f +++ b/lapack-netlib/SRC/dgbrfs.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -205,10 +203,9 @@ SUBROUTINE DGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgbrfsx.f b/lapack-netlib/SRC/dgbrfsx.f index 76afb2d6ab..8ab1a580fe 100644 --- a/lapack-netlib/SRC/dgbrfsx.f +++ b/lapack-netlib/SRC/dgbrfsx.f @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ SUBROUTINE DGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/dgbsv.f b/lapack-netlib/SRC/dgbsv.f index b14fcaa5ac..1d4e6cb938 100644 --- a/lapack-netlib/SRC/dgbsv.f +++ b/lapack-netlib/SRC/dgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgbsvx.f b/lapack-netlib/SRC/dgbsvx.f index da4bf91036..030f28f0a6 100644 --- a/lapack-netlib/SRC/dgbsvx.f +++ b/lapack-netlib/SRC/dgbsvx.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBsolve * * ===================================================================== @@ -369,10 +367,9 @@ SUBROUTINE DGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgbsvxx.f b/lapack-netlib/SRC/dgbsvxx.f index 058b206862..0ea26a3ec1 100644 --- a/lapack-netlib/SRC/dgbsvxx.f +++ b/lapack-netlib/SRC/dgbsvxx.f @@ -549,8 +549,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBsolve * * ===================================================================== @@ -560,10 +558,9 @@ SUBROUTINE DGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgbtf2.f b/lapack-netlib/SRC/dgbtf2.f index eae7d27941..a643682582 100644 --- a/lapack-netlib/SRC/dgbtf2.f +++ b/lapack-netlib/SRC/dgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbtrf.f b/lapack-netlib/SRC/dgbtrf.f index 86fad80e3f..af305e26b4 100644 --- a/lapack-netlib/SRC/dgbtrf.f +++ b/lapack-netlib/SRC/dgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbtrs.f b/lapack-netlib/SRC/dgbtrs.f index 0837349613..f22d802de7 100644 --- a/lapack-netlib/SRC/dgbtrs.f +++ b/lapack-netlib/SRC/dgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgebak.f b/lapack-netlib/SRC/dgebak.f index 10a78aa1a6..e978d7af29 100644 --- a/lapack-netlib/SRC/dgebak.f +++ b/lapack-netlib/SRC/dgebak.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/dgebal.f b/lapack-netlib/SRC/dgebal.f index 95876acedd..821c7704a2 100644 --- a/lapack-netlib/SRC/dgebal.f +++ b/lapack-netlib/SRC/dgebal.f @@ -121,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -160,10 +158,9 @@ * ===================================================================== SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgebd2.f b/lapack-netlib/SRC/dgebd2.f index 2bec4e29c7..daaa187aff 100644 --- a/lapack-netlib/SRC/dgebd2.f +++ b/lapack-netlib/SRC/dgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgebrd.f b/lapack-netlib/SRC/dgebrd.f index 56a7abef0a..0f0d1651a7 100644 --- a/lapack-netlib/SRC/dgebrd.f +++ b/lapack-netlib/SRC/dgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgecon.f b/lapack-netlib/SRC/dgecon.f index be20bbcd2a..aa10dee9a2 100644 --- a/lapack-netlib/SRC/dgecon.f +++ b/lapack-netlib/SRC/dgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgeequ.f b/lapack-netlib/SRC/dgeequ.f index 2d9475cc70..3dc323014d 100644 --- a/lapack-netlib/SRC/dgeequ.f +++ b/lapack-netlib/SRC/dgeequ.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeequb.f b/lapack-netlib/SRC/dgeequb.f index 0404274d37..728c6213e4 100644 --- a/lapack-netlib/SRC/dgeequb.f +++ b/lapack-netlib/SRC/dgeequb.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgees.f b/lapack-netlib/SRC/dgees.f index c2723f619f..82b9d6ee44 100644 --- a/lapack-netlib/SRC/dgees.f +++ b/lapack-netlib/SRC/dgees.f @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT diff --git a/lapack-netlib/SRC/dgeesx.f b/lapack-netlib/SRC/dgeesx.f index a08104d3de..08fbb6468e 100644 --- a/lapack-netlib/SRC/dgeesx.f +++ b/lapack-netlib/SRC/dgeesx.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -281,10 +279,9 @@ SUBROUTINE DGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT diff --git a/lapack-netlib/SRC/dgeev.f b/lapack-netlib/SRC/dgeev.f index 2dc1588ab2..4677b9f520 100644 --- a/lapack-netlib/SRC/dgeev.f +++ b/lapack-netlib/SRC/dgeev.f @@ -181,7 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran d -> s * @@ -192,10 +191,9 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/dgeevx.f b/lapack-netlib/SRC/dgeevx.f index edf6a4366e..212bea2bb3 100644 --- a/lapack-netlib/SRC/dgeevx.f +++ b/lapack-netlib/SRC/dgeevx.f @@ -294,7 +294,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran d -> s * @@ -306,10 +305,9 @@ SUBROUTINE DGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/dgehd2.f b/lapack-netlib/SRC/dgehd2.f index 4521b66e1a..c71e38433f 100644 --- a/lapack-netlib/SRC/dgehd2.f +++ b/lapack-netlib/SRC/dgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/dgehrd.f b/lapack-netlib/SRC/dgehrd.f index 23fd872507..a40c61cb6d 100644 --- a/lapack-netlib/SRC/dgehrd.f +++ b/lapack-netlib/SRC/dgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dgejsv.f b/lapack-netlib/SRC/dgejsv.f index a30cfab87c..fc13f4a5fb 100644 --- a/lapack-netlib/SRC/dgejsv.f +++ b/lapack-netlib/SRC/dgejsv.f @@ -289,7 +289,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * *> \par Further Details: @@ -476,10 +474,9 @@ SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. IMPLICIT NONE @@ -932,7 +929,7 @@ SUBROUTINE DGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * (eg speed by replacing global with restricted window pivoting, such * as in SGEQPX from TOMS # 782). Good results will be obtained using * SGEQPX with properly (!) chosen numerical parameters. -* Any improvement of DGEQP3 improves overal performance of DGEJSV. +* Any improvement of DGEQP3 improves overall performance of DGEJSV. * * A * P1 = Q1 * [ R1^t 0]^t: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/dgelq.f b/lapack-netlib/SRC/dgelq.f index 7b2f808628..013b6c3564 100644 --- a/lapack-netlib/SRC/dgelq.f +++ b/lapack-netlib/SRC/dgelq.f @@ -170,10 +170,9 @@ SUBROUTINE DGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/dgelq2.f b/lapack-netlib/SRC/dgelq2.f index a6c835de47..9915c57d47 100644 --- a/lapack-netlib/SRC/dgelq2.f +++ b/lapack-netlib/SRC/dgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgelqf.f b/lapack-netlib/SRC/dgelqf.f index 4b11761f6c..ed3372f965 100644 --- a/lapack-netlib/SRC/dgelqf.f +++ b/lapack-netlib/SRC/dgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgelqt.f b/lapack-netlib/SRC/dgelqt.f index 5b4ee65b51..263d4dfa23 100644 --- a/lapack-netlib/SRC/dgelqt.f +++ b/lapack-netlib/SRC/dgelqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies +*> Download DGELQT + dependencies *> *> [TGZ] *> @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -139,10 +137,9 @@ * ===================================================================== SUBROUTINE DGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/dgelqt3.f b/lapack-netlib/SRC/dgelqt3.f index f19a91ca23..5bcc06a80f 100644 --- a/lapack-netlib/SRC/dgelqt3.f +++ b/lapack-netlib/SRC/dgelqt3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies +*> Download DGELQT3 + dependencies *> *> [TGZ] *> @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -131,10 +129,9 @@ * ===================================================================== RECURSIVE SUBROUTINE DGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -174,7 +171,7 @@ RECURSIVE SUBROUTINE DGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL DLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/lapack-netlib/SRC/dgels.f b/lapack-netlib/SRC/dgels.f index 33e6d51bff..3d0c6155dd 100644 --- a/lapack-netlib/SRC/dgels.f +++ b/lapack-netlib/SRC/dgels.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgelsd.f b/lapack-netlib/SRC/dgelsd.f index f2cfd63376..b3b3d8b2d3 100644 --- a/lapack-netlib/SRC/dgelsd.f +++ b/lapack-netlib/SRC/dgelsd.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEsolve * *> \par Contributors: @@ -209,10 +207,9 @@ SUBROUTINE DGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgelss.f b/lapack-netlib/SRC/dgelss.f index 674a7ba784..8ed703fcf2 100644 --- a/lapack-netlib/SRC/dgelss.f +++ b/lapack-netlib/SRC/dgelss.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgelsy.f b/lapack-netlib/SRC/dgelsy.f index 1ca238d1f5..aebab92640 100644 --- a/lapack-netlib/SRC/dgelsy.f +++ b/lapack-netlib/SRC/dgelsy.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgemlq.f b/lapack-netlib/SRC/dgemlq.f index dea693c243..3ba2091054 100644 --- a/lapack-netlib/SRC/dgemlq.f +++ b/lapack-netlib/SRC/dgemlq.f @@ -169,10 +169,9 @@ SUBROUTINE DGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgemlqt.f b/lapack-netlib/SRC/dgemlqt.f index 8cc59b8ee4..ac75fd24e6 100644 --- a/lapack-netlib/SRC/dgemlqt.f +++ b/lapack-netlib/SRC/dgemlqt.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -186,7 +183,7 @@ SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -210,8 +207,10 @@ SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -221,7 +220,7 @@ SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/dgemqr.f b/lapack-netlib/SRC/dgemqr.f index 0f7a422334..022cf21e43 100644 --- a/lapack-netlib/SRC/dgemqr.f +++ b/lapack-netlib/SRC/dgemqr.f @@ -170,10 +170,9 @@ SUBROUTINE DGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgemqrt.f b/lapack-netlib/SRC/dgemqrt.f index 12cf929817..9191f7546a 100644 --- a/lapack-netlib/SRC/dgemqrt.f +++ b/lapack-netlib/SRC/dgemqrt.f @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in DGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is DOUBLE PRECISION array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> DGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is DOUBLE PRECISION array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by DGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgeql2.f b/lapack-netlib/SRC/dgeql2.f index 539ef29f26..2d3ce1419f 100644 --- a/lapack-netlib/SRC/dgeql2.f +++ b/lapack-netlib/SRC/dgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqlf.f b/lapack-netlib/SRC/dgeqlf.f index e8c3f8e53e..b8ac0b1a0e 100644 --- a/lapack-netlib/SRC/dgeqlf.f +++ b/lapack-netlib/SRC/dgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqp3.f b/lapack-netlib/SRC/dgeqp3.f index 2b9faf663d..e79ecf371b 100644 --- a/lapack-netlib/SRC/dgeqp3.f +++ b/lapack-netlib/SRC/dgeqp3.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqr.f b/lapack-netlib/SRC/dgeqr.f index 0bff5d1f9a..eac8930ce0 100644 --- a/lapack-netlib/SRC/dgeqr.f +++ b/lapack-netlib/SRC/dgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/dgeqr2.f b/lapack-netlib/SRC/dgeqr2.f index 9ce1feb250..5791b3a915 100644 --- a/lapack-netlib/SRC/dgeqr2.f +++ b/lapack-netlib/SRC/dgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqr2p.f b/lapack-netlib/SRC/dgeqr2p.f index 9b81ccb33d..c7b62d87d7 100644 --- a/lapack-netlib/SRC/dgeqr2p.f +++ b/lapack-netlib/SRC/dgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqrf.f b/lapack-netlib/SRC/dgeqrf.f index 98666221f4..705e939286 100644 --- a/lapack-netlib/SRC/dgeqrf.f +++ b/lapack-netlib/SRC/dgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'DGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'DGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/dgeqrfp.f b/lapack-netlib/SRC/dgeqrfp.f index 5cf4069ed4..46d2ee4794 100644 --- a/lapack-netlib/SRC/dgeqrfp.f +++ b/lapack-netlib/SRC/dgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqrt.f b/lapack-netlib/SRC/dgeqrt.f index c7d9320697..06dfb0576b 100644 --- a/lapack-netlib/SRC/dgeqrt.f +++ b/lapack-netlib/SRC/dgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/dgeqrt3.f b/lapack-netlib/SRC/dgeqrt3.f index efec07850a..1fbd868d7e 100644 --- a/lapack-netlib/SRC/dgeqrt3.f +++ b/lapack-netlib/SRC/dgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/dgerfs.f b/lapack-netlib/SRC/dgerfs.f index a6f14e2b58..ea10d77f9d 100644 --- a/lapack-netlib/SRC/dgerfs.f +++ b/lapack-netlib/SRC/dgerfs.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgerfsx.f b/lapack-netlib/SRC/dgerfsx.f index 495ea1726e..c4a898f629 100644 --- a/lapack-netlib/SRC/dgerfsx.f +++ b/lapack-netlib/SRC/dgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ SUBROUTINE DGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/dgerq2.f b/lapack-netlib/SRC/dgerq2.f index b1713c1fb7..97d33761da 100644 --- a/lapack-netlib/SRC/dgerq2.f +++ b/lapack-netlib/SRC/dgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgerqf.f b/lapack-netlib/SRC/dgerqf.f index 20f2668ef8..cca9d6367b 100644 --- a/lapack-netlib/SRC/dgerqf.f +++ b/lapack-netlib/SRC/dgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/dgesc2.f b/lapack-netlib/SRC/dgesc2.f index 72d8a38f06..813bdf625d 100644 --- a/lapack-netlib/SRC/dgesc2.f +++ b/lapack-netlib/SRC/dgesc2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEauxiliary * *> \par Contributors: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/dgesdd.f b/lapack-netlib/SRC/dgesdd.f index 80d18041ce..738a122e89 100644 --- a/lapack-netlib/SRC/dgesdd.f +++ b/lapack-netlib/SRC/dgesdd.f @@ -191,9 +191,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: DBDSDC did not converge, updating process failed. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -204,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * *> \par Contributors: @@ -219,10 +218,9 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -268,8 +266,9 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * .. * .. External Functions .. LOGICAL LSAME, DISNAN - DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL DLAMCH, DLANGE, LSAME, DISNAN + DOUBLE PRECISION DLAMCH, DLANGE, DROUNDUP_LWORK + EXTERNAL DLAMCH, DLANGE, LSAME, DISNAN, + $ DROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -570,7 +569,7 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, END IF MAXWRK = MAX( MAXWRK, MINWRK ) - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN INFO = -12 @@ -1543,7 +1542,7 @@ SUBROUTINE DGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/dgesv.f b/lapack-netlib/SRC/dgesv.f index 23999e167f..3609c52f47 100644 --- a/lapack-netlib/SRC/dgesv.f +++ b/lapack-netlib/SRC/dgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgesvd.f b/lapack-netlib/SRC/dgesvd.f index ddf0bd5c2d..7cc8b35129 100644 --- a/lapack-netlib/SRC/dgesvd.f +++ b/lapack-netlib/SRC/dgesvd.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsing * * ===================================================================== SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/dgesvdq.f b/lapack-netlib/SRC/dgesvdq.f index e495d2bf96..6f9ac703ee 100644 --- a/lapack-netlib/SRC/dgesvdq.f +++ b/lapack-netlib/SRC/dgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -231,7 +231,7 @@ *> LIWORK >= N if JOBP = 'N' and JOBA .NE. 'E'; *> LIWORK >= N + M - 1 + N, if JOBP = 'P' and JOBA = 'E'; *> LIWORK >= N + N if JOBP = 'N' and JOBA = 'E'. -* +*> *> If LIWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -317,7 +317,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in DGESVD applied to the upper triangular or trapeziodal +*> exact zeros in DGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> DGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -331,7 +331,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M). *> Otherwise, LRWORK >= 2 -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -406,8 +406,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup doubleGEsing * * ===================================================================== @@ -641,7 +639,7 @@ SUBROUTINE DGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 DGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 DGESVD +* .. minimal workspace length for N/2 x N/2 DGESVD LWSVD2 = MAX( 5 * (N/2), 1 ) LWORQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/dgesvdx.f b/lapack-netlib/SRC/dgesvdx.f index 3937c13bd9..db444b78de 100644 --- a/lapack-netlib/SRC/dgesvdx.f +++ b/lapack-netlib/SRC/dgesvdx.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * * ===================================================================== @@ -263,10 +261,9 @@ SUBROUTINE DGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/dgesvj.f b/lapack-netlib/SRC/dgesvj.f index cf7aac982f..5fdb21e45c 100644 --- a/lapack-netlib/SRC/dgesvj.f +++ b/lapack-netlib/SRC/dgesvj.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -281,7 +279,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [5,6], and it is the kernel routine in the SIGMA library [7]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -337,10 +335,9 @@ SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/lapack-netlib/SRC/dgesvx.f b/lapack-netlib/SRC/dgesvx.f index 25f0f28278..4dc1d83cfe 100644 --- a/lapack-netlib/SRC/dgesvx.f +++ b/lapack-netlib/SRC/dgesvx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsolve * * ===================================================================== @@ -349,10 +347,9 @@ SUBROUTINE DGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgesvxx.f b/lapack-netlib/SRC/dgesvxx.f index 21b56f61cd..e1f86354bf 100644 --- a/lapack-netlib/SRC/dgesvxx.f +++ b/lapack-netlib/SRC/dgesvxx.f @@ -529,8 +529,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsolve * * ===================================================================== @@ -540,10 +538,9 @@ SUBROUTINE DGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgetc2.f b/lapack-netlib/SRC/dgetc2.f index 5bf5b890f9..d2f0ede826 100644 --- a/lapack-netlib/SRC/dgetc2.f +++ b/lapack-netlib/SRC/dgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dgetf2.f b/lapack-netlib/SRC/dgetf2.f index 5458a5f3eb..fc1587842e 100644 --- a/lapack-netlib/SRC/dgetf2.f +++ b/lapack-netlib/SRC/dgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetrf.f b/lapack-netlib/SRC/dgetrf.f index 9a340b60f3..73d0f3601a 100644 --- a/lapack-netlib/SRC/dgetrf.f +++ b/lapack-netlib/SRC/dgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetrf2.f b/lapack-netlib/SRC/dgetrf2.f index 77948d2305..40af0793dd 100644 --- a/lapack-netlib/SRC/dgetrf2.f +++ b/lapack-netlib/SRC/dgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE DGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetri.f b/lapack-netlib/SRC/dgetri.f index 9d8cf2ad3e..92ef90c186 100644 --- a/lapack-netlib/SRC/dgetri.f +++ b/lapack-netlib/SRC/dgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dgetrs.f b/lapack-netlib/SRC/dgetrs.f index 7ac727776e..d3464f685a 100644 --- a/lapack-netlib/SRC/dgetrs.f +++ b/lapack-netlib/SRC/dgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgetsls.f b/lapack-netlib/SRC/dgetsls.f index c2ba5e2b8e..25f4c12c29 100644 --- a/lapack-netlib/SRC/dgetsls.f +++ b/lapack-netlib/SRC/dgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -184,16 +181,15 @@ SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 DOUBLE PRECISION ANRM, BIGNUM, BNRM, SMLNUM, TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL LSAME, ILAENV, DLABAD, DLAMCH, DLANGE + EXTERNAL LSAME, DLABAD, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DGEQR, DGEMQR, DLASCL, DLASET, @@ -207,9 +203,7 @@ SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'T' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -230,7 +224,7 @@ SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL DGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -267,17 +261,17 @@ SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = DBLE( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'DGETSLS', -INFO ) - WORK( 1 ) = DBLE( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) - IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) + IF( LWORK.EQ.-2 ) WORK( 1 ) = DBLE( WSIZEM ) RETURN END IF IF( LWORK.LT.WSIZEO ) THEN diff --git a/lapack-netlib/SRC/dggbak.f b/lapack-netlib/SRC/dggbak.f index cd5c26064b..76820e39d2 100644 --- a/lapack-netlib/SRC/dggbak.f +++ b/lapack-netlib/SRC/dggbak.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -147,10 +145,9 @@ SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/dggbal.f b/lapack-netlib/SRC/dggbal.f index 5f36aa024b..c588eceb46 100644 --- a/lapack-netlib/SRC/dggbal.f +++ b/lapack-netlib/SRC/dggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE DGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgges.f b/lapack-netlib/SRC/dgges.f index 097ea77275..31db23715d 100644 --- a/lapack-netlib/SRC/dgges.f +++ b/lapack-netlib/SRC/dgges.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -284,10 +282,9 @@ SUBROUTINE DGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/dgges3.f b/lapack-netlib/SRC/dgges3.f index 41d2ea0ea2..7b00d294af 100644 --- a/lapack-netlib/SRC/dgges3.f +++ b/lapack-netlib/SRC/dgges3.f @@ -256,7 +256,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHAR(j), ALPHAI(j), and BETA(j) should *> be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in DHGEQZ. +*> > N: =N+1: other than QZ iteration failed in DLAQZ0. *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -282,10 +280,9 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -321,7 +318,7 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, DOUBLE PRECISION DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DHGEQZ, DLABAD, + EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DLAQZ0, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGSEN, $ XERBLA * .. @@ -400,9 +397,9 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, CALL DGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) IF( WANTST ) THEN CALL DTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -514,9 +511,9 @@ SUBROUTINE DGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL DHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/dggesx.f b/lapack-netlib/SRC/dggesx.f index 0e57d636e7..932c74227a 100644 --- a/lapack-netlib/SRC/dggesx.f +++ b/lapack-netlib/SRC/dggesx.f @@ -337,8 +337,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -365,10 +363,9 @@ SUBROUTINE DGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/dggev.f b/lapack-netlib/SRC/dggev.f index fa86828247..a02203e059 100644 --- a/lapack-netlib/SRC/dggev.f +++ b/lapack-netlib/SRC/dggev.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEeigen * * ===================================================================== SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/dggev3.f b/lapack-netlib/SRC/dggev3.f index 43a853dffe..4bbe8a40f5 100644 --- a/lapack-netlib/SRC/dggev3.f +++ b/lapack-netlib/SRC/dggev3.f @@ -205,7 +205,7 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHAR(j), ALPHAI(j), and BETA(j) *> should be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in DHGEQZ. +*> > N: =N+1: other than QZ iteration failed in DLAQZ0. *> =N+2: error return from DTGEVC. *> \endverbatim * @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -226,10 +224,9 @@ SUBROUTINE DGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -259,7 +256,7 @@ SUBROUTINE DGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DHGEQZ, DLABAD, + EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DLAQZ0, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGEVC, $ XERBLA * .. @@ -336,17 +333,17 @@ SUBROUTINE DGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, CALL DGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) ELSE CALL DGGHD3( 'N', 'N', N, 1, N, A, LDA, B, LDB, VL, LDVL, $ VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) END IF @@ -469,9 +466,9 @@ SUBROUTINE DGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ELSE CHTEMP = 'E' END IF - CALL DHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL DLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/dggevx.f b/lapack-netlib/SRC/dggevx.f index 1f6962df5d..b69f3f9bf6 100644 --- a/lapack-netlib/SRC/dggevx.f +++ b/lapack-netlib/SRC/dggevx.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -391,10 +389,9 @@ SUBROUTINE DGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/dggglm.f b/lapack-netlib/SRC/dggglm.f index 1fbdc8addd..d43785d32d 100644 --- a/lapack-netlib/SRC/dggglm.f +++ b/lapack-netlib/SRC/dggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dgghd3.f b/lapack-netlib/SRC/dgghd3.f index 283d914de2..43d7a77df5 100644 --- a/lapack-netlib/SRC/dgghd3.f +++ b/lapack-netlib/SRC/dgghd3.f @@ -211,8 +211,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -220,7 +218,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -230,10 +228,9 @@ SUBROUTINE DGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dgghrd.f b/lapack-netlib/SRC/dgghrd.f index 3a74899d1c..2f71a84103 100644 --- a/lapack-netlib/SRC/dgghrd.f +++ b/lapack-netlib/SRC/dgghrd.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ SUBROUTINE DGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/dgglse.f b/lapack-netlib/SRC/dgglse.f index 5d5cac23b6..2fd17bbcb5 100644 --- a/lapack-netlib/SRC/dgglse.f +++ b/lapack-netlib/SRC/dgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * * ===================================================================== SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggqrf.f b/lapack-netlib/SRC/dggqrf.f index 3ce21d8fd9..617af274ff 100644 --- a/lapack-netlib/SRC/dggqrf.f +++ b/lapack-netlib/SRC/dggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggrqf.f b/lapack-netlib/SRC/dggrqf.f index 9c377cc5a6..07f8752d80 100644 --- a/lapack-netlib/SRC/dggrqf.f +++ b/lapack-netlib/SRC/dggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggsvd3.f b/lapack-netlib/SRC/dggsvd3.f index f882139dda..503f0d8cc7 100644 --- a/lapack-netlib/SRC/dggsvd3.f +++ b/lapack-netlib/SRC/dggsvd3.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup doubleGEsing * *> \par Contributors: @@ -349,10 +347,9 @@ SUBROUTINE DGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/dggsvp3.f b/lapack-netlib/SRC/dggsvp3.f index 0ff113b166..4e1db3117b 100644 --- a/lapack-netlib/SRC/dggsvp3.f +++ b/lapack-netlib/SRC/dggsvp3.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -272,10 +270,9 @@ SUBROUTINE DGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dgsvj0.f b/lapack-netlib/SRC/dgsvj0.f index 318e369fd7..197a9a626c 100644 --- a/lapack-netlib/SRC/dgsvj0.f +++ b/lapack-netlib/SRC/dgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP @@ -392,7 +389,7 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * Some BLAS implementations compute DNRM2(M,A(1,p),1) * as DSQRT(DDOT(M,A(1,p),1,A(1,p),1)), which may result in * overflow for ||A(:,p)||_2 > DSQRT(overflow_threshold), and -* undeflow for ||A(:,p)||_2 < DSQRT(underflow_threshold). +* underflow for ||A(:,p)||_2 < DSQRT(underflow_threshold). * Hence, DNRM2 cannot be trusted, not even in the case when * the true norm is far from the under(over)flow boundaries. * If properly implemented DNRM2 is available, the IF-THEN-ELSE diff --git a/lapack-netlib/SRC/dgsvj1.f b/lapack-netlib/SRC/dgsvj1.f index 35a93619f9..11d1dde2bc 100644 --- a/lapack-netlib/SRC/dgsvj1.f +++ b/lapack-netlib/SRC/dgsvj1.f @@ -40,7 +40,7 @@ *> DGSVJ1 is called from DGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as DGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -236,10 +234,9 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/dgtcon.f b/lapack-netlib/SRC/dgtcon.f index 4271823489..e007ac146c 100644 --- a/lapack-netlib/SRC/dgtcon.f +++ b/lapack-netlib/SRC/dgtcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgtrfs.f b/lapack-netlib/SRC/dgtrfs.f index 74889353f2..e2bb3d2adc 100644 --- a/lapack-netlib/SRC/dgtrfs.f +++ b/lapack-netlib/SRC/dgtrfs.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== @@ -209,10 +207,9 @@ SUBROUTINE DGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgtsv.f b/lapack-netlib/SRC/dgtsv.f index b683eaafb6..0f02201d58 100644 --- a/lapack-netlib/SRC/dgtsv.f +++ b/lapack-netlib/SRC/dgtsv.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTsolve * * ===================================================================== SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgtsvx.f b/lapack-netlib/SRC/dgtsvx.f index 92bc9eac3c..ec8df80bb6 100644 --- a/lapack-netlib/SRC/dgtsvx.f +++ b/lapack-netlib/SRC/dgtsvx.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTsolve * * ===================================================================== @@ -293,10 +291,9 @@ SUBROUTINE DGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/dgttrf.f b/lapack-netlib/SRC/dgttrf.f index 3c9808fdb4..061c211504 100644 --- a/lapack-netlib/SRC/dgttrf.f +++ b/lapack-netlib/SRC/dgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dgttrs.f b/lapack-netlib/SRC/dgttrs.f index 3bbeb1d1dd..cb9a897c3b 100644 --- a/lapack-netlib/SRC/dgttrs.f +++ b/lapack-netlib/SRC/dgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgtts2.f b/lapack-netlib/SRC/dgtts2.f index 39e7b0075c..ffa69eac93 100644 --- a/lapack-netlib/SRC/dgtts2.f +++ b/lapack-netlib/SRC/dgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dhgeqz.f b/lapack-netlib/SRC/dhgeqz.f index 99557f20eb..3fe2a083c8 100644 --- a/lapack-netlib/SRC/dhgeqz.f +++ b/lapack-netlib/SRC/dhgeqz.f @@ -282,8 +282,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -304,10 +302,9 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -531,13 +528,17 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * GO TO 80 ELSE - IF( ABS( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( ILAST, ILAST ) ) + ABS( H( ILAST-1, ILAST-1 ) ) + $ ) ) ) THEN H( ILAST, ILAST-1 ) = ZERO GO TO 80 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = ZERO GO TO 70 END IF @@ -551,7 +552,9 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( J, J ) ) + ABS( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = ZERO ILAZRO = .TRUE. ELSE @@ -561,7 +564,10 @@ SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = ZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/dhsein.f b/lapack-netlib/SRC/dhsein.f index e71cdc87e1..326e8e3962 100644 --- a/lapack-netlib/SRC/dhsein.f +++ b/lapack-netlib/SRC/dhsein.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -263,10 +261,9 @@ SUBROUTINE DHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/dhseqr.f b/lapack-netlib/SRC/dhseqr.f index 6b7fb308fa..2d59c6cc7e 100644 --- a/lapack-netlib/SRC/dhseqr.f +++ b/lapack-netlib/SRC/dhseqr.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -316,10 +314,9 @@ SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/disnan.f b/lapack-netlib/SRC/disnan.f index a565ed36d4..e621b2589c 100644 --- a/lapack-netlib/SRC/disnan.f +++ b/lapack-netlib/SRC/disnan.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DISNAN( DIN ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION, INTENT(IN) :: DIN diff --git a/lapack-netlib/SRC/dla_gbamv.f b/lapack-netlib/SRC/dla_gbamv.f index 350284cfbd..a998c0cf11 100644 --- a/lapack-netlib/SRC/dla_gbamv.f +++ b/lapack-netlib/SRC/dla_gbamv.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_gbrcond.f b/lapack-netlib/SRC/dla_gbrcond.f index c9eebcbea7..c5e944b8de 100644 --- a/lapack-netlib/SRC/dla_gbrcond.f +++ b/lapack-netlib/SRC/dla_gbrcond.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -170,10 +168,9 @@ DOUBLE PRECISION FUNCTION DLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, $ AFB, LDAFB, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -349,5 +346,7 @@ DOUBLE PRECISION FUNCTION DLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, $ DLA_GBRCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_GBRCOND * END diff --git a/lapack-netlib/SRC/dla_gbrfsx_extended.f b/lapack-netlib/SRC/dla_gbrfsx_extended.f index 282a63f1c5..5454b1bfcd 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -369,7 +369,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -411,10 +409,9 @@ SUBROUTINE DLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -704,4 +701,7 @@ SUBROUTINE DLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, END DO * RETURN +* +* End of DLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_gbrpvgrw.f b/lapack-netlib/SRC/dla_gbrpvgrw.f index 3d566c2025..92d4da3b51 100644 --- a/lapack-netlib/SRC/dla_gbrpvgrw.f +++ b/lapack-netlib/SRC/dla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -157,4 +154,7 @@ DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, END IF END DO DLA_GBRPVGRW = RPVGRW +* +* End of DLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/dla_geamv.f b/lapack-netlib/SRC/dla_geamv.f index 0a83e4b640..c2d672ba1a 100644 --- a/lapack-netlib/SRC/dla_geamv.f +++ b/lapack-netlib/SRC/dla_geamv.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_gercond.f b/lapack-netlib/SRC/dla_gercond.f index 6f7d70a6ae..9e48ba3db6 100644 --- a/lapack-netlib/SRC/dla_gercond.f +++ b/lapack-netlib/SRC/dla_gercond.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -152,10 +150,9 @@ DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, $ LDAF, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -325,5 +322,7 @@ DOUBLE PRECISION FUNCTION DLA_GERCOND ( TRANS, N, A, LDA, AF, $ DLA_GERCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_GERCOND * END diff --git a/lapack-netlib/SRC/dla_gerfsx_extended.f b/lapack-netlib/SRC/dla_gerfsx_extended.f index 4cb9ef4f90..92b0d76d44 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.f +++ b/lapack-netlib/SRC/dla_gerfsx_extended.f @@ -53,7 +53,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -355,7 +355,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -396,10 +394,9 @@ SUBROUTINE DLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -682,4 +679,7 @@ SUBROUTINE DLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, END DO * RETURN +* +* End of DLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_gerpvgrw.f b/lapack-netlib/SRC/dla_gerpvgrw.f index 88cc7be5f1..17bf211048 100644 --- a/lapack-netlib/SRC/dla_gerpvgrw.f +++ b/lapack-netlib/SRC/dla_gerpvgrw.f @@ -92,18 +92,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -139,4 +136,7 @@ DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, END IF END DO DLA_GERPVGRW = RPVGRW +* +* End of DLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/dla_lin_berr.f b/lapack-netlib/SRC/dla_lin_berr.f index 0fec6989be..370781ae31 100644 --- a/lapack-netlib/SRC/dla_lin_berr.f +++ b/lapack-netlib/SRC/dla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -150,4 +147,7 @@ SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * END DO END DO +* +* End of DLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/dla_porcond.f b/lapack-netlib/SRC/dla_porcond.f index b2f9c4b1e5..fd04138da4 100644 --- a/lapack-netlib/SRC/dla_porcond.f +++ b/lapack-netlib/SRC/dla_porcond.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -142,10 +140,9 @@ DOUBLE PRECISION FUNCTION DLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, $ CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -324,5 +321,7 @@ DOUBLE PRECISION FUNCTION DLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, $ DLA_PORCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_PORCOND * END diff --git a/lapack-netlib/SRC/dla_porfsx_extended.f b/lapack-netlib/SRC/dla_porfsx_extended.f index ece9b00edc..5c8850fef2 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.f +++ b/lapack-netlib/SRC/dla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ SUBROUTINE DLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -676,4 +673,7 @@ SUBROUTINE DLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of DLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_porpvgrw.f b/lapack-netlib/SRC/dla_porpvgrw.f index 8a6f9e1a77..93ad3eb6a9 100644 --- a/lapack-netlib/SRC/dla_porpvgrw.f +++ b/lapack-netlib/SRC/dla_porpvgrw.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -207,4 +204,7 @@ DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, END IF DLA_PORPVGRW = RPVGRW +* +* End of DLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/dla_syamv.f b/lapack-netlib/SRC/dla_syamv.f index bb6dbe2889..3911e2ab2f 100644 --- a/lapack-netlib/SRC/dla_syamv.f +++ b/lapack-netlib/SRC/dla_syamv.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_syrcond.f b/lapack-netlib/SRC/dla_syrcond.f index 23ed825884..80c099773e 100644 --- a/lapack-netlib/SRC/dla_syrcond.f +++ b/lapack-netlib/SRC/dla_syrcond.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -148,10 +146,9 @@ DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -337,5 +334,7 @@ DOUBLE PRECISION FUNCTION DLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, $ DLA_SYRCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_SYRCOND * END diff --git a/lapack-netlib/SRC/dla_syrfsx_extended.f b/lapack-netlib/SRC/dla_syrfsx_extended.f index b390600c0b..e1cde6fc2b 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.f +++ b/lapack-netlib/SRC/dla_syrfsx_extended.f @@ -56,7 +56,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -354,7 +354,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -396,10 +394,9 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -705,4 +702,7 @@ SUBROUTINE DLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of DLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_syrpvgrw.f b/lapack-netlib/SRC/dla_syrpvgrw.f index 5ba03093be..b74133e6c8 100644 --- a/lapack-netlib/SRC/dla_syrpvgrw.f +++ b/lapack-netlib/SRC/dla_syrpvgrw.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -317,4 +314,7 @@ DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, END IF DLA_SYRPVGRW = RPVGRW +* +* End of DLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/dla_wwaddw.f b/lapack-netlib/SRC/dla_wwaddw.f index 4f50540d69..9b07a30724 100644 --- a/lapack-netlib/SRC/dla_wwaddw.f +++ b/lapack-netlib/SRC/dla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ SUBROUTINE DLA_WWADDW( N, X, Y, W ) X(I) = S 10 CONTINUE RETURN +* +* End of DLA_WWADDW +* END diff --git a/lapack-netlib/SRC/dlabad.f b/lapack-netlib/SRC/dlabad.f index 01b8158f66..95b35e53b8 100644 --- a/lapack-netlib/SRC/dlabad.f +++ b/lapack-netlib/SRC/dlabad.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLABAD( SMALL, LARGE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION LARGE, SMALL diff --git a/lapack-netlib/SRC/dlabrd.f b/lapack-netlib/SRC/dlabrd.f index b5e734dc7c..86dfc10c7c 100644 --- a/lapack-netlib/SRC/dlabrd.f +++ b/lapack-netlib/SRC/dlabrd.f @@ -156,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -210,10 +208,9 @@ SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/lapack-netlib/SRC/dlacn2.f b/lapack-netlib/SRC/dlacn2.f index 952854043a..ee2e7ca266 100644 --- a/lapack-netlib/SRC/dlacn2.f +++ b/lapack-netlib/SRC/dlacn2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -136,10 +134,9 @@ * ===================================================================== SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N @@ -160,7 +157,7 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * .. * .. Local Scalars .. INTEGER I, JLAST - DOUBLE PRECISION ALTSGN, ESTOLD, TEMP + DOUBLE PRECISION ALTSGN, ESTOLD, TEMP, XS * .. * .. External Functions .. INTEGER IDAMAX @@ -171,7 +168,7 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) EXTERNAL DCOPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, NINT, SIGN + INTRINSIC ABS, DBLE, NINT * .. * .. Executable Statements .. * @@ -199,7 +196,11 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) EST = DASUM( N, X, 1 ) * DO 30 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 30 CONTINUE KASE = 2 @@ -232,7 +233,12 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) ESTOLD = EST EST = DASUM( N, V, 1 ) DO 80 I = 1, N - IF( NINT( SIGN( ONE, X( I ) ) ).NE.ISGN( I ) ) + IF( X(I).GE.ZERO ) THEN + XS = ONE + ELSE + XS = -ONE + END IF + IF( NINT( XS ).NE.ISGN( I ) ) $ GO TO 90 80 CONTINUE * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED. @@ -244,7 +250,11 @@ SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) $ GO TO 120 * DO 100 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 100 CONTINUE KASE = 2 diff --git a/lapack-netlib/SRC/dlacon.f b/lapack-netlib/SRC/dlacon.f index 0077f7c8a3..c4f8a4512a 100644 --- a/lapack-netlib/SRC/dlacon.f +++ b/lapack-netlib/SRC/dlacon.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/dlacpy.f b/lapack-netlib/SRC/dlacpy.f index d1c396724a..917aa1e2a2 100644 --- a/lapack-netlib/SRC/dlacpy.f +++ b/lapack-netlib/SRC/dlacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dladiv.f b/lapack-netlib/SRC/dladiv.f index dd8110adf2..4265618fed 100644 --- a/lapack-netlib/SRC/dladiv.f +++ b/lapack-netlib/SRC/dladiv.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2013 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, P, Q @@ -178,10 +175,9 @@ SUBROUTINE DLADIV( A, B, C, D, P, Q ) SUBROUTINE DLADIV1( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, P, Q @@ -218,10 +214,9 @@ SUBROUTINE DLADIV1( A, B, C, D, P, Q ) DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, R, T @@ -251,6 +246,6 @@ DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T ) * RETURN * -* End of DLADIV12 +* End of DLADIV2 * END diff --git a/lapack-netlib/SRC/dlae2.f b/lapack-netlib/SRC/dlae2.f index ed77ff6dfe..a0e3971b41 100644 --- a/lapack-netlib/SRC/dlae2.f +++ b/lapack-netlib/SRC/dlae2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -102,10 +100,9 @@ * ===================================================================== SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, RT1, RT2 diff --git a/lapack-netlib/SRC/dlaebz.f b/lapack-netlib/SRC/dlaebz.f index f36a82c59f..980536ce67 100644 --- a/lapack-netlib/SRC/dlaebz.f +++ b/lapack-netlib/SRC/dlaebz.f @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -319,10 +317,9 @@ SUBROUTINE DLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/lapack-netlib/SRC/dlaed0.f b/lapack-netlib/SRC/dlaed0.f index 4e92da98ea..fe3b6249e9 100644 --- a/lapack-netlib/SRC/dlaed0.f +++ b/lapack-netlib/SRC/dlaed0.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b DLAED0 used by DSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -172,10 +170,9 @@ SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/dlaed1.f b/lapack-netlib/SRC/dlaed1.f index 30e71fa241..3718139c14 100644 --- a/lapack-netlib/SRC/dlaed1.f +++ b/lapack-netlib/SRC/dlaed1.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED1 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. +*> \brief \b DLAED1 used by DSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -163,10 +161,9 @@ SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/lapack-netlib/SRC/dlaed2.f b/lapack-netlib/SRC/dlaed2.f index fbcc87a880..9b1f1e0930 100644 --- a/lapack-netlib/SRC/dlaed2.f +++ b/lapack-netlib/SRC/dlaed2.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED2 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. +*> \brief \b DLAED2 used by DSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/dlaed3.f b/lapack-netlib/SRC/dlaed3.f index d200fc0a22..c58944e604 100644 --- a/lapack-netlib/SRC/dlaed3.f +++ b/lapack-netlib/SRC/dlaed3.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED3 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. +*> \brief \b DLAED3 used by DSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -170,8 +170,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/dlaed4.f b/lapack-netlib/SRC/dlaed4.f index 033438d735..3ee3ef920f 100644 --- a/lapack-netlib/SRC/dlaed4.f +++ b/lapack-netlib/SRC/dlaed4.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED4 used by sstedc. Finds a single root of the secular equation. +*> \brief \b DLAED4 used by DSTEDC. Finds a single root of the secular equation. * * =========== DOCUMENTATION =========== * @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/dlaed5.f b/lapack-netlib/SRC/dlaed5.f index 3ea9e401cf..d9e977e6b7 100644 --- a/lapack-netlib/SRC/dlaed5.f +++ b/lapack-netlib/SRC/dlaed5.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED5 used by sstedc. Solves the 2-by-2 secular equation. +*> \brief \b DLAED5 used by DSTEDC. Solves the 2-by-2 secular equation. * * =========== DOCUMENTATION =========== * @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -108,10 +106,9 @@ * ===================================================================== SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I @@ -184,6 +181,6 @@ SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) END IF RETURN * -* End OF DLAED5 +* End of DLAED5 * END diff --git a/lapack-netlib/SRC/dlaed6.f b/lapack-netlib/SRC/dlaed6.f index daa8db39e4..a0c0364e56 100644 --- a/lapack-netlib/SRC/dlaed6.f +++ b/lapack-netlib/SRC/dlaed6.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED6 used by sstedc. Computes one Newton step in solution of the secular equation. +*> \brief \b DLAED6 used by DSTEDC. Computes one Newton step in solution of the secular equation. * * =========== DOCUMENTATION =========== * @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/lapack-netlib/SRC/dlaed7.f b/lapack-netlib/SRC/dlaed7.f index 9c528added..d968c56752 100644 --- a/lapack-netlib/SRC/dlaed7.f +++ b/lapack-netlib/SRC/dlaed7.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b DLAED7 used by DSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -260,10 +258,9 @@ SUBROUTINE DLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/lapack-netlib/SRC/dlaed8.f b/lapack-netlib/SRC/dlaed8.f index f64679dc05..3631fb4566 100644 --- a/lapack-netlib/SRC/dlaed8.f +++ b/lapack-netlib/SRC/dlaed8.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b DLAED8 used by DSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -243,10 +241,9 @@ SUBROUTINE DLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/lapack-netlib/SRC/dlaed9.f b/lapack-netlib/SRC/dlaed9.f index d3be22502a..b88cdd9077 100644 --- a/lapack-netlib/SRC/dlaed9.f +++ b/lapack-netlib/SRC/dlaed9.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED9 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. +*> \brief \b DLAED9 used by DSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -156,10 +154,9 @@ SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/lapack-netlib/SRC/dlaeda.f b/lapack-netlib/SRC/dlaeda.f index 4ca08a0879..8864fd7f2a 100644 --- a/lapack-netlib/SRC/dlaeda.f +++ b/lapack-netlib/SRC/dlaeda.f @@ -1,4 +1,4 @@ -*> \brief \b DLAEDA used by sstedc. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. +*> \brief \b DLAEDA used by DSTEDC. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/lapack-netlib/SRC/dlaein.f b/lapack-netlib/SRC/dlaein.f index d35e186a1b..8e4c7fea1b 100644 --- a/lapack-netlib/SRC/dlaein.f +++ b/lapack-netlib/SRC/dlaein.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/dlaev2.f b/lapack-netlib/SRC/dlaev2.f index 4906f1a20c..9e29991a6d 100644 --- a/lapack-netlib/SRC/dlaev2.f +++ b/lapack-netlib/SRC/dlaev2.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -120,10 +118,9 @@ * ===================================================================== SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS1, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/dlaexc.f b/lapack-netlib/SRC/dlaexc.f index fc4f4a732c..b2a27b7776 100644 --- a/lapack-netlib/SRC/dlaexc.f +++ b/lapack-netlib/SRC/dlaexc.f @@ -41,7 +41,7 @@ *> *> T must be in Schur canonical form, that is, block upper triangular *> with 1-by-1 and 2-by-2 diagonal blocks; each 2-by-2 diagonal block -*> has its diagonal elemnts equal and its off-diagonal elements of +*> has its diagonal elements equal and its off-diagonal elements of *> opposite sign. *> \endverbatim * @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/lapack-netlib/SRC/dlag2.f b/lapack-netlib/SRC/dlag2.f index 7f123b2761..81c81a0aad 100644 --- a/lapack-netlib/SRC/dlag2.f +++ b/lapack-netlib/SRC/dlag2.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/dlag2s.f b/lapack-netlib/SRC/dlag2s.f index 09e2ac7718..e5a9302238 100644 --- a/lapack-netlib/SRC/dlag2s.f +++ b/lapack-netlib/SRC/dlag2s.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/dlags2.f b/lapack-netlib/SRC/dlags2.f index 62a8334617..88caf25a82 100644 --- a/lapack-netlib/SRC/dlags2.f +++ b/lapack-netlib/SRC/dlags2.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/dlagtf.f b/lapack-netlib/SRC/dlagtf.f index b92c84f39f..214bbb7a62 100644 --- a/lapack-netlib/SRC/dlagtf.f +++ b/lapack-netlib/SRC/dlagtf.f @@ -149,17 +149,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dlagtm.f b/lapack-netlib/SRC/dlagtm.f index bb330e8582..fd443df2b5 100644 --- a/lapack-netlib/SRC/dlagtm.f +++ b/lapack-netlib/SRC/dlagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dlagts.f b/lapack-netlib/SRC/dlagts.f index cbd35ae14f..092d1764ed 100644 --- a/lapack-netlib/SRC/dlagts.f +++ b/lapack-netlib/SRC/dlagts.f @@ -154,17 +154,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/lapack-netlib/SRC/dlagv2.f b/lapack-netlib/SRC/dlagv2.f index 16c608204a..885fe8a7d8 100644 --- a/lapack-netlib/SRC/dlagv2.f +++ b/lapack-netlib/SRC/dlagv2.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -157,10 +155,9 @@ SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/dlahqr.f b/lapack-netlib/SRC/dlahqr.f index e863829ec9..449134b865 100644 --- a/lapack-netlib/SRC/dlahqr.f +++ b/lapack-netlib/SRC/dlahqr.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -206,11 +204,11 @@ * ===================================================================== SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -227,13 +225,16 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, PARAMETER ( ZERO = 0.0d0, ONE = 1.0d0, TWO = 2.0d0 ) DOUBLE PRECISION DAT1, DAT2 PARAMETER ( DAT1 = 3.0d0 / 4.0d0, DAT2 = -0.4375d0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. DOUBLE PRECISION AA, AB, BA, BB, CS, DET, H11, H12, H21, H21S, $ H22, RT1I, RT1R, RT2I, RT2R, RTDISC, S, SAFMAX, $ SAFMIN, SMLNUM, SN, SUM, T1, T2, T3, TR, TST, $ ULP, V2, V3 - INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ + INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ, + $ KDEFL * .. * .. Local Arrays .. DOUBLE PRECISION V( 3 ) @@ -294,6 +295,10 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -353,6 +358,7 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * IF( L.GE.I-1 ) $ GO TO 150 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -363,21 +369,21 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) - H11 = DAT1*S + H( L, L ) + S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) + H11 = DAT1*S + H( I, I ) H12 = DAT2*S H21 = S H22 = H11 - ELSE IF( ITS.EQ.20 ) THEN + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) - H11 = DAT1*S + H( I, I ) + S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) + H11 = DAT1*S + H( L, L ) H12 = DAT2*S H21 = S H22 = H11 @@ -599,6 +605,8 @@ SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, CALL DROT( NZ, Z( ILOZ, I-1 ), 1, Z( ILOZ, I ), 1, CS, SN ) END IF END IF +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/dlahr2.f b/lapack-netlib/SRC/dlahr2.f index beb9795bea..d517d5a93a 100644 --- a/lapack-netlib/SRC/dlahr2.f +++ b/lapack-netlib/SRC/dlahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/dlaic1.f b/lapack-netlib/SRC/dlaic1.f index e9dc0835ef..ac22d23693 100644 --- a/lapack-netlib/SRC/dlaic1.f +++ b/lapack-netlib/SRC/dlaic1.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/lapack-netlib/SRC/dlaisnan.f b/lapack-netlib/SRC/dlaisnan.f index c2e87d88a0..2caf5fb1d0 100644 --- a/lapack-netlib/SRC/dlaisnan.f +++ b/lapack-netlib/SRC/dlaisnan.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION, INTENT(IN) :: DIN1, DIN2 diff --git a/lapack-netlib/SRC/dlaln2.f b/lapack-netlib/SRC/dlaln2.f index 0c94ea3082..b21819b056 100644 --- a/lapack-netlib/SRC/dlaln2.f +++ b/lapack-netlib/SRC/dlaln2.f @@ -210,18 +210,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/lapack-netlib/SRC/dlals0.f b/lapack-netlib/SRC/dlals0.f index d4cff166d6..cfca222806 100644 --- a/lapack-netlib/SRC/dlals0.f +++ b/lapack-netlib/SRC/dlals0.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -268,10 +266,9 @@ SUBROUTINE DLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/dlalsa.f b/lapack-netlib/SRC/dlalsa.f index b643f11c0b..da8e0fa175 100644 --- a/lapack-netlib/SRC/dlalsa.f +++ b/lapack-netlib/SRC/dlalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ SUBROUTINE DLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/dlalsd.f b/lapack-netlib/SRC/dlalsd.f index 510e0455a6..d22c45dc6e 100644 --- a/lapack-netlib/SRC/dlalsd.f +++ b/lapack-netlib/SRC/dlalsd.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -179,10 +177,9 @@ SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlamrg.f b/lapack-netlib/SRC/dlamrg.f index de19508e45..80bd354b97 100644 --- a/lapack-netlib/SRC/dlamrg.f +++ b/lapack-netlib/SRC/dlamrg.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DTRD1, DTRD2, N1, N2 diff --git a/lapack-netlib/SRC/dlamswlq.f b/lapack-netlib/SRC/dlamswlq.f index 306c3d3de7..70e78f4b19 100644 --- a/lapack-netlib/SRC/dlamswlq.f +++ b/lapack-netlib/SRC/dlamswlq.f @@ -19,7 +19,7 @@ *> *> \verbatim *> -*> DLAMQRTS overwrites the general real M-by-N matrix C with +*> DLAMSWLQ overwrites the general real M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is DOUBLE PRECISION array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= max(1,K). *> \endverbatim *> *> \param[in] T @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/dlamtsqr.f b/lapack-netlib/SRC/dlamtsqr.f index 41a0677809..962a314763 100644 --- a/lapack-netlib/SRC/dlamtsqr.f +++ b/lapack-netlib/SRC/dlamtsqr.f @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -196,10 +195,9 @@ SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = MB * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/dlaneg.f b/lapack-netlib/SRC/dlaneg.f index 3d13d316bb..2502852eba 100644 --- a/lapack-netlib/SRC/dlaneg.f +++ b/lapack-netlib/SRC/dlaneg.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -118,10 +116,9 @@ * ===================================================================== INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, R diff --git a/lapack-netlib/SRC/dlangb.f b/lapack-netlib/SRC/dlangb.f index 0c4f938f7f..96c9570852 100644 --- a/lapack-netlib/SRC/dlangb.f +++ b/lapack-netlib/SRC/dlangb.f @@ -116,20 +116,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -140,24 +136,22 @@ DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, * * ===================================================================== * +* * .. Parameters .. DOUBLE PRECISION ONE, ZERO PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. INTEGER I, J, K, L - DOUBLE PRECISION SUM, VALUE, TEMP + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -209,22 +203,15 @@ DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANGB = VALUE diff --git a/lapack-netlib/SRC/dlange.f b/lapack-netlib/SRC/dlange.f index 6b32fbefd7..9d214cb542 100644 --- a/lapack-netlib/SRC/dlange.f +++ b/lapack-netlib/SRC/dlange.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -136,13 +132,10 @@ DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN @@ -198,19 +191,13 @@ DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANGE = VALUE diff --git a/lapack-netlib/SRC/dlangt.f b/lapack-netlib/SRC/dlangt.f index c9576c0c3d..61626b0aae 100644 --- a/lapack-netlib/SRC/dlangt.f +++ b/lapack-netlib/SRC/dlangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dlanhs.f b/lapack-netlib/SRC/dlanhs.f index a859d22164..29560e4a66 100644 --- a/lapack-netlib/SRC/dlanhs.f +++ b/lapack-netlib/SRC/dlanhs.f @@ -101,19 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -130,18 +126,15 @@ DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -192,20 +185,13 @@ DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANHS = VALUE diff --git a/lapack-netlib/SRC/dlansb.f b/lapack-netlib/SRC/dlansb.f index a82dc41b1f..4df8db250f 100644 --- a/lapack-netlib/SRC/dlansb.f +++ b/lapack-netlib/SRC/dlansb.f @@ -121,20 +121,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -151,18 +147,15 @@ DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -229,47 +222,29 @@ DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL DLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSB = VALUE diff --git a/lapack-netlib/SRC/dlansf.f b/lapack-netlib/SRC/dlansf.f index d9b6c5b361..30e4248292 100644 --- a/lapack-netlib/SRC/dlansf.f +++ b/lapack-netlib/SRC/dlansf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -209,10 +207,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/dlansp.f b/lapack-netlib/SRC/dlansp.f index b6ad1ffcf0..50f974e1e0 100644 --- a/lapack-netlib/SRC/dlansp.f +++ b/lapack-netlib/SRC/dlansp.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -136,18 +132,15 @@ DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -221,48 +214,31 @@ DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( AP( K ).NE.ZERO ) THEN ABSA = ABS( AP( K ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -271,8 +247,7 @@ DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSP = VALUE diff --git a/lapack-netlib/SRC/dlanst.f b/lapack-netlib/SRC/dlanst.f index e952e2dd21..c5bc7ea038 100644 --- a/lapack-netlib/SRC/dlanst.f +++ b/lapack-netlib/SRC/dlanst.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dlansy.f b/lapack-netlib/SRC/dlansy.f index 87d514c118..949c5535a2 100644 --- a/lapack-netlib/SRC/dlansy.f +++ b/lapack-netlib/SRC/dlansy.f @@ -115,19 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -144,18 +140,15 @@ DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -220,39 +213,21 @@ DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL DLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSY = VALUE diff --git a/lapack-netlib/SRC/dlantb.f b/lapack-netlib/SRC/dlantb.f index 0d46f6cc89..c2bcfa6122 100644 --- a/lapack-netlib/SRC/dlantb.f +++ b/lapack-netlib/SRC/dlantb.f @@ -132,20 +132,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -163,18 +159,15 @@ DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -315,61 +308,46 @@ DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTB = VALUE diff --git a/lapack-netlib/SRC/dlantp.f b/lapack-netlib/SRC/dlantp.f index a7b89dec75..12f8b8e756 100644 --- a/lapack-netlib/SRC/dlantp.f +++ b/lapack-netlib/SRC/dlantp.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -147,18 +143,15 @@ DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -310,64 +303,45 @@ DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTP = VALUE diff --git a/lapack-netlib/SRC/dlantr.f b/lapack-netlib/SRC/dlantr.f index adc7da4c4c..9b68f19755 100644 --- a/lapack-netlib/SRC/dlantr.f +++ b/lapack-netlib/SRC/dlantr.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -164,18 +160,15 @@ DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -315,56 +308,38 @@ DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTR = VALUE diff --git a/lapack-netlib/SRC/dlanv2.f b/lapack-netlib/SRC/dlanv2.f index 1c277c6bb3..204cddd02f 100644 --- a/lapack-netlib/SRC/dlanv2.f +++ b/lapack-netlib/SRC/dlanv2.f @@ -109,8 +109,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -127,10 +125,9 @@ * ===================================================================== SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp.f b/lapack-netlib/SRC/dlaorhr_col_getrfnp.f index 6a7c629e89..706bfa9b13 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp.f +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE DLAORHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f index f7781f2e55..c424ca660d 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> DLAORHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine DLAORHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, DLAORHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, DLAORHR_COL_GETRFNP2 *> is self-sufficient and can be used without DLAORHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE DLAORHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dlapll.f b/lapack-netlib/SRC/dlapll.f index e8fb73385a..1cc15fb994 100644 --- a/lapack-netlib/SRC/dlapll.f +++ b/lapack-netlib/SRC/dlapll.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/dlapmr.f b/lapack-netlib/SRC/dlapmr.f index 257eb61c76..36eea184e8 100644 --- a/lapack-netlib/SRC/dlapmr.f +++ b/lapack-netlib/SRC/dlapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) * RETURN * -* End of ZLAPMT +* End of DLAPMR * END diff --git a/lapack-netlib/SRC/dlapmt.f b/lapack-netlib/SRC/dlapmt.f index b322e7ac52..19530885cf 100644 --- a/lapack-netlib/SRC/dlapmt.f +++ b/lapack-netlib/SRC/dlapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/dlapy2.f b/lapack-netlib/SRC/dlapy2.f index bc01829a24..1f63193bb7 100644 --- a/lapack-netlib/SRC/dlapy2.f +++ b/lapack-netlib/SRC/dlapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y @@ -81,13 +78,16 @@ DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) PARAMETER ( ONE = 1.0D0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION W, XABS, YABS, Z + DOUBLE PRECISION W, XABS, YABS, Z, HUGEVAL LOGICAL X_IS_NAN, Y_IS_NAN * .. * .. External Functions .. LOGICAL DISNAN EXTERNAL DISNAN * .. +* .. External Subroutines .. + DOUBLE PRECISION DLAMCH +* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -97,13 +97,14 @@ DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) Y_IS_NAN = DISNAN( Y ) IF ( X_IS_NAN ) DLAPY2 = X IF ( Y_IS_NAN ) DLAPY2 = Y + HUGEVAL = DLAMCH( 'Overflow' ) * IF ( .NOT.( X_IS_NAN.OR.Y_IS_NAN ) ) THEN XABS = ABS( X ) YABS = ABS( Y ) W = MAX( XABS, YABS ) Z = MIN( XABS, YABS ) - IF( Z.EQ.ZERO ) THEN + IF( Z.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN DLAPY2 = W ELSE DLAPY2 = W*SQRT( ONE+( Z / W )**2 ) diff --git a/lapack-netlib/SRC/dlapy3.f b/lapack-netlib/SRC/dlapy3.f index 3bbba88875..230a65cdb2 100644 --- a/lapack-netlib/SRC/dlapy3.f +++ b/lapack-netlib/SRC/dlapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y, Z @@ -84,18 +81,22 @@ DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) PARAMETER ( ZERO = 0.0D0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION W, XABS, YABS, ZABS + DOUBLE PRECISION W, XABS, YABS, ZABS, HUGEVAL +* .. +* .. External Subroutines .. + DOUBLE PRECISION DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT * .. * .. Executable Statements .. * + HUGEVAL = DLAMCH( 'Overflow' ) XABS = ABS( X ) YABS = ABS( Y ) ZABS = ABS( Z ) W = MAX( XABS, YABS, ZABS ) - IF( W.EQ.ZERO ) THEN + IF( W.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN * W can be zero for max(0,nan,0) * adding all three entries together will make sure * NaN will not disappear. diff --git a/lapack-netlib/SRC/dlaqgb.f b/lapack-netlib/SRC/dlaqgb.f index 3c9fac0d3f..a13124f1e9 100644 --- a/lapack-netlib/SRC/dlaqgb.f +++ b/lapack-netlib/SRC/dlaqgb.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBauxiliary * * ===================================================================== SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/dlaqge.f b/lapack-netlib/SRC/dlaqge.f index a9852541a3..e9324cec8e 100644 --- a/lapack-netlib/SRC/dlaqge.f +++ b/lapack-netlib/SRC/dlaqge.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * * ===================================================================== SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/dlaqp2.f b/lapack-netlib/SRC/dlaqp2.f index b6351e04c9..b99de6d7d5 100644 --- a/lapack-netlib/SRC/dlaqp2.f +++ b/lapack-netlib/SRC/dlaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/dlaqps.f b/lapack-netlib/SRC/dlaqps.f index 0009de9516..dda8278bb8 100644 --- a/lapack-netlib/SRC/dlaqps.f +++ b/lapack-netlib/SRC/dlaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -177,10 +175,9 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/dlaqr0.f b/lapack-netlib/SRC/dlaqr0.f index 8334d8d2b5..3e73b8de20 100644 --- a/lapack-netlib/SRC/dlaqr0.f +++ b/lapack-netlib/SRC/dlaqr0.f @@ -248,18 +248,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/dlaqr1.f b/lapack-netlib/SRC/dlaqr1.f index 4ccf997e79..f411ac9556 100644 --- a/lapack-netlib/SRC/dlaqr1.f +++ b/lapack-netlib/SRC/dlaqr1.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION SI1, SI2, SR1, SR2 diff --git a/lapack-netlib/SRC/dlaqr2.f b/lapack-netlib/SRC/dlaqr2.f index 01fdf30469..515c836582 100644 --- a/lapack-netlib/SRC/dlaqr2.f +++ b/lapack-netlib/SRC/dlaqr2.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -278,10 +276,9 @@ SUBROUTINE DLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/dlaqr3.f b/lapack-netlib/SRC/dlaqr3.f index 1dbf55c9e6..36e08f02e8 100644 --- a/lapack-netlib/SRC/dlaqr3.f +++ b/lapack-netlib/SRC/dlaqr3.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -275,10 +273,9 @@ SUBROUTINE DLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/dlaqr4.f b/lapack-netlib/SRC/dlaqr4.f index 163e55deb1..0668a54b24 100644 --- a/lapack-netlib/SRC/dlaqr4.f +++ b/lapack-netlib/SRC/dlaqr4.f @@ -237,8 +237,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -263,10 +261,9 @@ SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/dlaqr5.f b/lapack-netlib/SRC/dlaqr5.f index 12e7db637f..0c63ab8000 100644 --- a/lapack-netlib/SRC/dlaqr5.f +++ b/lapack-netlib/SRC/dlaqr5.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/dlaqsb.f b/lapack-netlib/SRC/dlaqsb.f index 3a6ef70aa3..3ea4aa8be7 100644 --- a/lapack-netlib/SRC/dlaqsb.f +++ b/lapack-netlib/SRC/dlaqsb.f @@ -133,17 +133,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqsp.f b/lapack-netlib/SRC/dlaqsp.f index 5f25d1e303..dcd122e49d 100644 --- a/lapack-netlib/SRC/dlaqsp.f +++ b/lapack-netlib/SRC/dlaqsp.f @@ -118,17 +118,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqsy.f b/lapack-netlib/SRC/dlaqsy.f index a3ed114678..cc708180ac 100644 --- a/lapack-netlib/SRC/dlaqsy.f +++ b/lapack-netlib/SRC/dlaqsy.f @@ -126,17 +126,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqtr.f b/lapack-netlib/SRC/dlaqtr.f index 71c441fa3b..cc901d65f8 100644 --- a/lapack-netlib/SRC/dlaqtr.f +++ b/lapack-netlib/SRC/dlaqtr.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/lapack-netlib/SRC/dlaqz0.c b/lapack-netlib/SRC/dlaqz0.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/dlaqz0.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* RECURSIVE SUBROUTINE DLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, +* $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, +* $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* +* INTEGER, INTENT( OUT ) :: INFO +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), +* $ ALPHAI( * ), BETA( * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real matrix pair (A,B): +*> +*> A = Q1*H*Z1**T, B = Q1*T*Z1**T, +*> +*> as computed by DGGHRD. +*> +*> If JOB='S', then the Hessenberg-triangular pair (H,T) is +*> also reduced to generalized Schur form, +*> +*> H = Q*S*Z**T, T = Q*P*Z**T, +*> +*> where Q and Z are orthogonal matrices, P is an upper triangular +*> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 +*> diagonal blocks. +*> +*> The 1-by-1 blocks correspond to real eigenvalues of the matrix pair +*> (H,T) and the 2-by-2 blocks correspond to complex conjugate pairs of +*> eigenvalues. +*> +*> Additionally, the 2-by-2 upper triangular diagonal blocks of P +*> corresponding to 2-by-2 blocks of S are reduced to positive diagonal +*> form, i.e., if S(j+1,j) is non-zero, then P(j+1,j) = P(j,j+1) = 0, +*> P(j,j) > 0, and P(j+1,j+1) > 0. +*> +*> Optionally, the orthogonal matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> orthogonal matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the orthogonal matrices from DGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the orthogonal factors from the +*> generalized Schur factorization of (A,B): +*> +*> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. +*> +*> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, +*> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Real eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an orthogonal matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an orthogonal matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper quasi-triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> 2-by-2 diagonal blocks of P corresponding to 2-by-2 blocks of S +*> are reduced to positive diagonal form, i.e., if A(j+1,j) is +*> non-zero, then B(j+1,j) = B(j,j+1) = 0, B(j,j) > 0, and +*> B(j+1,j+1) > 0. +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is DOUBLE PRECISION array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is DOUBLE PRECISION array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is DOUBLE PRECISION array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the orthogonal matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the orthogonal matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the orthogonal matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the orthogonal matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the orthogonal matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> orthogonal matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHAR(i), ALPHAI(i), and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE DLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, + $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + + INTEGER, INTENT( OUT ) :: INFO + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), + $ ALPHAI( * ), BETA( * ), WORK( * ) + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + DOUBLE PRECISION :: SMLNUM, ULP, ESHIFT, SAFMIN, SAFMAX, C1, S1, + $ TEMP, SWAP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST, I + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, DHGEQZ, DLASET, DLAQZ3, DLAQZ4, DLABAD, + $ DLARTG, DROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = DBLE( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( DBLE( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL DHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, + $ LWORK, INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to dlaqz3 + NW = MAX( NWR, NMIN ) + CALL DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHAR, + $ ALPHAI, BETA, WORK, NW, WORK, NW, WORK, -1, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to dlaqz4 + CALL DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHAR, + $ ALPHAI, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, + $ NBR, WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = DBLE( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL DLASET( 'FULL', N, N, ZERO, ONE, Q, LDQ ) + IF( IWANTZ.EQ.3 ) CALL DLASET( 'FULL', N, N, ZERO, ONE, Z, LDZ ) + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 3*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP-1, ISTOP-2 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP-1, ISTOP-1 ) )+ABS( A( ISTOP-2, + $ ISTOP-2 ) ) ) ) ) THEN + A( ISTOP-1, ISTOP-2 ) = ZERO + ISTOP = ISTOP-2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = ZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = ZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+2, ISTART+1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART+1, ISTART+1 ) )+ABS( A( ISTART+2, + $ ISTART+2 ) ) ) ) ) THEN + A( ISTART+2, ISTART+1 ) = ZERO + ISTART = ISTART+2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = ZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = ZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = ZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMP = ZERO + IF( K .LT. ISTOP ) THEN + TEMP = TEMP+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMP = TEMP+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMP ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL DLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = ZERO + + CALL DROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL DROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL DROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL DLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = ZERO + + CALL DROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL DROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, S1 ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL DLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = ZERO + + CALL DROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL DROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, S1 ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = ZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using DHGEQZ because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL DLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHAR, ALPHAI, BETA, WORK, NW, WORK( NW**2+1 ), + $ NW, WORK( 2*NW**2+1 ), LWORK-2*NW**2, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = ZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 +* +* Shuffle shifts to put double shifts in front +* This ensures that we don't split up a double shift +* + DO I = SHIFTPOS, SHIFTPOS+N_UNDEFLATED-1, 2 + IF( ALPHAI( I ).NE.-ALPHAI( I+1 ) ) THEN +* + SWAP = ALPHAR( I ) + ALPHAR( I ) = ALPHAR( I+1 ) + ALPHAR( I+1 ) = ALPHAR( I+2 ) + ALPHAR( I+2 ) = SWAP + + SWAP = ALPHAI( I ) + ALPHAI( I ) = ALPHAI( I+1 ) + ALPHAI( I+1 ) = ALPHAI( I+2 ) + ALPHAI( I+2 ) = SWAP + + SWAP = BETA( I ) + BETA( I ) = BETA( I+1 ) + BETA( I+1 ) = BETA( I+2 ) + BETA( I+2 ) = SWAP + END IF + END DO + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( DBLE( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+ONE/( SAFMIN*DBLE( MAXIT ) ) + END IF + ALPHAR( SHIFTPOS ) = ONE + ALPHAR( SHIFTPOS+1 ) = ZERO + ALPHAI( SHIFTPOS ) = ZERO + ALPHAI( SHIFTPOS+1 ) = ZERO + BETA( SHIFTPOS ) = ESHIFT + BETA( SHIFTPOS+1 ) = ESHIFT + NS = 2 + END IF + +* +* Time for a QZ sweep +* + CALL DLAQZ4( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHAR( SHIFTPOS ), ALPHAI( SHIFTPOS ), + $ BETA( SHIFTPOS ), A, LDA, B, LDB, Q, LDQ, Z, LDZ, + $ WORK, NBLOCK, WORK( NBLOCK**2+1 ), NBLOCK, + $ WORK( 2*NBLOCK**2+1 ), LWORK-2*NBLOCK**2, + $ SWEEP_INFO ) + + END DO + +* +* Call DHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, DHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL DHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz1.c b/lapack-netlib/SRC/dlaqz1.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/dlaqz1.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, +* $ V ) +* IMPLICIT NONE +* +* Arguments +* INTEGER, INTENT( IN ) :: LDA, LDB +* DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, +* $ SR2, SI, BETA1, BETA2 +* DOUBLE PRECISION, INTENT( OUT ) :: V( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> Given a 3-by-3 matrix pencil (A,B), DLAQZ1 sets v to a +*> scalar multiple of the first column of the product +*> +*> (*) K = (A - (beta2*sr2 - i*si)*B)*B^(-1)*(beta1*A - (sr2 + i*si2)*B)*B^(-1). +*> +*> It is assumed that either +*> +*> 1) sr1 = sr2 +*> or +*> 2) si = 0. +*> +*> This is useful for starting double implicit shift bulges +*> in the QZ algorithm. +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> \param[in] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA,N) +*> The 3-by-3 matrix A in (*). +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[in] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB,N) +*> The 3-by-3 matrix B in (*). +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] SR1 +*> \verbatim +*> SR1 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] SR2 +*> \verbatim +*> SR2 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] BETA1 +*> \verbatim +*> BETA1 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] BETA2 +*> \verbatim +*> BETA2 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[out] V +*> \verbatim +*> V is DOUBLE PRECISION array, dimension (N) +*> A scalar multiple of the first column of the +*> matrix K in (*). +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, + $ V ) + IMPLICIT NONE +* +* Arguments + INTEGER, INTENT( IN ) :: LDA, LDB + DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, + $ SR2, SI, BETA1, BETA2 + DOUBLE PRECISION, INTENT( OUT ) :: V( * ) +* +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local scalars + DOUBLE PRECISION :: W( 2 ), SAFMIN, SAFMAX, SCALE1, SCALE2 +* +* External Functions + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: DISNAN +* + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN +* +* Calculate first shifted vector +* + W( 1 ) = BETA1*A( 1, 1 )-SR1*B( 1, 1 ) + W( 2 ) = BETA1*A( 2, 1 )-SR1*B( 2, 1 ) + SCALE1 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE1 .GE. SAFMIN .AND. SCALE1 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE1 + W( 2 ) = W( 2 )/SCALE1 + END IF +* +* Solve linear system +* + W( 2 ) = W( 2 )/B( 2, 2 ) + W( 1 ) = ( W( 1 )-B( 1, 2 )*W( 2 ) )/B( 1, 1 ) + SCALE2 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE2 .GE. SAFMIN .AND. SCALE2 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE2 + W( 2 ) = W( 2 )/SCALE2 + END IF +* +* Apply second shift +* + V( 1 ) = BETA2*( A( 1, 1 )*W( 1 )+A( 1, 2 )*W( 2 ) )-SR2*( B( 1, + $ 1 )*W( 1 )+B( 1, 2 )*W( 2 ) ) + V( 2 ) = BETA2*( A( 2, 1 )*W( 1 )+A( 2, 2 )*W( 2 ) )-SR2*( B( 2, + $ 1 )*W( 1 )+B( 2, 2 )*W( 2 ) ) + V( 3 ) = BETA2*( A( 3, 1 )*W( 1 )+A( 3, 2 )*W( 2 ) )-SR2*( B( 3, + $ 1 )*W( 1 )+B( 3, 2 )*W( 2 ) ) +* +* Account for imaginary part +* + V( 1 ) = V( 1 )+SI*SI*B( 1, 1 )/SCALE1/SCALE2 +* +* Check for overflow +* + IF( ABS( V( 1 ) ).GT.SAFMAX .OR. ABS( V( 2 ) ) .GT. SAFMAX .OR. + $ ABS( V( 3 ) ).GT.SAFMAX .OR. DISNAN( V( 1 ) ) .OR. + $ DISNAN( V( 2 ) ) .OR. DISNAN( V( 3 ) ) ) THEN + V( 1 ) = ZERO + V( 2 ) = ZERO + V( 3 ) = ZERO + END IF +* +* End of DLAQZ1 +* + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz2.c b/lapack-netlib/SRC/dlaqz2.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/dlaqz2.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* DOUBLE PRECISION :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, +* $ * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ2 chases a 2x2 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1:k+2,k:k+1),B(k+1:k+2,k:k+1)). +*> On exit, the bulge is located in +*> (A(k+2:k+3,k+1:k+2),B(k+2:k+3,k+1:k+2)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+3,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+4-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+3-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + DOUBLE PRECISION :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, + $ * ) +* +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local variables + DOUBLE PRECISION :: H( 2, 3 ), C1, S1, C2, S2, TEMP +* +* External functions + EXTERNAL :: DLARTG, DROT +* + IF( K+2 .EQ. IHI ) THEN +* Shift is located on the edge of the matrix, remove it + H = B( IHI-1:IHI, IHI-2:IHI ) +* Make H upper triangular + CALL DLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL DROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* + CALL DLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL DROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL DLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* + CALL DROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, B( ISTARTM, IHI-1 ), 1, B( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + B( IHI-1, IHI-2 ) = ZERO + B( IHI, IHI-2 ) = ZERO + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI-1 ), 1, A( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, + $ IHI-2-ZSTART+1 ), 1, C2, S2 ) + END IF +* + CALL DLARTG( A( IHI-1, IHI-2 ), A( IHI, IHI-2 ), C1, S1, + $ TEMP ) + A( IHI-1, IHI-2 ) = TEMP + A( IHI, IHI-2 ) = ZERO + CALL DROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, + $ IHI-1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, + $ IHI-1 ), LDB, C1, S1 ) + IF ( ILQ ) THEN + CALL DROT( NQ, Q( 1, IHI-1-QSTART+1 ), 1, Q( 1, IHI-QSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + CALL DLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C1, S1, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = ZERO + CALL DROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* + H = B( K+1:K+2, K:K+2 ) +* +* Make H upper triangular +* + CALL DLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL DROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* +* Calculate Z1 and Z2 +* + CALL DLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL DROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL DLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* +* Apply transformations from the right +* + CALL DROT( K+3-ISTARTM+1, A( ISTARTM, K+2 ), 1, A( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL DROT( K+3-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C2, S2 ) + CALL DROT( K+2-ISTARTM+1, B( ISTARTM, K+2 ), 1, B( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL DROT( K+2-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, + $ K ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, K+2-ZSTART+1 ), 1, Z( 1, K+1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C2, S2 ) + END IF + B( K+1, K ) = ZERO + B( K+2, K ) = ZERO +* +* Calculate Q1 and Q2 +* + CALL DLARTG( A( K+2, K ), A( K+3, K ), C1, S1, TEMP ) + A( K+2, K ) = TEMP + A( K+3, K ) = ZERO + CALL DLARTG( A( K+1, K ), A( K+2, K ), C2, S2, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = ZERO +* +* Apply transformations from the left +* + CALL DROT( ISTOPM-K, A( K+2, K+1 ), LDA, A( K+3, K+1 ), LDA, + $ C1, S1 ) + CALL DROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, + $ C2, S2 ) +* + CALL DROT( ISTOPM-K, B( K+2, K+1 ), LDB, B( K+3, K+1 ), LDB, + $ C1, S1 ) + CALL DROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, + $ C2, S2 ) + IF ( ILQ ) THEN + CALL DROT( NQ, Q( 1, K+2-QSTART+1 ), 1, Q( 1, K+3-QSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C2, S2 ) + END IF +* + END IF +* +* End of DLAQZ2 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/dlaqz3.c b/lapack-netlib/SRC/dlaqz3.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/dlaqz3.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHAR, ALPHAI, BETA, QC, LDQC, +* $ ZC, LDZC, WORK, LWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* DOUBLE PRECISION :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ3 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is DOUBLE PRECISION array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is DOUBLE PRECISION array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is DOUBLE PRECISION array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is DOUBLE PRECISION array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is DOUBLE PRECISION array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHAR, ALPHAI, BETA, QC, LDQC, + $ ZC, LDZC, WORK, LWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), + $ ALPHAI( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + DOUBLE PRECISION :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local Scalars + LOGICAL :: BULGE + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, DTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + DOUBLE PRECISION :: S, SMLNUM, ULP, SAFMIN, SAFMAX, C1, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, DTGEXC, DLABAD, DLAQZ0, DLACPY, DLASET, + $ DLAQZ2, DROT, DLARTG, DLAG2, DGEMM + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = ZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL DTGEXC( .TRUE., .TRUE., JW, A, LDA, B, LDB, QC, LDQC, ZC, + $ LDZC, IFST, ILST, WORK, -1, DTGEXC_INFO ) + LWORKREQ = INT( WORK( 1 ) ) + CALL DLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK, -1, REC+1, QZ_SMALL_INFO ) + LWORKREQ = MAX( LWORKREQ, INT( WORK( 1 ) )+2*JW**2 ) + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ3', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHAR( KWTOP ) = A( KWTOP, KWTOP ) + ALPHAI( KWTOP ) = ZERO + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = ZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL DLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL DLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL DLASET( 'FULL', JW, JW, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', JW, JW, ZERO, ONE, ZC, LDZC ) + CALL DLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL DLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL DLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. ZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) + BULGE = .FALSE. + IF ( KWBOT-KWTOP+1 .GE. 2 ) THEN + BULGE = A( KWBOT, KWBOT-1 ) .NE. ZERO + END IF + IF ( BULGE ) THEN + +* Try to deflate complex conjugate eigenvalue pair + TEMP = ABS( A( KWBOT, KWBOT ) )+SQRT( ABS( A( KWBOT, + $ KWBOT-1 ) ) )*SQRT( ABS( A( KWBOT-1, KWBOT ) ) ) + IF( TEMP .EQ. ZERO )THEN + TEMP = ABS( S ) + END IF + IF ( MAX( ABS( S*QC( 1, KWBOT-KWTOP ) ), ABS( S*QC( 1, + $ KWBOT-KWTOP+1 ) ) ) .LE. MAX( SMLNUM, + $ ULP*TEMP ) ) THEN +* Deflatable + KWBOT = KWBOT-2 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL DTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ DTGEXC_INFO ) + K2 = K2+2 + END IF + K = K+2 + ELSE + +* Try to deflate real eigenvalue + TEMP = ABS( A( KWBOT, KWBOT ) ) + IF( TEMP .EQ. ZERO ) THEN + TEMP = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMP, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL DTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ DTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + + END IF + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + BULGE = .FALSE. + IF ( K .LT. IHI ) THEN + IF ( A( K+1, K ) .NE. ZERO ) THEN + BULGE = .TRUE. + END IF + END IF + IF ( BULGE ) THEN +* 2x2 eigenvalue block + CALL DLAG2( A( K, K ), LDA, B( K, K ), LDB, SAFMIN, + $ BETA( K ), BETA( K+1 ), ALPHAR( K ), + $ ALPHAR( K+1 ), ALPHAI( K ) ) + ALPHAI( K+1 ) = -ALPHAI( K ) + K = K+2 + ELSE +* 1x1 eigenvalue block + ALPHAR( K ) = A( K, K ) + ALPHAI( K ) = ZERO + BETA( K ) = B( K, K ) + K = K+1 + END IF + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. ZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 )*QC( 1, + $ 1:JW-ND ) + DO K = KWBOT-1, KWTOP, -1 + CALL DLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = ZERO + K2 = MAX( KWTOP, K-1 ) + CALL DROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL DROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL DROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, S1 ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + IF ( ( K .GE. KWTOP+1 ) .AND. A( K+1, K-1 ) .NE. ZERO ) THEN + +* Move double pole block down and remove it + DO K2 = K-1, KWBOT-2 + CALL DLAQZ2( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, + $ LDQC, JW, KWTOP, ZC, LDZC ) + END DO + + K = K-2 + ELSE + +* k points to single shift + DO K2 = K, KWBOT-2 + +* Move shift down + CALL DLARTG( B( K2+1, K2+1 ), B( K2+1, K2 ), C1, S1, + $ TEMP ) + B( K2+1, K2+1 ) = TEMP + B( K2+1, K2 ) = ZERO + CALL DROT( K2+2-ISTARTM+1, A( ISTARTM, K2+1 ), 1, + $ A( ISTARTM, K2 ), 1, C1, S1 ) + CALL DROT( K2-ISTARTM+1, B( ISTARTM, K2+1 ), 1, + $ B( ISTARTM, K2 ), 1, C1, S1 ) + CALL DROT( JW, ZC( 1, K2+1-KWTOP+1 ), 1, ZC( 1, + $ K2-KWTOP+1 ), 1, C1, S1 ) + + CALL DLARTG( A( K2+1, K2 ), A( K2+2, K2 ), C1, S1, + $ TEMP ) + A( K2+1, K2 ) = TEMP + A( K2+2, K2 ) = ZERO + CALL DROT( ISTOPM-K2, A( K2+1, K2+1 ), LDA, A( K2+2, + $ K2+1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-K2, B( K2+1, K2+1 ), LDB, B( K2+2, + $ K2+1 ), LDB, C1, S1 ) + CALL DROT( JW, QC( 1, K2+1-KWTOP+1 ), 1, QC( 1, + $ K2+2-KWTOP+1 ), 1, C1, S1 ) + + END DO + +* Remove the shift + CALL DLARTG( B( KWBOT, KWBOT ), B( KWBOT, KWBOT-1 ), C1, + $ S1, TEMP ) + B( KWBOT, KWBOT ) = TEMP + B( KWBOT, KWBOT-1 ) = ZERO + CALL DROT( KWBOT-ISTARTM, B( ISTARTM, KWBOT ), 1, + $ B( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL DROT( KWBOT-ISTARTM+1, A( ISTARTM, KWBOT ), 1, + $ A( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL DROT( JW, ZC( 1, KWBOT-KWTOP+1 ), 1, ZC( 1, + $ KWBOT-1-KWTOP+1 ), 1, C1, S1 ) + + K = K-1 + END IF + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL DGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, ZERO, WORK, JW ) + CALL DLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL DGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, ZERO, WORK, JW ) + CALL DLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, JW, JW, ONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL DGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL DLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL DGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL DLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, JW, JW, ONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz4.c b/lapack-netlib/SRC/dlaqz4.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/dlaqz4.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b DLAQZ4 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), +* $ WORK( * ), SR( * ), SI( * ), SS( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ4 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] SR +*> \verbatim +*> SR is DOUBLE PRECISION array. SR contains +*> the real parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is DOUBLE PRECISION array. SI contains +*> the imaginary parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SS +*> \verbatim +*> SS is DOUBLE PRECISION array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is DOUBLE PRECISION array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is DOUBLE PRECISION array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, + $ LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, LWORK, + $ INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), QC( LDQC, * ), + $ ZC( LDZC, * ), WORK( * ), SR( * ), SI( * ), + $ SS( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + DOUBLE PRECISION :: TEMP, V( 3 ), C1, S1, C2, S2, SWAP +* +* External functions + EXTERNAL :: XERBLA, DGEMM, DLAQZ1, DLAQZ2, DLASET, DLARTG, DROT, + $ DLACPY + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ4', -INFO ) + RETURN + END IF + +* Executable statements + + IF ( NSHIFTS .LT. 2 ) THEN + RETURN + END IF + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + +* Shuffle shifts into pairs of real shifts and pairs +* of complex conjugate shifts assuming complex +* conjugate shifts are already adjacent to one +* another + + DO I = 1, NSHIFTS-2, 2 + IF( SI( I ).NE.-SI( I+1 ) ) THEN +* + SWAP = SR( I ) + SR( I ) = SR( I+1 ) + SR( I+1 ) = SR( I+2 ) + SR( I+2 ) = SWAP + + SWAP = SI( I ) + SI( I ) = SI( I+1 ) + SI( I+1 ) = SI( I+2 ) + SI( I+2 ) = SWAP + + SWAP = SS( I ) + SS( I ) = SS( I+1 ) + SS( I+1 ) = SS( I+2 ) + SS( I+2 ) = SWAP + END IF + END DO + +* NSHFTS is supposed to be even, but if it is odd, +* then simply reduce it by one. The shuffle above +* ensures that the dropped shift is real and that +* the remaining shifts are paired. + + NS = NSHIFTS-MOD( NSHIFTS, 2 ) + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL DLASET( 'FULL', NS+1, NS+1, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS, NS, ZERO, ONE, ZC, LDZC ) + + DO I = 1, NS, 2 +* Introduce the shift + CALL DLAQZ1( A( ILO, ILO ), LDA, B( ILO, ILO ), LDB, SR( I ), + $ SR( I+1 ), SI( I ), SS( I ), SS( I+1 ), V ) + + TEMP = V( 2 ) + CALL DLARTG( TEMP, V( 3 ), C1, S1, V( 2 ) ) + CALL DLARTG( V( 1 ), V( 2 ), C2, S2, TEMP ) + + CALL DROT( NS, A( ILO+1, ILO ), LDA, A( ILO+2, ILO ), LDA, C1, + $ S1 ) + CALL DROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C2, + $ S2 ) + CALL DROT( NS, B( ILO+1, ILO ), LDB, B( ILO+2, ILO ), LDB, C1, + $ S1 ) + CALL DROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C2, + $ S2 ) + CALL DROT( NS+1, QC( 1, 2 ), 1, QC( 1, 3 ), 1, C1, S1 ) + CALL DROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C2, S2 ) + +* Chase the shift down + DO J = 1, NS-1-I + + CALL DLAQZ2( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, ONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ ILO ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ ILO ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, SWIDTH, SWIDTH, ONE, Z( 1, ILO ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL DLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -2 + DO J = 0, NP-1 +* Move down the block with index k+i+j-1, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL DLAQZ2( .TRUE., .TRUE., K+I+J-1, ISTARTB, ISTOPB, + $ IHI, A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Z( 1, K ), + $ LDZ, ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL DLASET( 'FULL', NS, NS, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS+1, NS+1, ZERO, ONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS, 2 +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I-1, IHI-2 + CALL DLAQZ2( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, NS, NS, ONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ IHI-NS ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ IHI-NS ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, NS+1, NS+1, ONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlar1v.f b/lapack-netlib/SRC/dlar1v.f index 3fa7178cf1..df836c34db 100644 --- a/lapack-netlib/SRC/dlar1v.f +++ b/lapack-netlib/SRC/dlar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ SUBROUTINE DLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/dlar2v.f b/lapack-netlib/SRC/dlar2v.f index 32c77bf70e..c763e997ac 100644 --- a/lapack-netlib/SRC/dlar2v.f +++ b/lapack-netlib/SRC/dlar2v.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/dlarf.f b/lapack-netlib/SRC/dlarf.f index e99d0bb2a9..ed21638645 100644 --- a/lapack-netlib/SRC/dlarf.f +++ b/lapack-netlib/SRC/dlarf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarfb.f b/lapack-netlib/SRC/dlarfb.f index e636412134..a3fa083b43 100644 --- a/lapack-netlib/SRC/dlarfb.f +++ b/lapack-netlib/SRC/dlarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dlarfg.f b/lapack-netlib/SRC/dlarfg.f index be33f932ca..9bfb45a6b0 100644 --- a/lapack-netlib/SRC/dlarfg.f +++ b/lapack-netlib/SRC/dlarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dlarfgp.f b/lapack-netlib/SRC/dlarfgp.f index d040a8c7bc..69845056d4 100644 --- a/lapack-netlib/SRC/dlarfgp.f +++ b/lapack-netlib/SRC/dlarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dlarft.f b/lapack-netlib/SRC/dlarft.f index e69a6b792e..a8d9de61f1 100644 --- a/lapack-netlib/SRC/dlarft.f +++ b/lapack-netlib/SRC/dlarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/dlarfx.f b/lapack-netlib/SRC/dlarfx.f index a9e4496f99..e7665f9866 100644 --- a/lapack-netlib/SRC/dlarfx.f +++ b/lapack-netlib/SRC/dlarfx.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarfy.f b/lapack-netlib/SRC/dlarfy.f index 3000b38bc4..d0c3c8b8ac 100644 --- a/lapack-netlib/SRC/dlarfy.f +++ b/lapack-netlib/SRC/dlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlargv.f b/lapack-netlib/SRC/dlargv.f index f28bcecd3f..90a4f8d544 100644 --- a/lapack-netlib/SRC/dlargv.f +++ b/lapack-netlib/SRC/dlargv.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/dlarnv.f b/lapack-netlib/SRC/dlarnv.f index 02e62bc6ff..3557d215c1 100644 --- a/lapack-netlib/SRC/dlarnv.f +++ b/lapack-netlib/SRC/dlarnv.f @@ -79,8 +79,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -97,10 +95,9 @@ * ===================================================================== SUBROUTINE DLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -118,7 +115,7 @@ SUBROUTINE DLARNV( IDIST, ISEED, N, X ) INTEGER LV PARAMETER ( LV = 128 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IL2, IV diff --git a/lapack-netlib/SRC/dlarra.f b/lapack-netlib/SRC/dlarra.f index 7406a8f98c..2fb30cd762 100644 --- a/lapack-netlib/SRC/dlarra.f +++ b/lapack-netlib/SRC/dlarra.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/lapack-netlib/SRC/dlarrb.f b/lapack-netlib/SRC/dlarrb.f index ddf3888b9c..839b1d41ba 100644 --- a/lapack-netlib/SRC/dlarrb.f +++ b/lapack-netlib/SRC/dlarrb.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -196,10 +194,9 @@ SUBROUTINE DLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/lapack-netlib/SRC/dlarrc.f b/lapack-netlib/SRC/dlarrc.f index 093bfa02c8..55a17626ac 100644 --- a/lapack-netlib/SRC/dlarrc.f +++ b/lapack-netlib/SRC/dlarrc.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -137,10 +135,9 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBT @@ -246,6 +243,6 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, RETURN * -* end of DLARRC +* End of DLARRC * END diff --git a/lapack-netlib/SRC/dlarrd.f b/lapack-netlib/SRC/dlarrd.f index 5cc1052617..08dfd02c30 100644 --- a/lapack-netlib/SRC/dlarrd.f +++ b/lapack-netlib/SRC/dlarrd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== @@ -329,10 +327,9 @@ SUBROUTINE DLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/dlarre.f b/lapack-netlib/SRC/dlarre.f index ce55442e2e..afbfe6379c 100644 --- a/lapack-netlib/SRC/dlarre.f +++ b/lapack-netlib/SRC/dlarre.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -305,10 +303,9 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER RANGE @@ -899,6 +896,6 @@ SUBROUTINE DLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, RETURN * -* end of DLARRE +* End of DLARRE * END diff --git a/lapack-netlib/SRC/dlarrf.f b/lapack-netlib/SRC/dlarrf.f index f814ee1b4d..a496e1b2d8 100644 --- a/lapack-netlib/SRC/dlarrf.f +++ b/lapack-netlib/SRC/dlarrf.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -193,10 +191,9 @@ SUBROUTINE DLARRF( N, D, L, LD, CLSTRT, CLEND, $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/lapack-netlib/SRC/dlarrj.f b/lapack-netlib/SRC/dlarrj.f index a4bfb210ce..f6abd84e7f 100644 --- a/lapack-netlib/SRC/dlarrj.f +++ b/lapack-netlib/SRC/dlarrj.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -168,10 +166,9 @@ SUBROUTINE DLARRJ( N, D, E2, IFIRST, ILAST, $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/lapack-netlib/SRC/dlarrk.f b/lapack-netlib/SRC/dlarrk.f index e92fe727e6..6c56a9baba 100644 --- a/lapack-netlib/SRC/dlarrk.f +++ b/lapack-netlib/SRC/dlarrk.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/lapack-netlib/SRC/dlarrr.f b/lapack-netlib/SRC/dlarrr.f index 7aa22476b1..3bd6beb308 100644 --- a/lapack-netlib/SRC/dlarrr.f +++ b/lapack-netlib/SRC/dlarrr.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -94,10 +92,9 @@ * ===================================================================== SUBROUTINE DLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, INFO @@ -206,6 +203,6 @@ SUBROUTINE DLARRR( N, D, E, INFO ) * RETURN * -* END OF DLARRR +* End of DLARRR * END diff --git a/lapack-netlib/SRC/dlarrv.f b/lapack-netlib/SRC/dlarrv.f index a1c6e9c9d7..2994303612 100644 --- a/lapack-netlib/SRC/dlarrv.f +++ b/lapack-netlib/SRC/dlarrv.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -292,10 +290,9 @@ SUBROUTINE DLARRV( N, VL, VU, D, L, PIVMIN, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/dlarscl2.f b/lapack-netlib/SRC/dlarscl2.f index 1b5ea53841..2468e2702d 100644 --- a/lapack-netlib/SRC/dlarscl2.f +++ b/lapack-netlib/SRC/dlarscl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/dlartg.f b/lapack-netlib/SRC/dlartg.f deleted file mode 100644 index dc49986a0f..0000000000 --- a/lapack-netlib/SRC/dlartg.f +++ /dev/null @@ -1,204 +0,0 @@ -*> \brief \b DLARTG generates a plane rotation with real cosine and real sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download DLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE DLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* DOUBLE PRECISION CS, F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> DLARTG generate a plane rotation so that -*> -*> [ CS SN ] . [ F ] = [ R ] where CS**2 + SN**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a slower, more accurate version of the BLAS1 routine DROTG, -*> with the following other differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any -*> floating point operations (saves work in DBDSQR when -*> there are zeros on the diagonal). -*> -*> If F exceeds G in magnitude, CS will be positive. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is DOUBLE PRECISION -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is DOUBLE PRECISION -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is DOUBLE PRECISION -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is DOUBLE PRECISION -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is DOUBLE PRECISION -*> The nonzero component of the rotated vector. -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE DLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - DOUBLE PRECISION CS, F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D0 ) - DOUBLE PRECISION ONE - PARAMETER ( ONE = 1.0D0 ) - DOUBLE PRECISION TWO - PARAMETER ( TWO = 2.0D0 ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - DOUBLE PRECISION EPS, F1, G1, SAFMIN, SAFMN2, SAFMX2, SCALE -* .. -* .. External Functions .. - DOUBLE PRECISION DLAMCH - EXTERNAL DLAMCH -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, INT, LOG, MAX, SQRT -* .. -* .. Save statement .. -* SAVE FIRST, SAFMX2, SAFMIN, SAFMN2 -* .. -* .. Data statements .. -* DATA FIRST / .TRUE. / -* .. -* .. Executable Statements .. -* -* IF( FIRST ) THEN - SAFMIN = DLAMCH( 'S' ) - EPS = DLAMCH( 'E' ) - SAFMN2 = DLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( DLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 -* FIRST = .FALSE. -* END IF - IF( G.EQ.ZERO ) THEN - CS = ONE - SN = ZERO - R = F - ELSE IF( F.EQ.ZERO ) THEN - CS = ZERO - SN = ONE - R = G - ELSE - F1 = F - G1 = G - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 ) THEN - COUNT = 0 - 10 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMN2 - G1 = G1*SAFMN2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 20 I = 1, COUNT - R = R*SAFMX2 - 20 CONTINUE - ELSE IF( SCALE.LE.SAFMN2 ) THEN - COUNT = 0 - 30 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMX2 - G1 = G1*SAFMX2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.LE.SAFMN2 ) - $ GO TO 30 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 40 I = 1, COUNT - R = R*SAFMN2 - 40 CONTINUE - ELSE - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - END IF - IF( ABS( F ).GT.ABS( G ) .AND. CS.LT.ZERO ) THEN - CS = -CS - SN = -SN - R = -R - END IF - END IF - RETURN -* -* End of DLARTG -* - END diff --git a/lapack-netlib/SRC/dlartg.f90 b/lapack-netlib/SRC/dlartg.f90 new file mode 100644 index 0000000000..ef8c6e3865 --- /dev/null +++ b/lapack-netlib/SRC/dlartg.f90 @@ -0,0 +1,162 @@ +!> \brief \b DLARTG generates a plane rotation with real cosine and real sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE DLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C, F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> DLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -S C ] [ G ] [ 0 ] +!> +!> where C**2 + S**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> R = sign(F) * sqrt(F**2 + G**2) +!> C = F / R +!> S = G / R +!> Hence C >= 0. The algorithm used to compute these quantities +!> incorporates scaling to avoid overflow or underflow in computing the +!> square root of the sum of squares. +!> +!> This version is discontinuous in R at F = 0 but it returns the same +!> C and S as ZLARTG for complex inputs (F,0) and (G,0). +!> +!> This is a more accurate version of the BLAS1 routine DROTG, +!> with the following other differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0 and (G .ne. 0), then C=0 and S=sign(1,G) without doing any +!> floating point operations (saves work in DBDSQR when +!> there are zeros on the diagonal). +!> +!> If F exceeds G in magnitude, C will be positive. +!> +!> Below, wp=>dp stands for double precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is REAL(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is REAL(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is REAL(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is REAL(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date July 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine DLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, half=>dhalf, one=>done, & + rtmin=>drtmin, rtmax=>drtmax, safmin=>dsafmin, safmax=>dsafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) :: c, f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, fs, g1, gs, p, u, uu +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, sign, sqrt +! .. +! .. Executable Statements .. +! + f1 = abs( f ) + g1 = abs( g ) + if( g == zero ) then + c = one + s = zero + r = f + else if( f == zero ) then + c = zero + s = sign( one, g ) + r = g1 + else if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then + d = sqrt( f*f + g*g ) + p = one / d + c = f1*p + s = g*sign( p, f ) + r = sign( d, f ) + else + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + fs = f*uu + gs = g*uu + d = sqrt( fs*fs + gs*gs ) + p = one / d + c = abs( fs )*p + s = gs*sign( p, f ) + r = sign( d, f )*u + end if + return +end subroutine diff --git a/lapack-netlib/SRC/dlartgp.f b/lapack-netlib/SRC/dlartgp.f index 334e416e8c..8aeb2edbb8 100644 --- a/lapack-netlib/SRC/dlartgp.f +++ b/lapack-netlib/SRC/dlartgp.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CS, F, G, R, SN diff --git a/lapack-netlib/SRC/dlartgs.f b/lapack-netlib/SRC/dlartgs.f index 29a9eb07d1..2310df87fa 100644 --- a/lapack-netlib/SRC/dlartgs.f +++ b/lapack-netlib/SRC/dlartgs.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. DOUBLE PRECISION CS, SIGMA, SN, X, Y diff --git a/lapack-netlib/SRC/dlartv.f b/lapack-netlib/SRC/dlartv.f index dca1cb7dcc..85f5136cd5 100644 --- a/lapack-netlib/SRC/dlartv.f +++ b/lapack-netlib/SRC/dlartv.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/dlaruv.f b/lapack-netlib/SRC/dlaruv.f index a903c186cb..0f5c9541de 100644 --- a/lapack-netlib/SRC/dlaruv.f +++ b/lapack-netlib/SRC/dlaruv.f @@ -72,8 +72,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -95,10 +93,9 @@ * ===================================================================== SUBROUTINE DLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/SRC/dlarz.f b/lapack-netlib/SRC/dlarz.f index 73dc3f50df..2c628a7f51 100644 --- a/lapack-netlib/SRC/dlarz.f +++ b/lapack-netlib/SRC/dlarz.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarzb.f b/lapack-netlib/SRC/dlarzb.f index e34eef937f..d7b8fd2c19 100644 --- a/lapack-netlib/SRC/dlarzb.f +++ b/lapack-netlib/SRC/dlarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dlarzt.f b/lapack-netlib/SRC/dlarzt.f index 5925569108..f24b690a40 100644 --- a/lapack-netlib/SRC/dlarzt.f +++ b/lapack-netlib/SRC/dlarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/dlas2.f b/lapack-netlib/SRC/dlas2.f index 83873bc612..ea929e86f7 100644 --- a/lapack-netlib/SRC/dlas2.f +++ b/lapack-netlib/SRC/dlas2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION F, G, H, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/dlascl.f b/lapack-netlib/SRC/dlascl.f index 03e1000a87..05ad1c4f3c 100644 --- a/lapack-netlib/SRC/dlascl.f +++ b/lapack-netlib/SRC/dlascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/dlascl2.f b/lapack-netlib/SRC/dlascl2.f index ae88075305..901e43c494 100644 --- a/lapack-netlib/SRC/dlascl2.f +++ b/lapack-netlib/SRC/dlascl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/dlasd0.f b/lapack-netlib/SRC/dlasd0.f index 522ca9adc9..215dc87171 100644 --- a/lapack-netlib/SRC/dlasd0.f +++ b/lapack-netlib/SRC/dlasd0.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -150,10 +148,9 @@ SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/dlasd1.f b/lapack-netlib/SRC/dlasd1.f index fe8aad9597..f17bf94853 100644 --- a/lapack-netlib/SRC/dlasd1.f +++ b/lapack-netlib/SRC/dlasd1.f @@ -190,8 +190,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/lapack-netlib/SRC/dlasd2.f b/lapack-netlib/SRC/dlasd2.f index 87a1543423..378faa6813 100644 --- a/lapack-netlib/SRC/dlasd2.f +++ b/lapack-netlib/SRC/dlasd2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ SUBROUTINE DLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/lapack-netlib/SRC/dlasd3.f b/lapack-netlib/SRC/dlasd3.f index 7662be3e7c..df939efc54 100644 --- a/lapack-netlib/SRC/dlasd3.f +++ b/lapack-netlib/SRC/dlasd3.f @@ -209,8 +209,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -224,10 +222,9 @@ SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/lapack-netlib/SRC/dlasd4.f b/lapack-netlib/SRC/dlasd4.f index 8b4a8762c8..acfd896b3b 100644 --- a/lapack-netlib/SRC/dlasd4.f +++ b/lapack-netlib/SRC/dlasd4.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/dlasd5.f b/lapack-netlib/SRC/dlasd5.f index 4896ba6b97..645c2fdc3e 100644 --- a/lapack-netlib/SRC/dlasd5.f +++ b/lapack-netlib/SRC/dlasd5.f @@ -103,8 +103,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -116,10 +114,9 @@ * ===================================================================== SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I diff --git a/lapack-netlib/SRC/dlasd6.f b/lapack-netlib/SRC/dlasd6.f index 5cab78a070..51e67588dd 100644 --- a/lapack-netlib/SRC/dlasd6.f +++ b/lapack-netlib/SRC/dlasd6.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -313,10 +311,9 @@ SUBROUTINE DLASD6( ICOMPQ, NL, NR, SQRE, D, VF, VL, ALPHA, BETA, $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/dlasd7.f b/lapack-netlib/SRC/dlasd7.f index 66f665cf88..ff9ba4c36a 100644 --- a/lapack-netlib/SRC/dlasd7.f +++ b/lapack-netlib/SRC/dlasd7.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -280,10 +278,9 @@ SUBROUTINE DLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW, VL, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/dlasd8.f b/lapack-netlib/SRC/dlasd8.f index fc5c48c528..a769bdb22e 100644 --- a/lapack-netlib/SRC/dlasd8.f +++ b/lapack-netlib/SRC/dlasd8.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/lapack-netlib/SRC/dlasda.f b/lapack-netlib/SRC/dlasda.f index f41a108b80..3e169a4edb 100644 --- a/lapack-netlib/SRC/dlasda.f +++ b/lapack-netlib/SRC/dlasda.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -273,10 +271,9 @@ SUBROUTINE DLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/dlasdq.f b/lapack-netlib/SRC/dlasdq.f index e7d3575a98..0c39b24f0d 100644 --- a/lapack-netlib/SRC/dlasdq.f +++ b/lapack-netlib/SRC/dlasdq.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -211,10 +209,9 @@ SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasdt.f b/lapack-netlib/SRC/dlasdt.f index 37da2d035e..0d9999ea62 100644 --- a/lapack-netlib/SRC/dlasdt.f +++ b/lapack-netlib/SRC/dlasdt.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -105,10 +103,9 @@ * ===================================================================== SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/lapack-netlib/SRC/dlaset.f b/lapack-netlib/SRC/dlaset.f index 3a0c469a3c..625c757b6b 100644 --- a/lapack-netlib/SRC/dlaset.f +++ b/lapack-netlib/SRC/dlaset.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasq1.f b/lapack-netlib/SRC/dlasq1.f index 468676eebd..27fa30736e 100644 --- a/lapack-netlib/SRC/dlasq1.f +++ b/lapack-netlib/SRC/dlasq1.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dlasq2.f b/lapack-netlib/SRC/dlasq2.f index 27eb1f79ad..608ca7a619 100644 --- a/lapack-netlib/SRC/dlasq2.f +++ b/lapack-netlib/SRC/dlasq2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -112,10 +110,9 @@ * ===================================================================== SUBROUTINE DLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N @@ -275,8 +272,7 @@ SUBROUTINE DLASQ2( N, Z, INFO ) * * Check whether the machine is IEEE conformable. * - IEEE = ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. - $ ILAENV( 11, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 + IEEE = ( ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 ) * * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * diff --git a/lapack-netlib/SRC/dlasq3.f b/lapack-netlib/SRC/dlasq3.f index c095bdbbb5..e4bdafe06e 100644 --- a/lapack-netlib/SRC/dlasq3.f +++ b/lapack-netlib/SRC/dlasq3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -182,10 +180,9 @@ SUBROUTINE DLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/dlasq4.f b/lapack-netlib/SRC/dlasq4.f index d4ddbbc7b2..2652ddb2ba 100644 --- a/lapack-netlib/SRC/dlasq4.f +++ b/lapack-netlib/SRC/dlasq4.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/lapack-netlib/SRC/dlasq5.f b/lapack-netlib/SRC/dlasq5.f index 3812c879fa..5679ab60a5 100644 --- a/lapack-netlib/SRC/dlasq5.f +++ b/lapack-netlib/SRC/dlasq5.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/dlasq6.f b/lapack-netlib/SRC/dlasq6.f index d871386bdb..9218b5060e 100644 --- a/lapack-netlib/SRC/dlasq6.f +++ b/lapack-netlib/SRC/dlasq6.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/lapack-netlib/SRC/dlasr.f b/lapack-netlib/SRC/dlasr.f index f707970e49..dd0cedd85e 100644 --- a/lapack-netlib/SRC/dlasr.f +++ b/lapack-netlib/SRC/dlasr.f @@ -192,17 +192,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/dlasrt.f b/lapack-netlib/SRC/dlasrt.f index 4705311d78..d789239e3d 100644 --- a/lapack-netlib/SRC/dlasrt.f +++ b/lapack-netlib/SRC/dlasrt.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ID diff --git a/lapack-netlib/SRC/dlassq.f b/lapack-netlib/SRC/dlassq.f deleted file mode 100644 index 5922360f99..0000000000 --- a/lapack-netlib/SRC/dlassq.f +++ /dev/null @@ -1,155 +0,0 @@ -*> \brief \b DLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download DLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. -* DOUBLE PRECISION X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> DLASSQ returns the values scl and smsq such that -*> -*> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is -*> assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( x( i ) ) ). -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ and -*> scl and smsq are overwritten on SCALE and SUMSQ respectively. -*> -*> The routine makes only one pass through the vector x. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is DOUBLE PRECISION array, dimension (1+(N-1)*INCX) -*> The vector for which a scaled sum of squares is computed. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is DOUBLE PRECISION -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with scl , the scaling factor -*> for the sum of squares. -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is DOUBLE PRECISION -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with smsq , the basic sum of -*> squares from which scl has been factored out. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. - DOUBLE PRECISION X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - DOUBLE PRECISION ABSXI -* .. -* .. External Functions .. - LOGICAL DISNAN - EXTERNAL DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - ABSXI = ABS( X( IX ) ) - IF( ABSXI.GT.ZERO.OR.DISNAN( ABSXI ) ) THEN - IF( SCALE.LT.ABSXI ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / ABSXI )**2 - SCALE = ABSXI - ELSE - SUMSQ = SUMSQ + ( ABSXI / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF - RETURN -* -* End of DLASSQ -* - END diff --git a/lapack-netlib/SRC/dlassq.f90 b/lapack-netlib/SRC/dlassq.f90 new file mode 100644 index 0000000000..fddd1bf38f --- /dev/null +++ b/lapack-netlib/SRC/dlassq.f90 @@ -0,0 +1,253 @@ +!> \brief \b DLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download DLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! DOUBLE PRECISION SCALE, SUMSQ +! .. +! .. Array Arguments .. +! DOUBLE PRECISION X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> DLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is DOUBLE PRECISION array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is DOUBLE PRECISION +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is DOUBLE PRECISION +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine DLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, & + sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + real(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(x(ix)) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/dlasv2.f b/lapack-netlib/SRC/dlasv2.f index 9371d6d3b2..64a06dee1a 100644 --- a/lapack-netlib/SRC/dlasv2.f +++ b/lapack-netlib/SRC/dlasv2.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/dlaswlq.f b/lapack-netlib/SRC/dlaswlq.f index 619a1f1a28..fb8857145f 100644 --- a/lapack-netlib/SRC/dlaswlq.f +++ b/lapack-netlib/SRC/dlaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LT.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/dlaswp.f b/lapack-netlib/SRC/dlaswp.f index 202fd8df1b..b35729a205 100644 --- a/lapack-netlib/SRC/dlaswp.f +++ b/lapack-netlib/SRC/dlaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/dlasy2.f b/lapack-netlib/SRC/dlasy2.f index 2afad2be08..18245202cc 100644 --- a/lapack-netlib/SRC/dlasy2.f +++ b/lapack-netlib/SRC/dlasy2.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/lapack-netlib/SRC/dlasyf.f b/lapack-netlib/SRC/dlasyf.f index de705e4ab0..3064f5e1e4 100644 --- a/lapack-netlib/SRC/dlasyf.f +++ b/lapack-netlib/SRC/dlasyf.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -176,10 +174,9 @@ * ===================================================================== SUBROUTINE DLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasyf_aa.f b/lapack-netlib/SRC/dlasyf_aa.f index 793537e04e..f6b01ea6c0 100644 --- a/lapack-netlib/SRC/dlasyf_aa.f +++ b/lapack-netlib/SRC/dlasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dlasyf_rk.f b/lapack-netlib/SRC/dlasyf_rk.f index d581eeedc4..1a0117738f 100644 --- a/lapack-netlib/SRC/dlasyf_rk.f +++ b/lapack-netlib/SRC/dlasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE DLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasyf_rook.f b/lapack-netlib/SRC/dlasyf_rook.f index 5570321045..03bcd91a34 100644 --- a/lapack-netlib/SRC/dlasyf_rook.f +++ b/lapack-netlib/SRC/dlasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE DLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlat2s.f b/lapack-netlib/SRC/dlat2s.f index fa6cc5d57b..3d00fe0a37 100644 --- a/lapack-netlib/SRC/dlat2s.f +++ b/lapack-netlib/SRC/dlat2s.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlatbs.f b/lapack-netlib/SRC/dlatbs.f index 1489d53d06..4b71d53994 100644 --- a/lapack-netlib/SRC/dlatbs.f +++ b/lapack-netlib/SRC/dlatbs.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -242,10 +240,9 @@ SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatdf.f b/lapack-netlib/SRC/dlatdf.f index 8001e08302..bb285c4956 100644 --- a/lapack-netlib/SRC/dlatdf.f +++ b/lapack-netlib/SRC/dlatdf.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -171,10 +169,9 @@ SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/dlatps.f b/lapack-netlib/SRC/dlatps.f index c340578f74..0aead85563 100644 --- a/lapack-netlib/SRC/dlatps.f +++ b/lapack-netlib/SRC/dlatps.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -229,10 +227,9 @@ SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatrd.f b/lapack-netlib/SRC/dlatrd.f index a1df43e48a..010a85a212 100644 --- a/lapack-netlib/SRC/dlatrd.f +++ b/lapack-netlib/SRC/dlatrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlatrs.f b/lapack-netlib/SRC/dlatrs.f index 5ad5f66c55..43f92911d7 100644 --- a/lapack-netlib/SRC/dlatrs.f +++ b/lapack-netlib/SRC/dlatrs.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -238,10 +236,9 @@ SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatrz.f b/lapack-netlib/SRC/dlatrz.f index 8fbe87585c..42b3171313 100644 --- a/lapack-netlib/SRC/dlatrz.f +++ b/lapack-netlib/SRC/dlatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/dlatsqr.f b/lapack-netlib/SRC/dlatsqr.f index 598d2938e7..f5cbb76bb0 100644 --- a/lapack-netlib/SRC/dlatsqr.f +++ b/lapack-netlib/SRC/dlatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -57,7 +57,7 @@ *> \verbatim *> MB is INTEGER *> The row block size to be used in the blocked QR. -*> MB > N. +*> MB > 0. *> \endverbatim *> *> \param[in] NB @@ -164,10 +164,9 @@ SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/dlauu2.f b/lapack-netlib/SRC/dlauu2.f index 59cff25614..a026d96de1 100644 --- a/lapack-netlib/SRC/dlauu2.f +++ b/lapack-netlib/SRC/dlauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlauum.f b/lapack-netlib/SRC/dlauum.f index 31b1ddd06f..b832eaa869 100644 --- a/lapack-netlib/SRC/dlauum.f +++ b/lapack-netlib/SRC/dlauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dopgtr.f b/lapack-netlib/SRC/dopgtr.f index 0e061b219f..214030ffbe 100644 --- a/lapack-netlib/SRC/dopgtr.f +++ b/lapack-netlib/SRC/dopgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dopmtr.f b/lapack-netlib/SRC/dopmtr.f index dd9286b351..c18074deca 100644 --- a/lapack-netlib/SRC/dopmtr.f +++ b/lapack-netlib/SRC/dopmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dorbdb.f b/lapack-netlib/SRC/dorbdb.f index d616579945..3edfda6b84 100644 --- a/lapack-netlib/SRC/dorbdb.f +++ b/lapack-netlib/SRC/dorbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ SUBROUTINE DORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/dorbdb1.f b/lapack-netlib/SRC/dorbdb1.f index 675028acd3..dae18f5df5 100644 --- a/lapack-netlib/SRC/dorbdb1.f +++ b/lapack-netlib/SRC/dorbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE DORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb2.f b/lapack-netlib/SRC/dorbdb2.f index ea43d4fcb7..64e4645bcc 100644 --- a/lapack-netlib/SRC/dorbdb2.f +++ b/lapack-netlib/SRC/dorbdb2.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb3.f b/lapack-netlib/SRC/dorbdb3.f index f5667b43b4..7b37279560 100644 --- a/lapack-netlib/SRC/dorbdb3.f +++ b/lapack-netlib/SRC/dorbdb3.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb4.f b/lapack-netlib/SRC/dorbdb4.f index ff141b99fa..a09568415d 100644 --- a/lapack-netlib/SRC/dorbdb4.f +++ b/lapack-netlib/SRC/dorbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb5.f b/lapack-netlib/SRC/dorbdb5.f index 313c6d5ed6..6e057a05f8 100644 --- a/lapack-netlib/SRC/dorbdb5.f +++ b/lapack-netlib/SRC/dorbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/dorbdb6.f b/lapack-netlib/SRC/dorbdb6.f index c92c9fede4..fac52f760d 100644 --- a/lapack-netlib/SRC/dorbdb6.f +++ b/lapack-netlib/SRC/dorbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/dorcsd.f b/lapack-netlib/SRC/dorcsd.f index f0284ce6eb..86463bd9b3 100644 --- a/lapack-netlib/SRC/dorcsd.f +++ b/lapack-netlib/SRC/dorcsd.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -300,10 +298,9 @@ RECURSIVE SUBROUTINE DORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/dorcsd2by1.f b/lapack-netlib/SRC/dorcsd2by1.f index 4f98800170..06bf53db16 100644 --- a/lapack-netlib/SRC/dorcsd2by1.f +++ b/lapack-netlib/SRC/dorcsd2by1.f @@ -224,8 +224,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -236,7 +234,6 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * -- LAPACK computational routine (3.5.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -674,6 +671,9 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL DCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL DCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -685,7 +685,6 @@ SUBROUTINE DORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL DCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/dorg2l.f b/lapack-netlib/SRC/dorg2l.f index 36ff4e5d4b..0a42d4cf5a 100644 --- a/lapack-netlib/SRC/dorg2l.f +++ b/lapack-netlib/SRC/dorg2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorg2r.f b/lapack-netlib/SRC/dorg2r.f index 4b71011a9f..c64ad4b0ac 100644 --- a/lapack-netlib/SRC/dorg2r.f +++ b/lapack-netlib/SRC/dorg2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorgbr.f b/lapack-netlib/SRC/dorgbr.f index 6868fc38d7..1b242ff97f 100644 --- a/lapack-netlib/SRC/dorgbr.f +++ b/lapack-netlib/SRC/dorgbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/dorghr.f b/lapack-netlib/SRC/dorghr.f index 7f60c68540..2feb39b5aa 100644 --- a/lapack-netlib/SRC/dorghr.f +++ b/lapack-netlib/SRC/dorghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dorgl2.f b/lapack-netlib/SRC/dorgl2.f index 5d8985d758..ce1d2c6750 100644 --- a/lapack-netlib/SRC/dorgl2.f +++ b/lapack-netlib/SRC/dorgl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorglq.f b/lapack-netlib/SRC/dorglq.f index 912b5de84e..8c37c18b75 100644 --- a/lapack-netlib/SRC/dorglq.f +++ b/lapack-netlib/SRC/dorglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgql.f b/lapack-netlib/SRC/dorgql.f index ea12be91b1..45e5bf19f1 100644 --- a/lapack-netlib/SRC/dorgql.f +++ b/lapack-netlib/SRC/dorgql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgqr.f b/lapack-netlib/SRC/dorgqr.f index 628eeacba7..a41ce7ed56 100644 --- a/lapack-netlib/SRC/dorgqr.f +++ b/lapack-netlib/SRC/dorgqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgr2.f b/lapack-netlib/SRC/dorgr2.f index 7c5dce1d7a..5244c85fd0 100644 --- a/lapack-netlib/SRC/dorgr2.f +++ b/lapack-netlib/SRC/dorgr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorgrq.f b/lapack-netlib/SRC/dorgrq.f index b76fb37ed7..7e09f94e5b 100644 --- a/lapack-netlib/SRC/dorgrq.f +++ b/lapack-netlib/SRC/dorgrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgtr.f b/lapack-netlib/SRC/dorgtr.f index 72623eac06..0a0ab15a78 100644 --- a/lapack-netlib/SRC/dorgtr.f +++ b/lapack-netlib/SRC/dorgtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dorgtsqr.f b/lapack-netlib/SRC/dorgtsqr.f index 85b05b6b50..34d96b238d 100644 --- a/lapack-netlib/SRC/dorgtsqr.f +++ b/lapack-netlib/SRC/dorgtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -155,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -175,10 +174,9 @@ SUBROUTINE DORGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/dorhr_col.f b/lapack-netlib/SRC/dorhr_col.f index b5a65973d9..a9363c1a5a 100644 --- a/lapack-netlib/SRC/dorhr_col.f +++ b/lapack-netlib/SRC/dorhr_col.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in DGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/dorm22.f b/lapack-netlib/SRC/dorm22.f index aac47109df..7a25660404 100644 --- a/lapack-netlib/SRC/dorm22.f +++ b/lapack-netlib/SRC/dorm22.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE DORM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dorm2l.f b/lapack-netlib/SRC/dorm2l.f index 1014cb2378..c99039c541 100644 --- a/lapack-netlib/SRC/dorm2l.f +++ b/lapack-netlib/SRC/dorm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dorm2r.f b/lapack-netlib/SRC/dorm2r.f index 632b70e740..ac88eec8dc 100644 --- a/lapack-netlib/SRC/dorm2r.f +++ b/lapack-netlib/SRC/dorm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormbr.f b/lapack-netlib/SRC/dormbr.f index f035d0ae66..86abb10072 100644 --- a/lapack-netlib/SRC/dormbr.f +++ b/lapack-netlib/SRC/dormbr.f @@ -187,18 +187,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -240,10 +237,10 @@ SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -263,7 +260,7 @@ SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -285,7 +282,7 @@ SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dormhr.f b/lapack-netlib/SRC/dormhr.f index d1e214e0f2..1cf1731743 100644 --- a/lapack-netlib/SRC/dormhr.f +++ b/lapack-netlib/SRC/dormhr.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -221,10 +218,10 @@ SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -243,7 +240,7 @@ SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -253,7 +250,7 @@ SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, ELSE NB = ILAENV( 1, 'DORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dorml2.f b/lapack-netlib/SRC/dorml2.f index 2c55c7f1fd..a9ddd460d8 100644 --- a/lapack-netlib/SRC/dorml2.f +++ b/lapack-netlib/SRC/dorml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormlq.f b/lapack-netlib/SRC/dormlq.f index bb5469d273..ef039285ab 100644 --- a/lapack-netlib/SRC/dormlq.f +++ b/lapack-netlib/SRC/dormlq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -217,10 +214,10 @@ SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -246,7 +243,7 @@ SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'DORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -267,7 +264,7 @@ SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormql.f b/lapack-netlib/SRC/dormql.f index 7d2b5d6c32..7c9f189e0d 100644 --- a/lapack-netlib/SRC/dormql.f +++ b/lapack-netlib/SRC/dormql.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -269,7 +266,7 @@ SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormqr.f b/lapack-netlib/SRC/dormqr.f index 7f2ebb9ace..4d0bae3a5f 100644 --- a/lapack-netlib/SRC/dormqr.f +++ b/lapack-netlib/SRC/dormqr.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -216,10 +213,10 @@ SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -235,7 +232,7 @@ SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -245,7 +242,7 @@ SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'DORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -266,7 +263,7 @@ SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormr2.f b/lapack-netlib/SRC/dormr2.f index 129ee1b494..8f15c6eb4d 100644 --- a/lapack-netlib/SRC/dormr2.f +++ b/lapack-netlib/SRC/dormr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormr3.f b/lapack-netlib/SRC/dormr3.f index 5f20db724c..9eaef200ae 100644 --- a/lapack-netlib/SRC/dormr3.f +++ b/lapack-netlib/SRC/dormr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormrq.f b/lapack-netlib/SRC/dormrq.f index 421bd104bf..43422f9583 100644 --- a/lapack-netlib/SRC/dormrq.f +++ b/lapack-netlib/SRC/dormrq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -270,7 +267,7 @@ SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormrz.f b/lapack-netlib/SRC/dormrz.f index 8e1bd56ccc..0dea1b5ff1 100644 --- a/lapack-netlib/SRC/dormrz.f +++ b/lapack-netlib/SRC/dormrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -294,7 +291,7 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormtr.f b/lapack-netlib/SRC/dormtr.f index d2443c1dac..1f664d63cc 100644 --- a/lapack-netlib/SRC/dormtr.f +++ b/lapack-netlib/SRC/dormtr.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -214,10 +211,10 @@ SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -234,7 +231,7 @@ SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -256,7 +253,7 @@ SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dpbcon.f b/lapack-netlib/SRC/dpbcon.f index 41d43dc492..27ea5e234f 100644 --- a/lapack-netlib/SRC/dpbcon.f +++ b/lapack-netlib/SRC/dpbcon.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbequ.f b/lapack-netlib/SRC/dpbequ.f index ec5d4eb766..01c2cd0886 100644 --- a/lapack-netlib/SRC/dpbequ.f +++ b/lapack-netlib/SRC/dpbequ.f @@ -122,17 +122,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbrfs.f b/lapack-netlib/SRC/dpbrfs.f index 6bc522fa8d..d7a854f02d 100644 --- a/lapack-netlib/SRC/dpbrfs.f +++ b/lapack-netlib/SRC/dpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbstf.f b/lapack-netlib/SRC/dpbstf.f index c104ddbeab..61068d9cd8 100644 --- a/lapack-netlib/SRC/dpbstf.f +++ b/lapack-netlib/SRC/dpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -152,10 +150,9 @@ * ===================================================================== SUBROUTINE DPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbsv.f b/lapack-netlib/SRC/dpbsv.f index 535a2d40ec..a52e783099 100644 --- a/lapack-netlib/SRC/dpbsv.f +++ b/lapack-netlib/SRC/dpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbsvx.f b/lapack-netlib/SRC/dpbsvx.f index b194d26a45..1bf526fc7f 100644 --- a/lapack-netlib/SRC/dpbsvx.f +++ b/lapack-netlib/SRC/dpbsvx.f @@ -302,8 +302,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -343,10 +341,9 @@ SUBROUTINE DPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpbtf2.f b/lapack-netlib/SRC/dpbtf2.f index fd385322b1..5346292944 100644 --- a/lapack-netlib/SRC/dpbtf2.f +++ b/lapack-netlib/SRC/dpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbtrf.f b/lapack-netlib/SRC/dpbtrf.f index 269e973628..8256f8938d 100644 --- a/lapack-netlib/SRC/dpbtrf.f +++ b/lapack-netlib/SRC/dpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbtrs.f b/lapack-netlib/SRC/dpbtrs.f index 08e437399c..134b3b1d5c 100644 --- a/lapack-netlib/SRC/dpbtrs.f +++ b/lapack-netlib/SRC/dpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpftrf.f b/lapack-netlib/SRC/dpftrf.f index b460f2a5da..980debaf24 100644 --- a/lapack-netlib/SRC/dpftrf.f +++ b/lapack-netlib/SRC/dpftrf.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpftri.f b/lapack-netlib/SRC/dpftri.f index adbbfa8ad5..dca45d32cd 100644 --- a/lapack-netlib/SRC/dpftri.f +++ b/lapack-netlib/SRC/dpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpftrs.f b/lapack-netlib/SRC/dpftrs.f index 9c325064ea..adbe677a4a 100644 --- a/lapack-netlib/SRC/dpftrs.f +++ b/lapack-netlib/SRC/dpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpocon.f b/lapack-netlib/SRC/dpocon.f index 20e9aff6a0..4cdc010da2 100644 --- a/lapack-netlib/SRC/dpocon.f +++ b/lapack-netlib/SRC/dpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpoequ.f b/lapack-netlib/SRC/dpoequ.f index eb150713dc..c6223a6e51 100644 --- a/lapack-netlib/SRC/dpoequ.f +++ b/lapack-netlib/SRC/dpoequ.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dpoequb.f b/lapack-netlib/SRC/dpoequb.f index fbcc6fe3e4..0706834a10 100644 --- a/lapack-netlib/SRC/dpoequb.f +++ b/lapack-netlib/SRC/dpoequb.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dporfs.f b/lapack-netlib/SRC/dporfs.f index 8fc74fde14..4b4a209373 100644 --- a/lapack-netlib/SRC/dporfs.f +++ b/lapack-netlib/SRC/dporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dporfsx.f b/lapack-netlib/SRC/dporfsx.f index 67cca9ccf3..a7937f0dce 100644 --- a/lapack-netlib/SRC/dporfsx.f +++ b/lapack-netlib/SRC/dporfsx.f @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -394,10 +392,9 @@ SUBROUTINE DPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, B, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/dposv.f b/lapack-netlib/SRC/dposv.f index ab8f00775c..ee2988e6fd 100644 --- a/lapack-netlib/SRC/dposv.f +++ b/lapack-netlib/SRC/dposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOsolve * * ===================================================================== SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dposvx.f b/lapack-netlib/SRC/dposvx.f index cf33c96a31..4a0b9d605f 100644 --- a/lapack-netlib/SRC/dposvx.f +++ b/lapack-netlib/SRC/dposvx.f @@ -298,8 +298,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOsolve * * ===================================================================== @@ -307,10 +305,9 @@ SUBROUTINE DPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dposvxx.f b/lapack-netlib/SRC/dposvxx.f index b0de44910d..e74b23c80f 100644 --- a/lapack-netlib/SRC/dposvxx.f +++ b/lapack-netlib/SRC/dposvxx.f @@ -484,8 +484,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOsolve * * ===================================================================== @@ -494,10 +492,9 @@ SUBROUTINE DPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpotf2.f b/lapack-netlib/SRC/dpotf2.f index 1fb60a903b..08fa4957fd 100644 --- a/lapack-netlib/SRC/dpotf2.f +++ b/lapack-netlib/SRC/dpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrf.f b/lapack-netlib/SRC/dpotrf.f index 1fa75a4654..1679fc3cd8 100644 --- a/lapack-netlib/SRC/dpotrf.f +++ b/lapack-netlib/SRC/dpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrf2.f b/lapack-netlib/SRC/dpotrf2.f index 0d419c4f00..6c28ce6d67 100644 --- a/lapack-netlib/SRC/dpotrf2.f +++ b/lapack-netlib/SRC/dpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotri.f b/lapack-netlib/SRC/dpotri.f index 4d2dcb43ba..7daa0c8c43 100644 --- a/lapack-netlib/SRC/dpotri.f +++ b/lapack-netlib/SRC/dpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrs.f b/lapack-netlib/SRC/dpotrs.f index 4cc5e74f3d..862ee078fd 100644 --- a/lapack-netlib/SRC/dpotrs.f +++ b/lapack-netlib/SRC/dpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppcon.f b/lapack-netlib/SRC/dppcon.f index 0e6ab922e1..3e3112929a 100644 --- a/lapack-netlib/SRC/dppcon.f +++ b/lapack-netlib/SRC/dppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppequ.f b/lapack-netlib/SRC/dppequ.f index 3563b59d10..c99a71e454 100644 --- a/lapack-netlib/SRC/dppequ.f +++ b/lapack-netlib/SRC/dppequ.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpprfs.f b/lapack-netlib/SRC/dpprfs.f index 1c068e21c2..d547cb2efd 100644 --- a/lapack-netlib/SRC/dpprfs.f +++ b/lapack-netlib/SRC/dpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppsv.f b/lapack-netlib/SRC/dppsv.f index cb70bab434..435703b08c 100644 --- a/lapack-netlib/SRC/dppsv.f +++ b/lapack-netlib/SRC/dppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppsvx.f b/lapack-netlib/SRC/dppsvx.f index 4fc84ead8f..cb41d39ee1 100644 --- a/lapack-netlib/SRC/dppsvx.f +++ b/lapack-netlib/SRC/dppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpptrf.f b/lapack-netlib/SRC/dpptrf.f index c7f0c35b0f..2d8de5110f 100644 --- a/lapack-netlib/SRC/dpptrf.f +++ b/lapack-netlib/SRC/dpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpptri.f b/lapack-netlib/SRC/dpptri.f index 8f16de01e2..1f7d14a774 100644 --- a/lapack-netlib/SRC/dpptri.f +++ b/lapack-netlib/SRC/dpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpptrs.f b/lapack-netlib/SRC/dpptrs.f index b4410a5128..c5b8eb9911 100644 --- a/lapack-netlib/SRC/dpptrs.f +++ b/lapack-netlib/SRC/dpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpstf2.f b/lapack-netlib/SRC/dpstf2.f index 53c4d3409a..8055fa9825 100644 --- a/lapack-netlib/SRC/dpstf2.f +++ b/lapack-netlib/SRC/dpstf2.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/dpstrf.f b/lapack-netlib/SRC/dpstrf.f index 940f46dd75..9987cde574 100644 --- a/lapack-netlib/SRC/dpstrf.f +++ b/lapack-netlib/SRC/dpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/dptcon.f b/lapack-netlib/SRC/dptcon.f index 84c4ed785f..f619064163 100644 --- a/lapack-netlib/SRC/dptcon.f +++ b/lapack-netlib/SRC/dptcon.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * *> \par Further Details: @@ -118,10 +116,9 @@ * ===================================================================== SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dpteqr.f b/lapack-netlib/SRC/dpteqr.f index ecfc7755db..aa1f1a80c8 100644 --- a/lapack-netlib/SRC/dpteqr.f +++ b/lapack-netlib/SRC/dpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dptrfs.f b/lapack-netlib/SRC/dptrfs.f index ca038a8df2..c3486dbb63 100644 --- a/lapack-netlib/SRC/dptrfs.f +++ b/lapack-netlib/SRC/dptrfs.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/lapack-netlib/SRC/dptsv.f b/lapack-netlib/SRC/dptsv.f index 019ed4fbae..addc34b882 100644 --- a/lapack-netlib/SRC/dptsv.f +++ b/lapack-netlib/SRC/dptsv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTsolve * * ===================================================================== SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dptsvx.f b/lapack-netlib/SRC/dptsvx.f index 59f344579e..7fb6cf4365 100644 --- a/lapack-netlib/SRC/dptsvx.f +++ b/lapack-netlib/SRC/dptsvx.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTsolve * * ===================================================================== SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/dpttrf.f b/lapack-netlib/SRC/dpttrf.f index 33a67adfa5..e0022e3ada 100644 --- a/lapack-netlib/SRC/dpttrf.f +++ b/lapack-netlib/SRC/dpttrf.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dpttrs.f b/lapack-netlib/SRC/dpttrs.f index 34cbe9b902..c98f700300 100644 --- a/lapack-netlib/SRC/dpttrs.f +++ b/lapack-netlib/SRC/dpttrs.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dptts2.f b/lapack-netlib/SRC/dptts2.f index 99e212d60b..2fec1515fc 100644 --- a/lapack-netlib/SRC/dptts2.f +++ b/lapack-netlib/SRC/dptts2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/lapack-netlib/SRC/drscl.f b/lapack-netlib/SRC/drscl.f index cbd66dd27e..fcd8569650 100644 --- a/lapack-netlib/SRC/drscl.f +++ b/lapack-netlib/SRC/drscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dsb2st_kernels.f b/lapack-netlib/SRC/dsb2st_kernels.f index a9dc6b5cae..683d7a24e3 100644 --- a/lapack-netlib/SRC/dsb2st_kernels.f +++ b/lapack-netlib/SRC/dsb2st_kernels.f @@ -170,10 +170,9 @@ SUBROUTINE DSB2ST_KERNELS( UPLO, WANTZ, TTYPE, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ SUBROUTINE DSB2ST_KERNELS( UPLO, WANTZ, TTYPE, * RETURN * -* END OF DSB2ST_KERNELS +* End of DSB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/dsbev.f b/lapack-netlib/SRC/dsbev.f index 416ae221e7..a323dd4b5e 100644 --- a/lapack-netlib/SRC/dsbev.f +++ b/lapack-netlib/SRC/dsbev.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbev_2stage.f b/lapack-netlib/SRC/dsbev_2stage.f index 79991b6490..84143fc4a7 100644 --- a/lapack-netlib/SRC/dsbev_2stage.f +++ b/lapack-netlib/SRC/dsbev_2stage.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -206,10 +204,9 @@ SUBROUTINE DSBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevd.f b/lapack-netlib/SRC/dsbevd.f index 0fa15c0519..3eb4ed8df1 100644 --- a/lapack-netlib/SRC/dsbevd.f +++ b/lapack-netlib/SRC/dsbevd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevd_2stage.f b/lapack-netlib/SRC/dsbevd_2stage.f index 859f87c0e6..45a64b4781 100644 --- a/lapack-netlib/SRC/dsbevd_2stage.f +++ b/lapack-netlib/SRC/dsbevd_2stage.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -236,10 +234,9 @@ SUBROUTINE DSBEVD_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevx.f b/lapack-netlib/SRC/dsbevx.f index 5e6d6423f9..c5886a2d6a 100644 --- a/lapack-netlib/SRC/dsbevx.f +++ b/lapack-netlib/SRC/dsbevx.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== @@ -265,10 +263,9 @@ SUBROUTINE DSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbevx_2stage.f b/lapack-netlib/SRC/dsbevx_2stage.f index 93a07f1600..b57eee29f1 100644 --- a/lapack-netlib/SRC/dsbevx_2stage.f +++ b/lapack-netlib/SRC/dsbevx_2stage.f @@ -281,8 +281,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -324,10 +322,9 @@ SUBROUTINE DSBEVX_2STAGE( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbgst.f b/lapack-netlib/SRC/dsbgst.f index 3adfeb919c..10500b8c5d 100644 --- a/lapack-netlib/SRC/dsbgst.f +++ b/lapack-netlib/SRC/dsbgst.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/dsbgv.f b/lapack-netlib/SRC/dsbgv.f index d82cdae93c..b49df0063e 100644 --- a/lapack-netlib/SRC/dsbgv.f +++ b/lapack-netlib/SRC/dsbgv.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbgvd.f b/lapack-netlib/SRC/dsbgvd.f index 2a215fbf0e..30b0166110 100644 --- a/lapack-netlib/SRC/dsbgvd.f +++ b/lapack-netlib/SRC/dsbgvd.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -227,10 +225,9 @@ SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbgvx.f b/lapack-netlib/SRC/dsbgvx.f index 6de1eb89be..55dbce2eef 100644 --- a/lapack-netlib/SRC/dsbgvx.f +++ b/lapack-netlib/SRC/dsbgvx.f @@ -280,8 +280,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -294,10 +292,9 @@ SUBROUTINE DSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbtrd.f b/lapack-netlib/SRC/dsbtrd.f index 9ea0c22082..28b8d73955 100644 --- a/lapack-netlib/SRC/dsbtrd.f +++ b/lapack-netlib/SRC/dsbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/dsfrk.f b/lapack-netlib/SRC/dsfrk.f index 1fd1763e72..e1b9b89bb1 100644 --- a/lapack-netlib/SRC/dsfrk.f +++ b/lapack-netlib/SRC/dsfrk.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dsgesv.f b/lapack-netlib/SRC/dsgesv.f index edbb87e7ae..986492f8ba 100644 --- a/lapack-netlib/SRC/dsgesv.f +++ b/lapack-netlib/SRC/dsgesv.f @@ -187,18 +187,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -428,6 +425,6 @@ SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * RETURN * -* End of DSGESV. +* End of DSGESV * END diff --git a/lapack-netlib/SRC/dspcon.f b/lapack-netlib/SRC/dspcon.f index b422f844c1..ea92d70aff 100644 --- a/lapack-netlib/SRC/dspcon.f +++ b/lapack-netlib/SRC/dspcon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspev.f b/lapack-netlib/SRC/dspev.f index f3142791ef..f884664a98 100644 --- a/lapack-netlib/SRC/dspev.f +++ b/lapack-netlib/SRC/dspev.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspevd.f b/lapack-netlib/SRC/dspevd.f index 5b99d7558e..d9d6c89177 100644 --- a/lapack-netlib/SRC/dspevd.f +++ b/lapack-netlib/SRC/dspevd.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspevx.f b/lapack-netlib/SRC/dspevx.f index d66dc18efb..f56ce298f7 100644 --- a/lapack-netlib/SRC/dspevx.f +++ b/lapack-netlib/SRC/dspevx.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== @@ -234,10 +232,9 @@ SUBROUTINE DSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dspgst.f b/lapack-netlib/SRC/dspgst.f index 59cda68b43..95734606a3 100644 --- a/lapack-netlib/SRC/dspgst.f +++ b/lapack-netlib/SRC/dspgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspgv.f b/lapack-netlib/SRC/dspgv.f index f7313ffecd..d8ec3b1a42 100644 --- a/lapack-netlib/SRC/dspgv.f +++ b/lapack-netlib/SRC/dspgv.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspgvd.f b/lapack-netlib/SRC/dspgvd.f index 71b290b9c4..5563263882 100644 --- a/lapack-netlib/SRC/dspgvd.f +++ b/lapack-netlib/SRC/dspgvd.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspgvx.f b/lapack-netlib/SRC/dspgvx.f index 8619ef739f..ec93147aa4 100644 --- a/lapack-netlib/SRC/dspgvx.f +++ b/lapack-netlib/SRC/dspgvx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -272,10 +270,9 @@ SUBROUTINE DSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsposv.f b/lapack-netlib/SRC/dsposv.f index 6c8baa56b4..c3b8de0e3e 100644 --- a/lapack-netlib/SRC/dsposv.f +++ b/lapack-netlib/SRC/dsposv.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doublePOsolve * * ===================================================================== SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -434,6 +431,6 @@ SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * RETURN * -* End of DSPOSV. +* End of DSPOSV * END diff --git a/lapack-netlib/SRC/dsprfs.f b/lapack-netlib/SRC/dsprfs.f index 9ad5a80b5d..796686d569 100644 --- a/lapack-netlib/SRC/dsprfs.f +++ b/lapack-netlib/SRC/dsprfs.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspsv.f b/lapack-netlib/SRC/dspsv.f index e96943925c..8cf1927964 100644 --- a/lapack-netlib/SRC/dspsv.f +++ b/lapack-netlib/SRC/dspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspsvx.f b/lapack-netlib/SRC/dspsvx.f index 62df170c06..86737f8191 100644 --- a/lapack-netlib/SRC/dspsvx.f +++ b/lapack-netlib/SRC/dspsvx.f @@ -248,8 +248,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -276,10 +274,9 @@ SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/dsptrd.f b/lapack-netlib/SRC/dsptrd.f index 082f814098..b892ed9aab 100644 --- a/lapack-netlib/SRC/dsptrd.f +++ b/lapack-netlib/SRC/dsptrd.f @@ -111,8 +111,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -150,10 +148,9 @@ * ===================================================================== SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptrf.f b/lapack-netlib/SRC/dsptrf.f index 9158ff1f38..c81d8bcbf8 100644 --- a/lapack-netlib/SRC/dsptrf.f +++ b/lapack-netlib/SRC/dsptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptri.f b/lapack-netlib/SRC/dsptri.f index e68efface8..abed7ed499 100644 --- a/lapack-netlib/SRC/dsptri.f +++ b/lapack-netlib/SRC/dsptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptrs.f b/lapack-netlib/SRC/dsptrs.f index 17f8c6a5f4..a8f39a4ede 100644 --- a/lapack-netlib/SRC/dsptrs.f +++ b/lapack-netlib/SRC/dsptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dstebz.f b/lapack-netlib/SRC/dstebz.f index e41279e542..baf417b0a5 100644 --- a/lapack-netlib/SRC/dstebz.f +++ b/lapack-netlib/SRC/dstebz.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -273,10 +271,9 @@ SUBROUTINE DSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/dstedc.f b/lapack-netlib/SRC/dstedc.f index 61b44bc06b..2ed84afaac 100644 --- a/lapack-netlib/SRC/dstedc.f +++ b/lapack-netlib/SRC/dstedc.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -188,10 +186,9 @@ SUBROUTINE DSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dstegr.f b/lapack-netlib/SRC/dstegr.f index 6a8c43faa8..01ec101d8c 100644 --- a/lapack-netlib/SRC/dstegr.f +++ b/lapack-netlib/SRC/dstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE DSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dstein.f b/lapack-netlib/SRC/dstein.f index fb1e8b9fd5..6506be92ac 100644 --- a/lapack-netlib/SRC/dstein.f +++ b/lapack-netlib/SRC/dstein.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/dstemr.f b/lapack-netlib/SRC/dstemr.f index 16c9d970d8..d0c71ddd98 100644 --- a/lapack-netlib/SRC/dstemr.f +++ b/lapack-netlib/SRC/dstemr.f @@ -303,8 +303,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -321,10 +319,9 @@ SUBROUTINE DSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dsteqr.f b/lapack-netlib/SRC/dsteqr.f index c34a548984..50a9188c7c 100644 --- a/lapack-netlib/SRC/dsteqr.f +++ b/lapack-netlib/SRC/dsteqr.f @@ -124,17 +124,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dsterf.f b/lapack-netlib/SRC/dsterf.f index 3401894819..b0f8d36084 100644 --- a/lapack-netlib/SRC/dsterf.f +++ b/lapack-netlib/SRC/dsterf.f @@ -79,17 +79,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DSTERF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dstev.f b/lapack-netlib/SRC/dstev.f index c59eaf3444..21c4ceed1c 100644 --- a/lapack-netlib/SRC/dstev.f +++ b/lapack-netlib/SRC/dstev.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/dstevd.f b/lapack-netlib/SRC/dstevd.f index 6a07b249ed..507f39b2b6 100644 --- a/lapack-netlib/SRC/dstevd.f +++ b/lapack-netlib/SRC/dstevd.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/dstevr.f b/lapack-netlib/SRC/dstevr.f index 10f1b77201..ce9383758d 100644 --- a/lapack-netlib/SRC/dstevr.f +++ b/lapack-netlib/SRC/dstevr.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -304,10 +302,9 @@ SUBROUTINE DSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dstevx.f b/lapack-netlib/SRC/dstevx.f index 7acbdaa632..f93c1d3b75 100644 --- a/lapack-netlib/SRC/dstevx.f +++ b/lapack-netlib/SRC/dstevx.f @@ -219,18 +219,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dsycon.f b/lapack-netlib/SRC/dsycon.f index 66e453659c..617a917008 100644 --- a/lapack-netlib/SRC/dsycon.f +++ b/lapack-netlib/SRC/dsycon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsycon_3.f b/lapack-netlib/SRC/dsycon_3.f index 7245ebadc8..f5cc65dd42 100644 --- a/lapack-netlib/SRC/dsycon_3.f +++ b/lapack-netlib/SRC/dsycon_3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -171,10 +169,9 @@ SUBROUTINE DSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsycon_rook.f b/lapack-netlib/SRC/dsycon_rook.f index 4022adf7e5..dab67a225a 100644 --- a/lapack-netlib/SRC/dsycon_rook.f +++ b/lapack-netlib/SRC/dsycon_rook.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -144,10 +142,9 @@ SUBROUTINE DSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsyconv.f b/lapack-netlib/SRC/dsyconv.f index f582bce651..e213f03d1b 100644 --- a/lapack-netlib/SRC/dsyconv.f +++ b/lapack-netlib/SRC/dsyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyconvf.f b/lapack-netlib/SRC/dsyconvf.f index 60cfd1e654..9e7a5af0e1 100644 --- a/lapack-netlib/SRC/dsyconvf.f +++ b/lapack-netlib/SRC/dsyconvf.f @@ -38,7 +38,7 @@ *> DSYCONVF converts the factorization output format used in *> DSYTRF provided on entry in parameter A into the factorization *> output format used in DSYTRF_RK (or DSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in DSYTRF into *> the format used in DSYTRF_RK (or DSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in DSYTRF_RK *> (or DSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in DSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in DSYTRF_RK *> (or DSYTRF_BK) into the format used in DSYTRF. *> \endverbatim @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -206,10 +204,9 @@ * ===================================================================== SUBROUTINE DSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyconvf_rook.f b/lapack-netlib/SRC/dsyconvf_rook.f index bd683a0874..d7f529358c 100644 --- a/lapack-netlib/SRC/dsyconvf_rook.f +++ b/lapack-netlib/SRC/dsyconvf_rook.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -197,10 +195,9 @@ * ===================================================================== SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyequb.f b/lapack-netlib/SRC/dsyequb.f index de6b71a346..1f909be19b 100644 --- a/lapack-netlib/SRC/dsyequb.f +++ b/lapack-netlib/SRC/dsyequb.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par References: @@ -131,10 +129,9 @@ * ===================================================================== SUBROUTINE DSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dsyev.f b/lapack-netlib/SRC/dsyev.f index ee8c479abe..da7557ee02 100644 --- a/lapack-netlib/SRC/dsyev.f +++ b/lapack-netlib/SRC/dsyev.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyev_2stage.f b/lapack-netlib/SRC/dsyev_2stage.f index 9d802905cd..50d51d992b 100644 --- a/lapack-netlib/SRC/dsyev_2stage.f +++ b/lapack-netlib/SRC/dsyev_2stage.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download DSYEV_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -185,10 +183,9 @@ SUBROUTINE DSYEV_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevd.f b/lapack-netlib/SRC/dsyevd.f index 2db67846dc..edbe896fe8 100644 --- a/lapack-netlib/SRC/dsyevd.f +++ b/lapack-netlib/SRC/dsyevd.f @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevd_2stage.f b/lapack-netlib/SRC/dsyevd_2stage.f index ff8e08d71f..0eae8ad062 100644 --- a/lapack-netlib/SRC/dsyevd_2stage.f +++ b/lapack-netlib/SRC/dsyevd_2stage.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -229,10 +227,9 @@ SUBROUTINE DSYEVD_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevr.f b/lapack-netlib/SRC/dsyevr.f index d140426a43..698691533f 100644 --- a/lapack-netlib/SRC/dsyevr.f +++ b/lapack-netlib/SRC/dsyevr.f @@ -315,8 +315,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -334,10 +332,9 @@ SUBROUTINE DSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevr_2stage.f b/lapack-netlib/SRC/dsyevr_2stage.f index 847acce429..09242bbd31 100644 --- a/lapack-netlib/SRC/dsyevr_2stage.f +++ b/lapack-netlib/SRC/dsyevr_2stage.f @@ -330,8 +330,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -383,10 +381,9 @@ SUBROUTINE DSYEVR_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevx.f b/lapack-netlib/SRC/dsyevx.f index 2fd7bce6b0..99719874b5 100644 --- a/lapack-netlib/SRC/dsyevx.f +++ b/lapack-netlib/SRC/dsyevx.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== @@ -253,10 +251,9 @@ SUBROUTINE DSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevx_2stage.f b/lapack-netlib/SRC/dsyevx_2stage.f index 7a93ac0203..dbb3203d29 100644 --- a/lapack-netlib/SRC/dsyevx_2stage.f +++ b/lapack-netlib/SRC/dsyevx_2stage.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -302,10 +300,9 @@ SUBROUTINE DSYEVX_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsygs2.f b/lapack-netlib/SRC/dsygs2.f index a54955c01e..8a39bea77e 100644 --- a/lapack-netlib/SRC/dsygs2.f +++ b/lapack-netlib/SRC/dsygs2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsygst.f b/lapack-netlib/SRC/dsygst.f index 5055acdf1d..05b90372ab 100644 --- a/lapack-netlib/SRC/dsygst.f +++ b/lapack-netlib/SRC/dsygst.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsygv.f b/lapack-netlib/SRC/dsygv.f index 651abc5c7b..5208dbb1f1 100644 --- a/lapack-netlib/SRC/dsygv.f +++ b/lapack-netlib/SRC/dsygv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygv_2stage.f b/lapack-netlib/SRC/dsygv_2stage.f index 5b1a1766cf..5c71ebf94c 100644 --- a/lapack-netlib/SRC/dsygv_2stage.f +++ b/lapack-netlib/SRC/dsygv_2stage.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -228,10 +226,9 @@ SUBROUTINE DSYGV_2STAGE( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygvd.f b/lapack-netlib/SRC/dsygvd.f index 29c78283a7..61134bedce 100644 --- a/lapack-netlib/SRC/dsygvd.f +++ b/lapack-netlib/SRC/dsygvd.f @@ -203,8 +203,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -227,10 +225,9 @@ SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygvx.f b/lapack-netlib/SRC/dsygvx.f index aeca6021de..3fa55b97c1 100644 --- a/lapack-netlib/SRC/dsygvx.f +++ b/lapack-netlib/SRC/dsygvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -297,10 +295,9 @@ SUBROUTINE DSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyrfs.f b/lapack-netlib/SRC/dsyrfs.f index 2732f175be..eb23fd6019 100644 --- a/lapack-netlib/SRC/dsyrfs.f +++ b/lapack-netlib/SRC/dsyrfs.f @@ -183,18 +183,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsyrfsx.f b/lapack-netlib/SRC/dsyrfsx.f index eb091e7203..f3a1d75447 100644 --- a/lapack-netlib/SRC/dsyrfsx.f +++ b/lapack-netlib/SRC/dsyrfsx.f @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ SUBROUTINE DSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/dsysv.f b/lapack-netlib/SRC/dsysv.f index c9811b5666..a6305e13c3 100644 --- a/lapack-netlib/SRC/dsysv.f +++ b/lapack-netlib/SRC/dsysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * * ===================================================================== SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_aa.f b/lapack-netlib/SRC/dsysv_aa.f index 4ee4744484..8dab5a384d 100644 --- a/lapack-netlib/SRC/dsysv_aa.f +++ b/lapack-netlib/SRC/dsysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYsolve * * ===================================================================== SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_aa_2stage.f b/lapack-netlib/SRC/dsysv_aa_2stage.f index ef593bc7ef..1100702ba0 100644 --- a/lapack-netlib/SRC/dsysv_aa_2stage.f +++ b/lapack-netlib/SRC/dsysv_aa_2stage.f @@ -179,8 +179,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -188,10 +186,9 @@ SUBROUTINE DSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsysv_rk.f b/lapack-netlib/SRC/dsysv_rk.f index 6a6036be19..05d8f7d3ff 100644 --- a/lapack-netlib/SRC/dsysv_rk.f +++ b/lapack-netlib/SRC/dsysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE DSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_rook.f b/lapack-netlib/SRC/dsysv_rook.f index d69c176279..6ebb52eae4 100644 --- a/lapack-netlib/SRC/dsysv_rook.f +++ b/lapack-netlib/SRC/dsysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysvx.f b/lapack-netlib/SRC/dsysvx.f index cd059863e0..a30831e726 100644 --- a/lapack-netlib/SRC/dsysvx.f +++ b/lapack-netlib/SRC/dsysvx.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -284,10 +282,9 @@ SUBROUTINE DSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/dsysvxx.f b/lapack-netlib/SRC/dsysvxx.f index 0be50bcd15..82d30a4b71 100644 --- a/lapack-netlib/SRC/dsysvxx.f +++ b/lapack-netlib/SRC/dsysvxx.f @@ -495,8 +495,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -505,10 +503,9 @@ SUBROUTINE DSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dsyswapr.f b/lapack-netlib/SRC/dsyswapr.f index 6e6c0f7e5c..c60ccbefc3 100644 --- a/lapack-netlib/SRC/dsyswapr.f +++ b/lapack-netlib/SRC/dsyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytd2.f b/lapack-netlib/SRC/dsytd2.f index 6fb4d5507e..977b6daa41 100644 --- a/lapack-netlib/SRC/dsytd2.f +++ b/lapack-netlib/SRC/dsytd2.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2.f b/lapack-netlib/SRC/dsytf2.f index 39ef4de7cc..b05d25ad15 100644 --- a/lapack-netlib/SRC/dsytf2.f +++ b/lapack-netlib/SRC/dsytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2_rk.f b/lapack-netlib/SRC/dsytf2_rk.f index cc9e4616e0..e9afcb6aad 100644 --- a/lapack-netlib/SRC/dsytf2_rk.f +++ b/lapack-netlib/SRC/dsytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE DSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2_rook.f b/lapack-netlib/SRC/dsytf2_rook.f index 237c9984c7..251b3909bb 100644 --- a/lapack-netlib/SRC/dsytf2_rook.f +++ b/lapack-netlib/SRC/dsytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrd.f b/lapack-netlib/SRC/dsytrd.f index d330b241fa..3dcfc3db2b 100644 --- a/lapack-netlib/SRC/dsytrd.f +++ b/lapack-netlib/SRC/dsytrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrd_2stage.f b/lapack-netlib/SRC/dsytrd_2stage.f index fc4b929082..8ae77d3e4b 100644 --- a/lapack-netlib/SRC/dsytrd_2stage.f +++ b/lapack-netlib/SRC/dsytrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ SUBROUTINE DSYTRD_2STAGE( VECT, UPLO, N, A, LDA, D, E, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/dsytrd_sb2st.F b/lapack-netlib/SRC/dsytrd_sb2st.F index 0c0dbf1253..fabc107560 100644 --- a/lapack-netlib/SRC/dsytrd_sb2st.F +++ b/lapack-netlib/SRC/dsytrd_sb2st.F @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real16OTHERcomputational * *> \par Further Details: @@ -236,10 +234,9 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -392,7 +389,7 @@ SUBROUTINE DSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/dsytrd_sy2sb.f b/lapack-netlib/SRC/dsytrd_sy2sb.f index 7f30817b0c..1660b5c7e3 100644 --- a/lapack-netlib/SRC/dsytrd_sy2sb.f +++ b/lapack-netlib/SRC/dsytrd_sy2sb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download DSYTRD_SY2SB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE DSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf.f b/lapack-netlib/SRC/dsytrf.f index a3bd30a2fd..a39b032836 100644 --- a/lapack-netlib/SRC/dsytrf.f +++ b/lapack-netlib/SRC/dsytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf_aa.f b/lapack-netlib/SRC/dsytrf_aa.f index 6df0da2cd9..3467379537 100644 --- a/lapack-netlib/SRC/dsytrf_aa.f +++ b/lapack-netlib/SRC/dsytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of DSYTRF_AA diff --git a/lapack-netlib/SRC/dsytrf_aa_2stage.f b/lapack-netlib/SRC/dsytrf_aa_2stage.f index a37be5bdd9..b7f5f07c20 100644 --- a/lapack-netlib/SRC/dsytrf_aa_2stage.f +++ b/lapack-netlib/SRC/dsytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrf_rk.f b/lapack-netlib/SRC/dsytrf_rk.f index e6fc4ece1e..7341b9263b 100644 --- a/lapack-netlib/SRC/dsytrf_rk.f +++ b/lapack-netlib/SRC/dsytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE DSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf_rook.f b/lapack-netlib/SRC/dsytrf_rook.f index d2690499f1..2f00d18024 100644 --- a/lapack-netlib/SRC/dsytrf_rook.f +++ b/lapack-netlib/SRC/dsytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri.f b/lapack-netlib/SRC/dsytri.f index f093a13992..f1552d6fe2 100644 --- a/lapack-netlib/SRC/dsytri.f +++ b/lapack-netlib/SRC/dsytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri2.f b/lapack-netlib/SRC/dsytri2.f index 5c3a5ec764..dbcdcdb588 100644 --- a/lapack-netlib/SRC/dsytri2.f +++ b/lapack-netlib/SRC/dsytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri2x.f b/lapack-netlib/SRC/dsytri2x.f index ae29f1209a..2ae4f10591 100644 --- a/lapack-netlib/SRC/dsytri2x.f +++ b/lapack-netlib/SRC/dsytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_3.f b/lapack-netlib/SRC/dsytri_3.f index d1980f8c46..86d69cdfdd 100644 --- a/lapack-netlib/SRC/dsytri_3.f +++ b/lapack-netlib/SRC/dsytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE DSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_3x.f b/lapack-netlib/SRC/dsytri_3x.f index d95e6274bb..2e3809a1ec 100644 --- a/lapack-netlib/SRC/dsytri_3x.f +++ b/lapack-netlib/SRC/dsytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE DSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_rook.f b/lapack-netlib/SRC/dsytri_rook.f index cad2a7e9f3..3d1a24aafc 100644 --- a/lapack-netlib/SRC/dsytri_rook.f +++ b/lapack-netlib/SRC/dsytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs.f b/lapack-netlib/SRC/dsytrs.f index e5988f20f3..f1be52e887 100644 --- a/lapack-netlib/SRC/dsytrs.f +++ b/lapack-netlib/SRC/dsytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs2.f b/lapack-netlib/SRC/dsytrs2.f index c7ca8e9ffa..7e868f1a1f 100644 --- a/lapack-netlib/SRC/dsytrs2.f +++ b/lapack-netlib/SRC/dsytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs_3.f b/lapack-netlib/SRC/dsytrs_3.f index 2d61f6b71a..56ec92059a 100644 --- a/lapack-netlib/SRC/dsytrs_3.f +++ b/lapack-netlib/SRC/dsytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE DSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs_aa.f b/lapack-netlib/SRC/dsytrs_aa.f index d9dc0a6d19..26b11a2a0b 100644 --- a/lapack-netlib/SRC/dsytrs_aa.f +++ b/lapack-netlib/SRC/dsytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrs_aa_2stage.f b/lapack-netlib/SRC/dsytrs_aa_2stage.f index 69c702f8a0..963a886839 100644 --- a/lapack-netlib/SRC/dsytrs_aa_2stage.f +++ b/lapack-netlib/SRC/dsytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrs_rook.f b/lapack-netlib/SRC/dsytrs_rook.f index 94a5e0042a..1830347f83 100644 --- a/lapack-netlib/SRC/dsytrs_rook.f +++ b/lapack-netlib/SRC/dsytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE DSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtbcon.f b/lapack-netlib/SRC/dtbcon.f index ec0d3a15a1..b0dc2a5641 100644 --- a/lapack-netlib/SRC/dtbcon.f +++ b/lapack-netlib/SRC/dtbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtbrfs.f b/lapack-netlib/SRC/dtbrfs.f index 05bfb7348f..361a9b0b7a 100644 --- a/lapack-netlib/SRC/dtbrfs.f +++ b/lapack-netlib/SRC/dtbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtbtrs.f b/lapack-netlib/SRC/dtbtrs.f index e5fb876592..05bd5f895b 100644 --- a/lapack-netlib/SRC/dtbtrs.f +++ b/lapack-netlib/SRC/dtbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtfsm.f b/lapack-netlib/SRC/dtfsm.f index 515f6f5438..b2a80d029d 100644 --- a/lapack-netlib/SRC/dtfsm.f +++ b/lapack-netlib/SRC/dtfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtftri.f b/lapack-netlib/SRC/dtftri.f index 9debec9702..d367c90299 100644 --- a/lapack-netlib/SRC/dtftri.f +++ b/lapack-netlib/SRC/dtftri.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ * ===================================================================== SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/dtfttp.f b/lapack-netlib/SRC/dtfttp.f index c2929824af..c83af44067 100644 --- a/lapack-netlib/SRC/dtfttp.f +++ b/lapack-netlib/SRC/dtfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -187,10 +185,9 @@ * ===================================================================== SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtfttr.f b/lapack-netlib/SRC/dtfttr.f index bb1c6224f5..3bfe4f1d9a 100644 --- a/lapack-netlib/SRC/dtfttr.f +++ b/lapack-netlib/SRC/dtfttr.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -196,10 +194,9 @@ * ===================================================================== SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtgevc.f b/lapack-netlib/SRC/dtgevc.f index 756474c9e0..e7084664cb 100644 --- a/lapack-netlib/SRC/dtgevc.f +++ b/lapack-netlib/SRC/dtgevc.f @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -295,10 +293,9 @@ SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtgex2.f b/lapack-netlib/SRC/dtgex2.f index 93ff03acf6..00c23a8330 100644 --- a/lapack-netlib/SRC/dtgex2.f +++ b/lapack-netlib/SRC/dtgex2.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * *> \par Further Details: @@ -221,10 +219,9 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -250,10 +247,11 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, PARAMETER ( WANDS = .TRUE. ) * .. * .. Local Scalars .. - LOGICAL DTRONG, WEAK + LOGICAL STRONG, WEAK INTEGER I, IDUM, LINFO, M - DOUBLE PRECISION BQRA21, BRQA21, DDUM, DNORM, DSCALE, DSUM, EPS, - $ F, G, SA, SB, SCALE, SMLNUM, SS, THRESH, WS + DOUBLE PRECISION BQRA21, BRQA21, DDUM, DNORMA, DNORMB, DSCALE, + $ DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, + $ THRESHA, THRESHB * .. * .. Local Arrays .. INTEGER IWORK( LDST ) @@ -293,7 +291,7 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, END IF * WEAK = .FALSE. - DTRONG = .FALSE. + STRONG = .FALSE. * * Make a local copy of selected block * @@ -310,9 +308,12 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSUM = ONE CALL DLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) + DNORMA = DSCALE*SQRT( DSUM ) + DSCALE = ZERO + DSUM = ONE CALL DLACPY( 'Full', M, M, T, LDST, WORK, M ) CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) - DNORM = DSCALE*SQRT( DSUM ) + DNORMB = DSCALE*SQRT( DSUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -322,7 +323,8 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*DNORM, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*DNORMA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*DNORMB, SMLNUM ) * IF( M.EQ.2 ) THEN * @@ -333,8 +335,8 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SB = ABS( T( 2, 2 ) ) - SA = ABS( S( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL DLARTG( F, G, IR( 1, 2 ), IR( 1, 1 ), DDUM ) IR( 2, 1 ) = -IR( 1, 2 ) IR( 2, 2 ) = IR( 1, 1 ) @@ -356,18 +358,20 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LI( 2, 2 ) = LI( 1, 1 ) LI( 1, 2 ) = -LI( 2, 1 ) * -* Weak stability test: -* |S21| + |T21| <= O(EPS * F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ) .LE. THRESHA .AND. + $ ABS( T( 2, 1 ) ) .LE. THRESHB IF( .NOT.WEAK ) $ GO TO 70 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**T*S*QR, B-QL**T*T*QR)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL DLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -378,6 +382,7 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSCALE = ZERO DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL DLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -385,10 +390,12 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ WORK, M ) CALL DGEMM( 'N', 'T', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - DTRONG = SS.LE.THRESH - IF( .NOT.DTRONG ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 70 END IF * @@ -439,6 +446,8 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ IR( N2+1, N1+1 ), LDST, T, LDST, T( N1+1, N1+1 ), $ LDST, LI, LDST, SCALE, DSUM, DSCALE, IWORK, IDUM, $ LINFO ) + IF( LINFO.NE.0 ) + $ GO TO 70 * * Compute orthogonal matrix QL: * @@ -538,14 +547,14 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * * Decide which method to use. * Weak stability test: -* F-norm(S21) <= O(EPS * F-norm((S, T))) +* F-norm(S21) <= O(EPS * F-norm((S))) * - IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESH ) THEN + IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESHA ) THEN CALL DLACPY( 'F', M, M, SCPY, LDST, S, LDST ) CALL DLACPY( 'F', M, M, TCPY, LDST, T, LDST ) CALL DLACPY( 'F', M, M, IRCOP, LDST, IR, LDST ) CALL DLACPY( 'F', M, M, LICOP, LDST, LI, LDST ) - ELSE IF( BRQA21.GE.THRESH ) THEN + ELSE IF( BRQA21.GE.THRESHA ) THEN GO TO 70 END IF * @@ -556,7 +565,9 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL*S*QR**T, B-QL*T*QR**T)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL DLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -567,6 +578,7 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSCALE = ZERO DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL DLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -574,10 +586,12 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ WORK, M ) CALL DGEMM( 'N', 'N', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - DTRONG = ( SS.LE.THRESH ) - IF( .NOT.DTRONG ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 70 * END IF diff --git a/lapack-netlib/SRC/dtgexc.f b/lapack-netlib/SRC/dtgexc.f index 0a905b8db3..9dce3f597b 100644 --- a/lapack-netlib/SRC/dtgexc.f +++ b/lapack-netlib/SRC/dtgexc.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -220,10 +218,9 @@ SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/dtgsen.f b/lapack-netlib/SRC/dtgsen.f index 22323cf8f6..8de66b6a17 100644 --- a/lapack-netlib/SRC/dtgsen.f +++ b/lapack-netlib/SRC/dtgsen.f @@ -304,8 +304,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -451,10 +449,9 @@ SUBROUTINE DTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/dtgsja.f b/lapack-netlib/SRC/dtgsja.f index 537bd3f4f0..37668c7391 100644 --- a/lapack-netlib/SRC/dtgsja.f +++ b/lapack-netlib/SRC/dtgsja.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -378,10 +376,9 @@ SUBROUTINE DTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/dtgsna.f b/lapack-netlib/SRC/dtgsna.f index 68a68cad88..b9b3ad8afb 100644 --- a/lapack-netlib/SRC/dtgsna.f +++ b/lapack-netlib/SRC/dtgsna.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -381,10 +379,9 @@ SUBROUTINE DTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/dtgsy2.f b/lapack-netlib/SRC/dtgsy2.f index e8c9b4001e..3926f20865 100644 --- a/lapack-netlib/SRC/dtgsy2.f +++ b/lapack-netlib/SRC/dtgsy2.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * *> \par Contributors: @@ -274,10 +272,9 @@ SUBROUTINE DTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dtgsyl.f b/lapack-netlib/SRC/dtgsyl.f index bb07517948..101c92dcff 100644 --- a/lapack-netlib/SRC/dtgsyl.f +++ b/lapack-netlib/SRC/dtgsyl.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE DTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dtpcon.f b/lapack-netlib/SRC/dtpcon.f index 9932a76ab7..39c7265bb3 100644 --- a/lapack-netlib/SRC/dtpcon.f +++ b/lapack-netlib/SRC/dtpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtplqt.f b/lapack-netlib/SRC/dtplqt.f index 4712950f96..98fe771042 100644 --- a/lapack-netlib/SRC/dtplqt.f +++ b/lapack-netlib/SRC/dtplqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies +*> Download DTPLQT + dependencies *> *> [TGZ] *> @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/dtplqt2.f b/lapack-netlib/SRC/dtplqt2.f index e2fefb68d9..8a2f31dd1e 100644 --- a/lapack-netlib/SRC/dtplqt2.f +++ b/lapack-netlib/SRC/dtplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE DTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/dtpmlqt.f b/lapack-netlib/SRC/dtpmlqt.f index 975ebdc27a..05f1ed1316 100644 --- a/lapack-netlib/SRC/dtpmlqt.f +++ b/lapack-netlib/SRC/dtpmlqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies +*> Download DTPMLQT + dependencies *> *> [TGZ] *> @@ -103,9 +103,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +212,9 @@ SUBROUTINE DTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -242,7 +237,7 @@ SUBROUTINE DTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, DLARFB, DTPRFB + EXTERNAL XERBLA, DTPRFB * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/lapack-netlib/SRC/dtpmqrt.f b/lapack-netlib/SRC/dtpmqrt.f index a7888e1926..9cf4fa0864 100644 --- a/lapack-netlib/SRC/dtpmqrt.f +++ b/lapack-netlib/SRC/dtpmqrt.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dtpqrt.f b/lapack-netlib/SRC/dtpqrt.f index 1a3f95475b..28401f7142 100644 --- a/lapack-netlib/SRC/dtpqrt.f +++ b/lapack-netlib/SRC/dtpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/dtpqrt2.f b/lapack-netlib/SRC/dtpqrt2.f index 2e18f4e3a0..1ace030138 100644 --- a/lapack-netlib/SRC/dtpqrt2.f +++ b/lapack-netlib/SRC/dtpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/dtprfb.f b/lapack-netlib/SRC/dtprfb.f index 6d3b4dae19..a3fc7d6c63 100644 --- a/lapack-netlib/SRC/dtprfb.f +++ b/lapack-netlib/SRC/dtprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ SUBROUTINE DTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dtprfs.f b/lapack-netlib/SRC/dtprfs.f index 2dc427e459..bd4f0ce08e 100644 --- a/lapack-netlib/SRC/dtprfs.f +++ b/lapack-netlib/SRC/dtprfs.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtptri.f b/lapack-netlib/SRC/dtptri.f index 32f38344ec..f1c976f2ce 100644 --- a/lapack-netlib/SRC/dtptri.f +++ b/lapack-netlib/SRC/dtptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE DTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtptrs.f b/lapack-netlib/SRC/dtptrs.f index c62724128f..18a92d0454 100644 --- a/lapack-netlib/SRC/dtptrs.f +++ b/lapack-netlib/SRC/dtptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtpttf.f b/lapack-netlib/SRC/dtpttf.f index a37a3e30a1..0c7aa1e947 100644 --- a/lapack-netlib/SRC/dtpttf.f +++ b/lapack-netlib/SRC/dtpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtpttr.f b/lapack-netlib/SRC/dtpttr.f index 6258179938..2126eda09a 100644 --- a/lapack-netlib/SRC/dtpttr.f +++ b/lapack-netlib/SRC/dtpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtrcon.f b/lapack-netlib/SRC/dtrcon.f index ad40d3774a..9b6c75489a 100644 --- a/lapack-netlib/SRC/dtrcon.f +++ b/lapack-netlib/SRC/dtrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtrevc.f b/lapack-netlib/SRC/dtrevc.f index 2ed3efaca3..149b43c789 100644 --- a/lapack-netlib/SRC/dtrevc.f +++ b/lapack-netlib/SRC/dtrevc.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -222,10 +220,9 @@ SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtrevc3.f b/lapack-netlib/SRC/dtrevc3.f index 957baf4f09..a4651e788f 100644 --- a/lapack-netlib/SRC/dtrevc3.f +++ b/lapack-netlib/SRC/dtrevc3.f @@ -215,10 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> s -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -240,10 +236,9 @@ SUBROUTINE DTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, LDVR, MM, M, WORK, LWORK, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtrexc.f b/lapack-netlib/SRC/dtrexc.f index 468ae47b95..4cb18e3836 100644 --- a/lapack-netlib/SRC/dtrexc.f +++ b/lapack-netlib/SRC/dtrexc.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/dtrrfs.f b/lapack-netlib/SRC/dtrrfs.f index c9fe55c721..de0dc52058 100644 --- a/lapack-netlib/SRC/dtrrfs.f +++ b/lapack-netlib/SRC/dtrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtrsen.f b/lapack-netlib/SRC/dtrsen.f index 1fa126c5be..3aba35aded 100644 --- a/lapack-netlib/SRC/dtrsen.f +++ b/lapack-netlib/SRC/dtrsen.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -313,10 +311,9 @@ SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/dtrsna.f b/lapack-netlib/SRC/dtrsna.f index dd0ad2f056..ffcfe0545f 100644 --- a/lapack-netlib/SRC/dtrsna.f +++ b/lapack-netlib/SRC/dtrsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ SUBROUTINE DTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/dtrsyl.f b/lapack-netlib/SRC/dtrsyl.f index 105032cb33..ea1fd4f19a 100644 --- a/lapack-netlib/SRC/dtrsyl.f +++ b/lapack-netlib/SRC/dtrsyl.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/dtrti2.f b/lapack-netlib/SRC/dtrti2.f index 0a9d5b696c..0d9115554c 100644 --- a/lapack-netlib/SRC/dtrti2.f +++ b/lapack-netlib/SRC/dtrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtrtri.f b/lapack-netlib/SRC/dtrtri.f index d34b40bcc0..1cf9a9aafb 100644 --- a/lapack-netlib/SRC/dtrtri.f +++ b/lapack-netlib/SRC/dtrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtrtrs.f b/lapack-netlib/SRC/dtrtrs.f index 3e5ff6fda1..d82f31d0b4 100644 --- a/lapack-netlib/SRC/dtrtrs.f +++ b/lapack-netlib/SRC/dtrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtrttf.f b/lapack-netlib/SRC/dtrttf.f index 8e91c3df81..4e4b5ee556 100644 --- a/lapack-netlib/SRC/dtrttf.f +++ b/lapack-netlib/SRC/dtrttf.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtrttp.f b/lapack-netlib/SRC/dtrttp.f index 5ee3dd5fad..15289172cf 100644 --- a/lapack-netlib/SRC/dtrttp.f +++ b/lapack-netlib/SRC/dtrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtzrzf.f b/lapack-netlib/SRC/dtzrzf.f index 0d4f922c89..ced2c4f5e8 100644 --- a/lapack-netlib/SRC/dtzrzf.f +++ b/lapack-netlib/SRC/dtzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dzsum1.f b/lapack-netlib/SRC/dzsum1.f index 70a404283e..7c5ebfacf7 100644 --- a/lapack-netlib/SRC/dzsum1.f +++ b/lapack-netlib/SRC/dzsum1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/icmax1.f b/lapack-netlib/SRC/icmax1.f index 4141473878..05a655836a 100644 --- a/lapack-netlib/SRC/icmax1.f +++ b/lapack-netlib/SRC/icmax1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2014 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== INTEGER FUNCTION ICMAX1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2014 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/ieeeck.f b/lapack-netlib/SRC/ieeeck.f index 2655958b4a..74065c3b4e 100644 --- a/lapack-netlib/SRC/ieeeck.f +++ b/lapack-netlib/SRC/ieeeck.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC diff --git a/lapack-netlib/SRC/ilaclc.f b/lapack-netlib/SRC/ilaclc.f index 35d86d2307..9ac02867af 100644 --- a/lapack-netlib/SRC/ilaclc.f +++ b/lapack-netlib/SRC/ilaclc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaclr.f b/lapack-netlib/SRC/ilaclr.f index 3aad730b43..9f9a1cd323 100644 --- a/lapack-netlib/SRC/ilaclr.f +++ b/lapack-netlib/SRC/ilaclr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iladiag.f b/lapack-netlib/SRC/iladiag.f index 58614d2682..1fff79a931 100644 --- a/lapack-netlib/SRC/iladiag.f +++ b/lapack-netlib/SRC/iladiag.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILADIAG( DIAG ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG diff --git a/lapack-netlib/SRC/iladlc.f b/lapack-netlib/SRC/iladlc.f index c6476113d1..a98e7218bf 100644 --- a/lapack-netlib/SRC/iladlc.f +++ b/lapack-netlib/SRC/iladlc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iladlr.f b/lapack-netlib/SRC/iladlr.f index e8951d86cc..b1abded84b 100644 --- a/lapack-netlib/SRC/iladlr.f +++ b/lapack-netlib/SRC/iladlr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaenv.f b/lapack-netlib/SRC/ilaenv.f index 7f68c383db..af28503986 100644 --- a/lapack-netlib/SRC/ilaenv.f +++ b/lapack-netlib/SRC/ilaenv.f @@ -79,9 +79,9 @@ *> = 9: maximum size of the subproblems at the bottom of the *> computation tree in the divide-and-conquer algorithm *> (used by xGELSD and xGESDD) -*> =10: ieee NaN arithmetic can be trusted not to trap +*> =10: ieee infinity and NaN arithmetic can be trusted not to trap *> =11: infinity arithmetic can be trusted not to trap -*> 12 <= ISPEC <= 16: +*> 12 <= ISPEC <= 17: *> xHSEQR or related subroutines, *> see IPARMQ for detailed explanation *> \endverbatim @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.9.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -189,7 +186,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * .. Executable Statements .. * GO TO ( 10, 10, 10, 80, 90, 100, 110, 120, - $ 130, 140, 150, 160, 160, 160, 160, 160)ISPEC + $ 130, 140, 150, 160, 160, 160, 160, 160, 160)ISPEC * * Invalid value for ISPEC * @@ -686,7 +683,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * 140 CONTINUE * -* ISPEC = 10: ieee NaN arithmetic can be trusted not to trap +* ISPEC = 10: ieee and infinity NaN arithmetic can be trusted not to trap * * ILAENV = 0 ILAENV = 1 @@ -697,7 +694,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * 150 CONTINUE * -* ISPEC = 11: infinity arithmetic can be trusted not to trap +* ISPEC = 11: ieee infinity arithmetic can be trusted not to trap * * ILAENV = 0 ILAENV = 1 @@ -708,7 +705,7 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * 160 CONTINUE * -* 12 <= ISPEC <= 16: xHSEQR or related subroutines. +* 12 <= ISPEC <= 17: xHSEQR or related subroutines. * ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) RETURN diff --git a/lapack-netlib/SRC/ilaenv2stage.f b/lapack-netlib/SRC/ilaenv2stage.f index db30a1b4d0..f2b105307e 100644 --- a/lapack-netlib/SRC/ilaenv2stage.f +++ b/lapack-netlib/SRC/ilaenv2stage.f @@ -122,8 +122,6 @@ *> \author NAG Ltd. *> \author Nick R. Papior * -*> \date July 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -149,7 +147,7 @@ * ===================================================================== INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * July 2017 diff --git a/lapack-netlib/SRC/ilaprec.f b/lapack-netlib/SRC/ilaprec.f index f1f32ac4b2..6aea3e0f0b 100644 --- a/lapack-netlib/SRC/ilaprec.f +++ b/lapack-netlib/SRC/ilaprec.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILAPREC( PREC ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER PREC diff --git a/lapack-netlib/SRC/ilaslc.f b/lapack-netlib/SRC/ilaslc.f index e59c575175..e299ff7c18 100644 --- a/lapack-netlib/SRC/ilaslc.f +++ b/lapack-netlib/SRC/ilaslc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaslr.f b/lapack-netlib/SRC/ilaslr.f index 910bc800d0..840a797f02 100644 --- a/lapack-netlib/SRC/ilaslr.f +++ b/lapack-netlib/SRC/ilaslr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilatrans.f b/lapack-netlib/SRC/ilatrans.f index 6b90bfc765..e822261ef7 100644 --- a/lapack-netlib/SRC/ilatrans.f +++ b/lapack-netlib/SRC/ilatrans.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILATRANS( TRANS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ilauplo.f b/lapack-netlib/SRC/ilauplo.f index 89bc9b225e..8d5b1210be 100644 --- a/lapack-netlib/SRC/ilauplo.f +++ b/lapack-netlib/SRC/ilauplo.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILAUPLO( UPLO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ilazlc.f b/lapack-netlib/SRC/ilazlc.f index 07dfc93e31..8af3430e61 100644 --- a/lapack-netlib/SRC/ilazlc.f +++ b/lapack-netlib/SRC/ilazlc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilazlr.f b/lapack-netlib/SRC/ilazlr.f index 4ca4ed1a44..e0134a6a35 100644 --- a/lapack-netlib/SRC/ilazlr.f +++ b/lapack-netlib/SRC/ilazlr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iparam2stage.F b/lapack-netlib/SRC/iparam2stage.F index 1a37300a7d..c153eef22b 100644 --- a/lapack-netlib/SRC/iparam2stage.F +++ b/lapack-netlib/SRC/iparam2stage.F @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERauxiliary * *> \par Further Details: @@ -159,10 +157,9 @@ INTEGER FUNCTION IPARAM2STAGE( ISPEC, NAME, OPTS, #endif IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS diff --git a/lapack-netlib/SRC/iparmq.f b/lapack-netlib/SRC/iparmq.f index bb711243da..54c05471ca 100644 --- a/lapack-netlib/SRC/iparmq.f +++ b/lapack-netlib/SRC/iparmq.f @@ -100,6 +100,10 @@ *> IPARMQ(ISPEC=16)=1 may be more efficient than *> IPARMQ(ISPEC=16)=2 despite the greater level of *> arithmetic work implied by the latter choice.) +*> +*> ISPEC=17: (ICOST) An estimate of the relative cost of flops +*> within the near-the-diagonal shift chase compared +*> to flops within the BLAS calls of a QZ sweep. *> \endverbatim *> *> \param[in] NAME @@ -147,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -217,15 +219,18 @@ *> IPARMQ(ISPEC=16) Select structured matrix multiply. *> (See ISPEC=16 above for details.) *> Default: 3. +*> +*> IPARMQ(ISPEC=17) Relative cost heuristic for blocksize selection. +*> Expressed as a percentage. +*> Default: 10. *> \endverbatim *> * ===================================================================== INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHI, ILO, ISPEC, LWORK, N @@ -233,12 +238,12 @@ INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) * * ================================================================ * .. Parameters .. - INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22 + INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22, ICOST PARAMETER ( INMIN = 12, INWIN = 13, INIBL = 14, - $ ISHFTS = 15, IACC22 = 16 ) - INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP + $ ISHFTS = 15, IACC22 = 16, ICOST = 17 ) + INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP, RCOST PARAMETER ( NMIN = 75, K22MIN = 14, KACMIN = 14, - $ NIBBLE = 14, KNWSWP = 500 ) + $ NIBBLE = 14, KNWSWP = 500, RCOST = 10 ) REAL TWO PARAMETER ( TWO = 2.0 ) * .. @@ -384,6 +389,12 @@ INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) $ IPARMQ = 2 END IF * + ELSE IF( ISPEC.EQ.ICOST ) THEN +* +* === Relative cost of near-the-diagonal chase vs +* BLAS updates === +* + IPARMQ = RCOST ELSE * ===== invalid value of ispec ===== IPARMQ = -1 diff --git a/lapack-netlib/SRC/izmax1.f b/lapack-netlib/SRC/izmax1.f index bec5c68ea7..210652fd1c 100644 --- a/lapack-netlib/SRC/izmax1.f +++ b/lapack-netlib/SRC/izmax1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2014 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== INTEGER FUNCTION IZMAX1( N, ZX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2014 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/la_constants.c b/lapack-netlib/SRC/la_constants.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/la_constants.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b LA_CONSTANTS is a module for the scaling constants for the compiled Fortran single and double precisions +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date May 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +module LA_CONSTANTS +! -- LAPACK auxiliary module -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- + +! Standard constants for + integer, parameter :: sp = kind(1.e0) + + real(sp), parameter :: szero = 0.0_sp + real(sp), parameter :: shalf = 0.5_sp + real(sp), parameter :: sone = 1.0_sp + real(sp), parameter :: stwo = 2.0_sp + real(sp), parameter :: sthree = 3.0_sp + real(sp), parameter :: sfour = 4.0_sp + real(sp), parameter :: seight = 8.0_sp + real(sp), parameter :: sten = 10.0_sp + complex(sp), parameter :: czero = ( 0.0_sp, 0.0_sp ) + complex(sp), parameter :: chalf = ( 0.5_sp, 0.0_sp ) + complex(sp), parameter :: cone = ( 1.0_sp, 0.0_sp ) + character*1, parameter :: sprefix = 'S' + character*1, parameter :: cprefix = 'C' + +! Scaling constants + real(sp), parameter :: sulp = epsilon(0._sp) + real(sp), parameter :: seps = sulp * 0.5_sp + real(sp), parameter :: ssafmin = real(radix(0._sp),sp)**max( & + minexponent(0._sp)-1, & + 1-maxexponent(0._sp) & + ) + real(sp), parameter :: ssafmax = sone / ssafmin + real(sp), parameter :: ssmlnum = ssafmin / sulp + real(sp), parameter :: sbignum = ssafmax * sulp + real(sp), parameter :: srtmin = sqrt(ssmlnum) + real(sp), parameter :: srtmax = sqrt(sbignum) + +! Blue's scaling constants + real(sp), parameter :: stsml = real(radix(0._sp), sp)**ceiling( & + (minexponent(0._sp) - 1) * 0.5_sp) + real(sp), parameter :: stbig = real(radix(0._sp), sp)**floor( & + (maxexponent(0._sp) - digits(0._sp) + 1) * 0.5_sp) +! ssml >= 1/s, where s was defined in https://doi.org/10.1145/355769.355771 +! The correction was added in https://doi.org/10.1145/3061665 to scale denormalized numbers correctly + real(sp), parameter :: sssml = real(radix(0._sp), sp)**( - floor( & + (minexponent(0._sp) - digits(0._sp)) * 0.5_sp)) +! sbig = 1/S, where S was defined in https://doi.org/10.1145/355769.355771 + real(sp), parameter :: ssbig = real(radix(0._sp), sp)**( - ceiling( & + (maxexponent(0._sp) + digits(0._sp) - 1) * 0.5_sp)) + +! Standard constants for + integer, parameter :: dp = kind(1.d0) + + real(dp), parameter :: dzero = 0.0_dp + real(dp), parameter :: dhalf = 0.5_dp + real(dp), parameter :: done = 1.0_dp + real(dp), parameter :: dtwo = 2.0_dp + real(dp), parameter :: dthree = 3.0_dp + real(dp), parameter :: dfour = 4.0_dp + real(dp), parameter :: deight = 8.0_dp + real(dp), parameter :: dten = 10.0_dp + complex(dp), parameter :: zzero = ( 0.0_dp, 0.0_dp ) + complex(dp), parameter :: zhalf = ( 0.5_dp, 0.0_dp ) + complex(dp), parameter :: zone = ( 1.0_dp, 0.0_dp ) + character*1, parameter :: dprefix = 'D' + character*1, parameter :: zprefix = 'Z' + +! Scaling constants + real(dp), parameter :: dulp = epsilon(0._dp) + real(dp), parameter :: deps = dulp * 0.5_dp + real(dp), parameter :: dsafmin = real(radix(0._dp),dp)**max( & + minexponent(0._dp)-1, & + 1-maxexponent(0._dp) & + ) + real(dp), parameter :: dsafmax = done / dsafmin + real(dp), parameter :: dsmlnum = dsafmin / dulp + real(dp), parameter :: dbignum = dsafmax * dulp + real(dp), parameter :: drtmin = sqrt(dsmlnum) + real(dp), parameter :: drtmax = sqrt(dbignum) + +! Blue's scaling constants + real(dp), parameter :: dtsml = real(radix(0._dp), dp)**ceiling( & + (minexponent(0._dp) - 1) * 0.5_dp) + real(dp), parameter :: dtbig = real(radix(0._dp), dp)**floor( & + (maxexponent(0._dp) - digits(0._dp) + 1) * 0.5_dp) +! ssml >= 1/s, where s was defined in https://doi.org/10.1145/355769.355771 +! The correction was added in https://doi.org/10.1145/3061665 to scale denormalized numbers correctly + real(dp), parameter :: dssml = real(radix(0._dp), dp)**( - floor( & + (minexponent(0._dp) - digits(0._dp)) * 0.5_dp)) +! sbig = 1/S, where S was defined in https://doi.org/10.1145/355769.355771 + real(dp), parameter :: dsbig = real(radix(0._dp), dp)**( - ceiling( & + (maxexponent(0._dp) + digits(0._dp) - 1) * 0.5_dp)) + +end module LA_CONSTANTS diff --git a/lapack-netlib/SRC/la_xisnan.F90 b/lapack-netlib/SRC/la_xisnan.F90 new file mode 100644 index 0000000000..50966a5c18 --- /dev/null +++ b/lapack-netlib/SRC/la_xisnan.F90 @@ -0,0 +1,59 @@ +module LA_XISNAN + interface LA_ISNAN + + module procedure SISNAN + module procedure DISNAN + + end interface + +contains + + logical function SISNAN( x ) + use LA_CONSTANTS, only: wp=>sp +#ifdef USE_IEEE_INTRINSIC + use, intrinsic :: ieee_arithmetic +#elif USE_ISNAN + intrinsic :: isnan +#endif + real(wp) :: x +#ifdef USE_IEEE_INTRINSIC + sisnan = ieee_is_nan(x) +#elif USE_ISNAN + sisnan = isnan(x) +#else + sisnan = SLAISNAN(x,x) + + contains + logical function SLAISNAN( x, y ) + use LA_CONSTANTS, only: wp=>sp + real(wp) :: x, y + SLAISNAN = ( x.ne.y ) + end function SLAISNAN +#endif + end function SISNAN + + logical function DISNAN( x ) + use LA_CONSTANTS, only: wp=>dp +#ifdef USE_IEEE_INTRINSIC + use, intrinsic :: ieee_arithmetic +#elif USE_ISNAN + intrinsic :: isnan +#endif + real(wp) :: x +#ifdef USE_IEEE_INTRINSIC + DISNAN = ieee_is_nan(x) +#elif USE_ISNAN + DISNAN = isnan(x) +#else + DISNAN = DLAISNAN(x,x) + + contains + logical function DLAISNAN( x, y ) + use LA_CONSTANTS, only: wp=>dp + real(wp) :: x, y + DLAISNAN = ( x.ne.y ) + end function DLAISNAN +#endif + end function DISNAN + +end module LA_XISNAN diff --git a/lapack-netlib/SRC/la_xisnan.c b/lapack-netlib/SRC/la_xisnan.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/la_xisnan.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION LSAMEN( N, CA, CB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) CA, CB diff --git a/lapack-netlib/SRC/sbbcsd.f b/lapack-netlib/SRC/sbbcsd.f index e1f83976f0..d5720cb33b 100644 --- a/lapack-netlib/SRC/sbbcsd.f +++ b/lapack-netlib/SRC/sbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE SBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ SUBROUTINE SBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - REAL HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + REAL HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0E0, MEIGHTH = -0.125E0, - $ ONE = 1.0E0, PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ONE = 1.0E0, TEN = 10.0E0, ZERO = 0.0E0 ) REAL NEGONE PARAMETER ( NEGONE = -1.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/sbdsdc.f b/lapack-netlib/SRC/sbdsdc.f index 1c559cec7e..18a4044979 100644 --- a/lapack-netlib/SRC/sbdsdc.f +++ b/lapack-netlib/SRC/sbdsdc.f @@ -191,8 +191,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -205,10 +203,9 @@ SUBROUTINE SBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, UPLO diff --git a/lapack-netlib/SRC/sbdsqr.f b/lapack-netlib/SRC/sbdsqr.f index b0067f6799..c798baaf54 100644 --- a/lapack-netlib/SRC/sbdsqr.f +++ b/lapack-netlib/SRC/sbdsqr.f @@ -232,18 +232,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sbdsvdx.f b/lapack-netlib/SRC/sbdsvdx.f index c46674c47c..dcd554f1d7 100644 --- a/lapack-netlib/SRC/sbdsvdx.f +++ b/lapack-netlib/SRC/sbdsvdx.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/scsum1.f b/lapack-netlib/SRC/scsum1.f index 7fa03198ff..2616e4b789 100644 --- a/lapack-netlib/SRC/scsum1.f +++ b/lapack-netlib/SRC/scsum1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== REAL FUNCTION SCSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/sdisna.f b/lapack-netlib/SRC/sdisna.f index b034033871..004ceae673 100644 --- a/lapack-netlib/SRC/sdisna.f +++ b/lapack-netlib/SRC/sdisna.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SDISNA( JOB, M, N, D, SEP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgbbrd.f b/lapack-netlib/SRC/sgbbrd.f index 4711c80749..74e9fe7675 100644 --- a/lapack-netlib/SRC/sgbbrd.f +++ b/lapack-netlib/SRC/sgbbrd.f @@ -179,18 +179,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/sgbcon.f b/lapack-netlib/SRC/sgbcon.f index 2294bbf4e9..1914f152cd 100644 --- a/lapack-netlib/SRC/sgbcon.f +++ b/lapack-netlib/SRC/sgbcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgbequ.f b/lapack-netlib/SRC/sgbequ.f index 1001361574..b3c4dfd5db 100644 --- a/lapack-netlib/SRC/sgbequ.f +++ b/lapack-netlib/SRC/sgbequ.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbequb.f b/lapack-netlib/SRC/sgbequb.f index 5fa4abfc82..206624d2a9 100644 --- a/lapack-netlib/SRC/sgbequb.f +++ b/lapack-netlib/SRC/sgbequb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbrfs.f b/lapack-netlib/SRC/sgbrfs.f index 593c158613..2a8f3d1f2e 100644 --- a/lapack-netlib/SRC/sgbrfs.f +++ b/lapack-netlib/SRC/sgbrfs.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -205,10 +203,9 @@ SUBROUTINE SGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgbrfsx.f b/lapack-netlib/SRC/sgbrfsx.f index 78ae584e11..0193ba4f07 100644 --- a/lapack-netlib/SRC/sgbrfsx.f +++ b/lapack-netlib/SRC/sgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is REAL array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by SGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ SUBROUTINE SGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/sgbsv.f b/lapack-netlib/SRC/sgbsv.f index 9b922966ec..d4af6dfe3f 100644 --- a/lapack-netlib/SRC/sgbsv.f +++ b/lapack-netlib/SRC/sgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE SGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgbsvx.f b/lapack-netlib/SRC/sgbsvx.f index acd7db2846..40829a71b3 100644 --- a/lapack-netlib/SRC/sgbsvx.f +++ b/lapack-netlib/SRC/sgbsvx.f @@ -359,8 +359,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBsolve * * ===================================================================== @@ -368,10 +366,9 @@ SUBROUTINE SGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgbsvxx.f b/lapack-netlib/SRC/sgbsvxx.f index 3c3d737b30..aef9034ae8 100644 --- a/lapack-netlib/SRC/sgbsvxx.f +++ b/lapack-netlib/SRC/sgbsvxx.f @@ -552,8 +552,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBsolve * * ===================================================================== @@ -563,10 +561,9 @@ SUBROUTINE SGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgbtf2.f b/lapack-netlib/SRC/sgbtf2.f index ecf10e3149..8bdea3902f 100644 --- a/lapack-netlib/SRC/sgbtf2.f +++ b/lapack-netlib/SRC/sgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbtrf.f b/lapack-netlib/SRC/sgbtrf.f index 2572f37b79..56712f157e 100644 --- a/lapack-netlib/SRC/sgbtrf.f +++ b/lapack-netlib/SRC/sgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE SGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbtrs.f b/lapack-netlib/SRC/sgbtrs.f index 477b033318..fc4601b5f1 100644 --- a/lapack-netlib/SRC/sgbtrs.f +++ b/lapack-netlib/SRC/sgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgebak.f b/lapack-netlib/SRC/sgebak.f index 5c64c8b972..b51b611a95 100644 --- a/lapack-netlib/SRC/sgebak.f +++ b/lapack-netlib/SRC/sgebak.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/sgebal.f b/lapack-netlib/SRC/sgebal.f index d34dc3b673..f519c8c575 100644 --- a/lapack-netlib/SRC/sgebal.f +++ b/lapack-netlib/SRC/sgebal.f @@ -121,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -160,10 +158,9 @@ * ===================================================================== SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgebd2.f b/lapack-netlib/SRC/sgebd2.f index 2123ce25e3..cb57ed6780 100644 --- a/lapack-netlib/SRC/sgebd2.f +++ b/lapack-netlib/SRC/sgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgebrd.f b/lapack-netlib/SRC/sgebrd.f index e825b4fc92..08701164cf 100644 --- a/lapack-netlib/SRC/sgebrd.f +++ b/lapack-netlib/SRC/sgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgecon.f b/lapack-netlib/SRC/sgecon.f index d8f087ddf2..a284b094be 100644 --- a/lapack-netlib/SRC/sgecon.f +++ b/lapack-netlib/SRC/sgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgeequ.f b/lapack-netlib/SRC/sgeequ.f index bb5592bd10..9928eaf621 100644 --- a/lapack-netlib/SRC/sgeequ.f +++ b/lapack-netlib/SRC/sgeequ.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeequb.f b/lapack-netlib/SRC/sgeequb.f index e04ee451d2..c669f4c0e0 100644 --- a/lapack-netlib/SRC/sgeequb.f +++ b/lapack-netlib/SRC/sgeequb.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgees.f b/lapack-netlib/SRC/sgees.f index 06c4513220..d40503f899 100644 --- a/lapack-netlib/SRC/sgees.f +++ b/lapack-netlib/SRC/sgees.f @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEeigen * * ===================================================================== SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT diff --git a/lapack-netlib/SRC/sgeesx.f b/lapack-netlib/SRC/sgeesx.f index 5ffa3bc376..27c4338d40 100644 --- a/lapack-netlib/SRC/sgeesx.f +++ b/lapack-netlib/SRC/sgeesx.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -281,10 +279,9 @@ SUBROUTINE SGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT diff --git a/lapack-netlib/SRC/sgeev.f b/lapack-netlib/SRC/sgeev.f index 08c5a57f40..ed17247219 100644 --- a/lapack-netlib/SRC/sgeev.f +++ b/lapack-netlib/SRC/sgeev.f @@ -181,7 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from dgeev.f, fortran d -> s, Tue Apr 19 01:47:44 2016 * @@ -192,10 +191,9 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/sgeevx.f b/lapack-netlib/SRC/sgeevx.f index b11f50041f..ed1ea1cb98 100644 --- a/lapack-netlib/SRC/sgeevx.f +++ b/lapack-netlib/SRC/sgeevx.f @@ -294,7 +294,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from dgeevx.f, fortran d -> s, Tue Apr 19 01:47:44 2016 * @@ -306,10 +305,9 @@ SUBROUTINE SGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, WR, WI, $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/sgehd2.f b/lapack-netlib/SRC/sgehd2.f index 6a172b7b27..c7d8db19ec 100644 --- a/lapack-netlib/SRC/sgehd2.f +++ b/lapack-netlib/SRC/sgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/sgehrd.f b/lapack-netlib/SRC/sgehrd.f index 75a1bca036..41b9aa78e4 100644 --- a/lapack-netlib/SRC/sgehrd.f +++ b/lapack-netlib/SRC/sgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's SGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See SLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sgejsv.f b/lapack-netlib/SRC/sgejsv.f index 4ad316d99b..82ac6b94b5 100644 --- a/lapack-netlib/SRC/sgejsv.f +++ b/lapack-netlib/SRC/sgejsv.f @@ -289,7 +289,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * *> \par Further Details: @@ -476,10 +474,9 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. IMPLICIT NONE @@ -932,7 +929,7 @@ SUBROUTINE SGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * (eg speed by replacing global with restricted window pivoting, such * as in SGEQPX from TOMS # 782). Good results will be obtained using * SGEQPX with properly (!) chosen numerical parameters. -* Any improvement of SGEQP3 improves overal performance of SGEJSV. +* Any improvement of SGEQP3 improves overall performance of SGEJSV. * * A * P1 = Q1 * [ R1^t 0]^t: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/sgelq.f b/lapack-netlib/SRC/sgelq.f index e45c68db42..9209f918ec 100644 --- a/lapack-netlib/SRC/sgelq.f +++ b/lapack-netlib/SRC/sgelq.f @@ -170,10 +170,9 @@ SUBROUTINE SGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/sgelq2.f b/lapack-netlib/SRC/sgelq2.f index df8128d53c..3e50beb13e 100644 --- a/lapack-netlib/SRC/sgelq2.f +++ b/lapack-netlib/SRC/sgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgelqf.f b/lapack-netlib/SRC/sgelqf.f index 90357e6239..24d8ab19c0 100644 --- a/lapack-netlib/SRC/sgelqf.f +++ b/lapack-netlib/SRC/sgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgelqt.f b/lapack-netlib/SRC/sgelqt.f index 64d46025c1..b5a4c21b30 100644 --- a/lapack-netlib/SRC/sgelqt.f +++ b/lapack-netlib/SRC/sgelqt.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -124,10 +122,9 @@ * ===================================================================== SUBROUTINE SGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/sgelqt3.f b/lapack-netlib/SRC/sgelqt3.f index edf5d6d304..23816b4c89 100644 --- a/lapack-netlib/SRC/sgelqt3.f +++ b/lapack-netlib/SRC/sgelqt3.f @@ -18,7 +18,7 @@ *> *> \verbatim *> -*> DGELQT3 recursively computes a LQ factorization of a real M-by-N +*> SGELQT3 recursively computes a LQ factorization of a real M-by-N *> matrix A, using the compact WY representation of Q. *> *> Based on the algorithm of Elmroth and Gustavson, @@ -85,8 +85,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -116,10 +114,9 @@ * ===================================================================== RECURSIVE SUBROUTINE SGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -159,7 +156,7 @@ RECURSIVE SUBROUTINE SGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL SLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/lapack-netlib/SRC/sgels.f b/lapack-netlib/SRC/sgels.f index ee50f30ada..ea02c3318b 100644 --- a/lapack-netlib/SRC/sgels.f +++ b/lapack-netlib/SRC/sgels.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgelsd.f b/lapack-netlib/SRC/sgelsd.f index 9a18961d64..f5f17d34c5 100644 --- a/lapack-netlib/SRC/sgelsd.f +++ b/lapack-netlib/SRC/sgelsd.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE SGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, $ RANK, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgelss.f b/lapack-netlib/SRC/sgelss.f index 84a882d2ed..be9e2ea116 100644 --- a/lapack-netlib/SRC/sgelss.f +++ b/lapack-netlib/SRC/sgelss.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgelsy.f b/lapack-netlib/SRC/sgelsy.f index 58bd7c8cf6..9c60f78a7a 100644 --- a/lapack-netlib/SRC/sgelsy.f +++ b/lapack-netlib/SRC/sgelsy.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgemlq.f b/lapack-netlib/SRC/sgemlq.f index 5f2e02a8e7..536abf1840 100644 --- a/lapack-netlib/SRC/sgemlq.f +++ b/lapack-netlib/SRC/sgemlq.f @@ -168,10 +168,9 @@ SUBROUTINE SGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgemlqt.f b/lapack-netlib/SRC/sgemlqt.f index 37850fdf56..bb128c824d 100644 --- a/lapack-netlib/SRC/sgemlqt.f +++ b/lapack-netlib/SRC/sgemlqt.f @@ -31,7 +31,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by DGELQT. +*> generated using the compact WY representation as returned by SGELQT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -79,7 +79,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in SGELQT. *> \endverbatim *> *> \param[in] V @@ -89,7 +89,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> SGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -102,7 +102,7 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by SGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -171,7 +168,7 @@ SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -195,8 +192,10 @@ SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -206,7 +205,7 @@ SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/sgemqr.f b/lapack-netlib/SRC/sgemqr.f index 66c5117c9f..2a92574591 100644 --- a/lapack-netlib/SRC/sgemqr.f +++ b/lapack-netlib/SRC/sgemqr.f @@ -170,10 +170,9 @@ SUBROUTINE SGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgemqrt.f b/lapack-netlib/SRC/sgemqrt.f index 843151a9ce..2dedfb2126 100644 --- a/lapack-netlib/SRC/sgemqrt.f +++ b/lapack-netlib/SRC/sgemqrt.f @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in SGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is REAL array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> SGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by SGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgeql2.f b/lapack-netlib/SRC/sgeql2.f index 53009b9de4..ea5ad6b82d 100644 --- a/lapack-netlib/SRC/sgeql2.f +++ b/lapack-netlib/SRC/sgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqlf.f b/lapack-netlib/SRC/sgeqlf.f index ccf7a0a0d8..efecfbb3ca 100644 --- a/lapack-netlib/SRC/sgeqlf.f +++ b/lapack-netlib/SRC/sgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqp3.f b/lapack-netlib/SRC/sgeqp3.f index 303a944f4d..493bdae6af 100644 --- a/lapack-netlib/SRC/sgeqp3.f +++ b/lapack-netlib/SRC/sgeqp3.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqr.f b/lapack-netlib/SRC/sgeqr.f index 4a6bb9ea5a..6f41a92ead 100644 --- a/lapack-netlib/SRC/sgeqr.f +++ b/lapack-netlib/SRC/sgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/sgeqr2.f b/lapack-netlib/SRC/sgeqr2.f index 0a1ff304fd..5eef521f27 100644 --- a/lapack-netlib/SRC/sgeqr2.f +++ b/lapack-netlib/SRC/sgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqr2p.f b/lapack-netlib/SRC/sgeqr2p.f index 08d1247976..0d270e9aa8 100644 --- a/lapack-netlib/SRC/sgeqr2p.f +++ b/lapack-netlib/SRC/sgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqrf.f b/lapack-netlib/SRC/sgeqrf.f index 7df495e045..f47d8bf322 100644 --- a/lapack-netlib/SRC/sgeqrf.f +++ b/lapack-netlib/SRC/sgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'SGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'SGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/sgeqrfp.f b/lapack-netlib/SRC/sgeqrfp.f index 7f67415701..03d33654ba 100644 --- a/lapack-netlib/SRC/sgeqrfp.f +++ b/lapack-netlib/SRC/sgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqrt.f b/lapack-netlib/SRC/sgeqrt.f index f7c58172c3..926e4a6541 100644 --- a/lapack-netlib/SRC/sgeqrt.f +++ b/lapack-netlib/SRC/sgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/sgeqrt3.f b/lapack-netlib/SRC/sgeqrt3.f index 8316c7fed0..301bad2148 100644 --- a/lapack-netlib/SRC/sgeqrt3.f +++ b/lapack-netlib/SRC/sgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/sgerfs.f b/lapack-netlib/SRC/sgerfs.f index aba761de10..c31ea1bd64 100644 --- a/lapack-netlib/SRC/sgerfs.f +++ b/lapack-netlib/SRC/sgerfs.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgerfsx.f b/lapack-netlib/SRC/sgerfsx.f index b1a1eb13d1..b5d044872a 100644 --- a/lapack-netlib/SRC/sgerfsx.f +++ b/lapack-netlib/SRC/sgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ SUBROUTINE SGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/sgerq2.f b/lapack-netlib/SRC/sgerq2.f index 68f78c6e2b..d86905c033 100644 --- a/lapack-netlib/SRC/sgerq2.f +++ b/lapack-netlib/SRC/sgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgerqf.f b/lapack-netlib/SRC/sgerqf.f index 8b842cbd89..037cd5345b 100644 --- a/lapack-netlib/SRC/sgerqf.f +++ b/lapack-netlib/SRC/sgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -179,8 +177,6 @@ SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 END IF * IF( INFO.EQ.0 ) THEN @@ -190,12 +186,12 @@ SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) ELSE NB = ILAENV( 1, 'SGERQF', ' ', M, N, -1, -1 ) LWKOPT = M*NB - WORK( 1 ) = LWKOPT END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/sgesc2.f b/lapack-netlib/SRC/sgesc2.f index 3a6f34584d..2de2ed7ccb 100644 --- a/lapack-netlib/SRC/sgesc2.f +++ b/lapack-netlib/SRC/sgesc2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * *> \par Contributors: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/sgesdd.f b/lapack-netlib/SRC/sgesdd.f index 89e03a002f..d3b5e3ba14 100644 --- a/lapack-netlib/SRC/sgesdd.f +++ b/lapack-netlib/SRC/sgesdd.f @@ -191,9 +191,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: SBDSDC did not converge, updating process failed. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -204,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * *> \par Contributors: @@ -219,10 +218,9 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -268,8 +266,9 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * .. * .. External Functions .. LOGICAL LSAME, SISNAN - REAL SLAMCH, SLANGE - EXTERNAL SLAMCH, SLANGE, LSAME, SISNAN + REAL SLAMCH, SLANGE, SROUNDUP_LWORK + EXTERNAL SLAMCH, SLANGE, LSAME, SISNAN, + $ SROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -570,7 +569,7 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, END IF MAXWRK = MAX( MAXWRK, MINWRK ) - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN INFO = -12 @@ -1543,7 +1542,7 @@ SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/sgesv.f b/lapack-netlib/SRC/sgesv.f index 6ef2cf98b5..4f4fe5215f 100644 --- a/lapack-netlib/SRC/sgesv.f +++ b/lapack-netlib/SRC/sgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgesvd.f b/lapack-netlib/SRC/sgesvd.f index c1756fa613..83321ffaa1 100644 --- a/lapack-netlib/SRC/sgesvd.f +++ b/lapack-netlib/SRC/sgesvd.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsing * * ===================================================================== SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/sgesvdq.f b/lapack-netlib/SRC/sgesvdq.f index 73e34862f6..ebbfc70b15 100644 --- a/lapack-netlib/SRC/sgesvdq.f +++ b/lapack-netlib/SRC/sgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -231,7 +231,7 @@ *> LIWORK >= N if JOBP = 'N' and JOBA .NE. 'E'; *> LIWORK >= N + M - 1 + N, if JOBP = 'P' and JOBA = 'E'; *> LIWORK >= N + N if JOBP = 'N' and JOBA = 'E'. -* +*> *> If LIWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -317,7 +317,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in SGESVD applied to the upper triangular or trapeziodal +*> exact zeros in SGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> SGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -331,7 +331,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M). *> Otherwise, LRWORK >= 2 -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -406,8 +406,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup realGEsing * * ===================================================================== @@ -644,7 +642,7 @@ SUBROUTINE SGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 SGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 SGESVD +* .. minimal workspace length for N/2 x N/2 SGESVD LWSVD2 = MAX( 5 * (N/2), 1 ) LWORQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/sgesvdx.f b/lapack-netlib/SRC/sgesvdx.f index d74e98f10b..b6495dbd4b 100644 --- a/lapack-netlib/SRC/sgesvdx.f +++ b/lapack-netlib/SRC/sgesvdx.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * * ===================================================================== @@ -263,10 +261,9 @@ SUBROUTINE SGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/sgesvj.f b/lapack-netlib/SRC/sgesvj.f index fee5aba4a8..3f53a5a152 100644 --- a/lapack-netlib/SRC/sgesvj.f +++ b/lapack-netlib/SRC/sgesvj.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -279,7 +277,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [5,6], and it is the kernel routine in the SIGMA library [7]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. \n *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -323,10 +321,9 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/lapack-netlib/SRC/sgesvx.f b/lapack-netlib/SRC/sgesvx.f index b297a36d6a..930b88c336 100644 --- a/lapack-netlib/SRC/sgesvx.f +++ b/lapack-netlib/SRC/sgesvx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsolve * * ===================================================================== @@ -349,10 +347,9 @@ SUBROUTINE SGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgesvxx.f b/lapack-netlib/SRC/sgesvxx.f index 7cb29d5ab2..35eff717aa 100644 --- a/lapack-netlib/SRC/sgesvxx.f +++ b/lapack-netlib/SRC/sgesvxx.f @@ -532,8 +532,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsolve * * ===================================================================== @@ -543,10 +541,9 @@ SUBROUTINE SGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgetc2.f b/lapack-netlib/SRC/sgetc2.f index 6bf0a93c65..a871a03ff3 100644 --- a/lapack-netlib/SRC/sgetc2.f +++ b/lapack-netlib/SRC/sgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/sgetf2.f b/lapack-netlib/SRC/sgetf2.f index 8d28a4a0cd..d38c124c7a 100644 --- a/lapack-netlib/SRC/sgetf2.f +++ b/lapack-netlib/SRC/sgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetrf.f b/lapack-netlib/SRC/sgetrf.f index 9e13f0fcaa..7a4a2aa5a7 100644 --- a/lapack-netlib/SRC/sgetrf.f +++ b/lapack-netlib/SRC/sgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetrf2.f b/lapack-netlib/SRC/sgetrf2.f index aa826f6e6b..68ebfac46c 100644 --- a/lapack-netlib/SRC/sgetrf2.f +++ b/lapack-netlib/SRC/sgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetri.f b/lapack-netlib/SRC/sgetri.f index e609247712..749ede9a77 100644 --- a/lapack-netlib/SRC/sgetri.f +++ b/lapack-netlib/SRC/sgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sgetrs.f b/lapack-netlib/SRC/sgetrs.f index d52f773d13..e5f3e3a90f 100644 --- a/lapack-netlib/SRC/sgetrs.f +++ b/lapack-netlib/SRC/sgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgetsls.f b/lapack-netlib/SRC/sgetsls.f index 3bf084515f..e6ce705fa4 100644 --- a/lapack-netlib/SRC/sgetsls.f +++ b/lapack-netlib/SRC/sgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -184,16 +181,15 @@ SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 REAL ANRM, BIGNUM, BNRM, SMLNUM, TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SLAMCH, SLANGE - EXTERNAL LSAME, ILAENV, SLABAD, SLAMCH, SLANGE + EXTERNAL LSAME, SLABAD, SLAMCH, SLANGE * .. * .. External Subroutines .. EXTERNAL SGEQR, SGEMQR, SLASCL, SLASET, @@ -207,9 +203,7 @@ SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'T' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -230,7 +224,7 @@ SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL SGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -267,16 +261,16 @@ SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = REAL( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SGETSLS', -INFO ) - WORK( 1 ) = REAL( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) RETURN END IF diff --git a/lapack-netlib/SRC/sggbak.f b/lapack-netlib/SRC/sggbak.f index 7e5620ee6d..bb7f360112 100644 --- a/lapack-netlib/SRC/sggbak.f +++ b/lapack-netlib/SRC/sggbak.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -147,10 +145,9 @@ SUBROUTINE SGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/sggbal.f b/lapack-netlib/SRC/sggbal.f index 3e64a0f762..6cfdbcdba7 100644 --- a/lapack-netlib/SRC/sggbal.f +++ b/lapack-netlib/SRC/sggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE SGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgges.f b/lapack-netlib/SRC/sgges.f index 75f31c76f3..3834aea000 100644 --- a/lapack-netlib/SRC/sgges.f +++ b/lapack-netlib/SRC/sgges.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -284,10 +282,9 @@ SUBROUTINE SGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/sgges3.f b/lapack-netlib/SRC/sgges3.f index 81ab96c4f7..b27704ff50 100644 --- a/lapack-netlib/SRC/sgges3.f +++ b/lapack-netlib/SRC/sgges3.f @@ -256,7 +256,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHAR(j), ALPHAI(j), and BETA(j) should *> be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in SHGEQZ. +*> > N: =N+1: other than QZ iteration failed in SLAQZ0. *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realGEeigen * * ===================================================================== @@ -282,10 +280,9 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -321,7 +318,7 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, REAL DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SHGEQZ, SLABAD, + EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SLAQZ0, SLABAD, $ SLACPY, SLASCL, SLASET, SORGQR, SORMQR, STGSEN, $ XERBLA * .. @@ -400,9 +397,9 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, CALL SGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK( 1 ) ) ) - CALL SHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK( 1 ) ) ) IF( WANTST ) THEN CALL STGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -513,9 +510,9 @@ SUBROUTINE SGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL SHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/sggesx.f b/lapack-netlib/SRC/sggesx.f index 25691d164e..a6c0443bac 100644 --- a/lapack-netlib/SRC/sggesx.f +++ b/lapack-netlib/SRC/sggesx.f @@ -337,8 +337,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -365,10 +363,9 @@ SUBROUTINE SGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/sggev.f b/lapack-netlib/SRC/sggev.f index 8551eb08f1..69744b72b4 100644 --- a/lapack-netlib/SRC/sggev.f +++ b/lapack-netlib/SRC/sggev.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEeigen * * ===================================================================== SUBROUTINE SGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/sggev3.f b/lapack-netlib/SRC/sggev3.f index 7a253ad19e..945c3a017d 100644 --- a/lapack-netlib/SRC/sggev3.f +++ b/lapack-netlib/SRC/sggev3.f @@ -205,7 +205,7 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHAR(j), ALPHAI(j), and BETA(j) *> should be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in SHGEQZ. +*> > N: =N+1: other than QZ iteration failed in SLAQZ0. *> =N+2: error return from STGEVC. *> \endverbatim * @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realGEeigen * * ===================================================================== @@ -226,10 +224,9 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -259,7 +256,7 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SHGEQZ, SLABAD, + EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SLAQZ0, SLABAD, $ SLACPY, SLASCL, SLASET, SORGQR, SORMQR, STGEVC, $ XERBLA * .. @@ -334,14 +331,14 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, IF( ILVL ) THEN CALL SORGQR( N, N, N, VL, LDVL, WORK, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT ( WORK( 1 ) ) ) - CALL SHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT ( WORK( 1 ) ) ) ELSE - CALL SHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT ( WORK( 1 ) ) ) END IF WORK( 1 ) = REAL( LWKOPT ) @@ -464,9 +461,9 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ELSE CHTEMP = 'E' END IF - CALL SHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL SLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/sggevx.f b/lapack-netlib/SRC/sggevx.f index 08f02251f2..bb05f499af 100644 --- a/lapack-netlib/SRC/sggevx.f +++ b/lapack-netlib/SRC/sggevx.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -391,10 +389,9 @@ SUBROUTINE SGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/sggglm.f b/lapack-netlib/SRC/sggglm.f index 572ee511d8..bbd032beb6 100644 --- a/lapack-netlib/SRC/sggglm.f +++ b/lapack-netlib/SRC/sggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sgghd3.f b/lapack-netlib/SRC/sgghd3.f index add2161400..23acf6ec5c 100644 --- a/lapack-netlib/SRC/sgghd3.f +++ b/lapack-netlib/SRC/sgghd3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGHRD + dependencies +*> Download SGGHD3 + dependencies *> *> [TGZ] *> @@ -211,8 +211,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -220,7 +218,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -230,10 +228,9 @@ SUBROUTINE SGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sgghrd.f b/lapack-netlib/SRC/sgghrd.f index 6580ab7713..210b4dae33 100644 --- a/lapack-netlib/SRC/sgghrd.f +++ b/lapack-netlib/SRC/sgghrd.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ SUBROUTINE SGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/sgglse.f b/lapack-netlib/SRC/sgglse.f index 20e319ce82..7ef8782b01 100644 --- a/lapack-netlib/SRC/sgglse.f +++ b/lapack-netlib/SRC/sgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * * ===================================================================== SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggqrf.f b/lapack-netlib/SRC/sggqrf.f index bce1d5b9e6..c57b16a563 100644 --- a/lapack-netlib/SRC/sggqrf.f +++ b/lapack-netlib/SRC/sggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggrqf.f b/lapack-netlib/SRC/sggrqf.f index 82a57b1705..c4a78c3477 100644 --- a/lapack-netlib/SRC/sggrqf.f +++ b/lapack-netlib/SRC/sggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggsvd3.f b/lapack-netlib/SRC/sggsvd3.f index 4f41fc3a85..9077f2ea81 100644 --- a/lapack-netlib/SRC/sggsvd3.f +++ b/lapack-netlib/SRC/sggsvd3.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup realGEsing * *> \par Contributors: @@ -349,10 +347,9 @@ SUBROUTINE SGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/sggsvp3.f b/lapack-netlib/SRC/sggsvp3.f index ec7229a337..4f76b32bc0 100644 --- a/lapack-netlib/SRC/sggsvp3.f +++ b/lapack-netlib/SRC/sggsvp3.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -272,10 +270,9 @@ SUBROUTINE SGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sgsvj0.f b/lapack-netlib/SRC/sgsvj0.f index d9177d818b..23b6f0077f 100644 --- a/lapack-netlib/SRC/sgsvj0.f +++ b/lapack-netlib/SRC/sgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP @@ -392,7 +389,7 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, * Some BLAS implementations compute SNRM2(M,A(1,p),1) * as SQRT(SDOT(M,A(1,p),1,A(1,p),1)), which may result in * overflow for ||A(:,p)||_2 > SQRT(overflow_threshold), and -* undeflow for ||A(:,p)||_2 < SQRT(underflow_threshold). +* underflow for ||A(:,p)||_2 < SQRT(underflow_threshold). * Hence, SNRM2 cannot be trusted, not even in the case when * the true norm is far from the under(over)flow boundaries. * If properly implemented SNRM2 is available, the IF-THEN-ELSE diff --git a/lapack-netlib/SRC/sgsvj1.f b/lapack-netlib/SRC/sgsvj1.f index ea4ba2e0e4..0345ccb421 100644 --- a/lapack-netlib/SRC/sgsvj1.f +++ b/lapack-netlib/SRC/sgsvj1.f @@ -40,7 +40,7 @@ *> SGSVJ1 is called from SGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as SGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -236,10 +234,9 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. REAL EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/sgtcon.f b/lapack-netlib/SRC/sgtcon.f index e053265ed9..65accb1221 100644 --- a/lapack-netlib/SRC/sgtcon.f +++ b/lapack-netlib/SRC/sgtcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgtrfs.f b/lapack-netlib/SRC/sgtrfs.f index 8d60da87e5..29c0be89d4 100644 --- a/lapack-netlib/SRC/sgtrfs.f +++ b/lapack-netlib/SRC/sgtrfs.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== @@ -209,10 +207,9 @@ SUBROUTINE SGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgtsv.f b/lapack-netlib/SRC/sgtsv.f index d18f9e5e3d..ac903ab3dd 100644 --- a/lapack-netlib/SRC/sgtsv.f +++ b/lapack-netlib/SRC/sgtsv.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTsolve * * ===================================================================== SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgtsvx.f b/lapack-netlib/SRC/sgtsvx.f index 4f00934c2e..a251302ca8 100644 --- a/lapack-netlib/SRC/sgtsvx.f +++ b/lapack-netlib/SRC/sgtsvx.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTsolve * * ===================================================================== @@ -293,10 +291,9 @@ SUBROUTINE SGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/sgttrf.f b/lapack-netlib/SRC/sgttrf.f index f9846dd85d..5df0367fe0 100644 --- a/lapack-netlib/SRC/sgttrf.f +++ b/lapack-netlib/SRC/sgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/sgttrs.f b/lapack-netlib/SRC/sgttrs.f index 4f302da7a1..f1e47a7941 100644 --- a/lapack-netlib/SRC/sgttrs.f +++ b/lapack-netlib/SRC/sgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgtts2.f b/lapack-netlib/SRC/sgtts2.f index 0cefb29e34..4820487de3 100644 --- a/lapack-netlib/SRC/sgtts2.f +++ b/lapack-netlib/SRC/sgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/shgeqz.f b/lapack-netlib/SRC/shgeqz.f index 34f6a8ce0d..79a9c60925 100644 --- a/lapack-netlib/SRC/shgeqz.f +++ b/lapack-netlib/SRC/shgeqz.f @@ -282,8 +282,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -304,10 +302,9 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -531,13 +528,17 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * GO TO 80 ELSE - IF( ABS( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( ILAST, ILAST ) ) + ABS( H( ILAST-1, ILAST-1 ) ) + $ ) ) ) THEN H( ILAST, ILAST-1 ) = ZERO GO TO 80 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = ZERO GO TO 70 END IF @@ -551,7 +552,9 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( J, J ) ) + ABS( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = ZERO ILAZRO = .TRUE. ELSE @@ -561,7 +564,10 @@ SUBROUTINE SHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = ZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/shsein.f b/lapack-netlib/SRC/shsein.f index 53a3327a13..f1983d541a 100644 --- a/lapack-netlib/SRC/shsein.f +++ b/lapack-netlib/SRC/shsein.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -263,10 +261,9 @@ SUBROUTINE SHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, WR, WI, $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/shseqr.f b/lapack-netlib/SRC/shseqr.f index d22bd7b940..3b8d4c4d8b 100644 --- a/lapack-netlib/SRC/shseqr.f +++ b/lapack-netlib/SRC/shseqr.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -316,10 +314,9 @@ SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/sisnan.f b/lapack-netlib/SRC/sisnan.f index 311bfbf95e..edde0651e9 100644 --- a/lapack-netlib/SRC/sisnan.f +++ b/lapack-netlib/SRC/sisnan.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SISNAN( SIN ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL, INTENT(IN) :: SIN diff --git a/lapack-netlib/SRC/sla_gbamv.f b/lapack-netlib/SRC/sla_gbamv.f index b513f24da6..c584466121 100644 --- a/lapack-netlib/SRC/sla_gbamv.f +++ b/lapack-netlib/SRC/sla_gbamv.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_gbrcond.f b/lapack-netlib/SRC/sla_gbrcond.f index 7f2c4062e4..5e1e5ef601 100644 --- a/lapack-netlib/SRC/sla_gbrcond.f +++ b/lapack-netlib/SRC/sla_gbrcond.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, $ IPIV, CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -347,5 +344,7 @@ REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, $ SLA_GBRCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_GBRCOND * END diff --git a/lapack-netlib/SRC/sla_gbrfsx_extended.f b/lapack-netlib/SRC/sla_gbrfsx_extended.f index 0fd1fd350d..499d6bf900 100644 --- a/lapack-netlib/SRC/sla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/sla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ SUBROUTINE SLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -703,4 +700,7 @@ SUBROUTINE SLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, END DO * RETURN +* +* End of SLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_gbrpvgrw.f b/lapack-netlib/SRC/sla_gbrpvgrw.f index 77e9f26b4e..5c8af01723 100644 --- a/lapack-netlib/SRC/sla_gbrpvgrw.f +++ b/lapack-netlib/SRC/sla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -157,4 +154,7 @@ REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, END IF END DO SLA_GBRPVGRW = RPVGRW +* +* End of SLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/sla_geamv.f b/lapack-netlib/SRC/sla_geamv.f index 7906d04d6c..7fe467985f 100644 --- a/lapack-netlib/SRC/sla_geamv.f +++ b/lapack-netlib/SRC/sla_geamv.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_gercond.f b/lapack-netlib/SRC/sla_gercond.f index e54e0d7b46..8f7dc2490a 100644 --- a/lapack-netlib/SRC/sla_gercond.f +++ b/lapack-netlib/SRC/sla_gercond.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, $ CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -323,5 +320,7 @@ REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, $ SLA_GERCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_GERCOND * END diff --git a/lapack-netlib/SRC/sla_gerfsx_extended.f b/lapack-netlib/SRC/sla_gerfsx_extended.f index 84d1ae31b9..de05d8eb41 100644 --- a/lapack-netlib/SRC/sla_gerfsx_extended.f +++ b/lapack-netlib/SRC/sla_gerfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -356,7 +356,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -385,8 +385,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== @@ -398,10 +396,9 @@ SUBROUTINE SLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -686,4 +683,7 @@ SUBROUTINE SLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, END DO * RETURN +* +* End of SLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_gerpvgrw.f b/lapack-netlib/SRC/sla_gerpvgrw.f index a41a0351ee..05a61dc701 100644 --- a/lapack-netlib/SRC/sla_gerpvgrw.f +++ b/lapack-netlib/SRC/sla_gerpvgrw.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -136,4 +133,7 @@ REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) END IF END DO SLA_GERPVGRW = RPVGRW +* +* End of SLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/sla_lin_berr.f b/lapack-netlib/SRC/sla_lin_berr.f index 2da50cbdab..e4cbb65be1 100644 --- a/lapack-netlib/SRC/sla_lin_berr.f +++ b/lapack-netlib/SRC/sla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -150,4 +147,7 @@ SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * END DO END DO +* +* End of SLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/sla_porcond.f b/lapack-netlib/SRC/sla_porcond.f index 729581f46b..2506401166 100644 --- a/lapack-netlib/SRC/sla_porcond.f +++ b/lapack-netlib/SRC/sla_porcond.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -322,5 +319,7 @@ REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, $ SLA_PORCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_PORCOND * END diff --git a/lapack-netlib/SRC/sla_porfsx_extended.f b/lapack-netlib/SRC/sla_porfsx_extended.f index abbfebb834..ada4cad21e 100644 --- a/lapack-netlib/SRC/sla_porfsx_extended.f +++ b/lapack-netlib/SRC/sla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ SUBROUTINE SLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -675,4 +672,7 @@ SUBROUTINE SLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of SLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_porpvgrw.f b/lapack-netlib/SRC/sla_porpvgrw.f index c824d772d1..a97e7f72a5 100644 --- a/lapack-netlib/SRC/sla_porpvgrw.f +++ b/lapack-netlib/SRC/sla_porpvgrw.f @@ -84,7 +84,7 @@ *> The leading dimension of the array AF. LDAF >= max(1,N). *> \endverbatim *> -*> \param[in] WORK +*> \param[out] WORK *> \verbatim *> WORK is REAL array, dimension (2*N) *> \endverbatim @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -205,4 +202,7 @@ REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) END IF SLA_PORPVGRW = RPVGRW +* +* End of SLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/sla_syamv.f b/lapack-netlib/SRC/sla_syamv.f index 4459f4d8bd..a44cc6e0d2 100644 --- a/lapack-netlib/SRC/sla_syamv.f +++ b/lapack-netlib/SRC/sla_syamv.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_syrcond.f b/lapack-netlib/SRC/sla_syrcond.f index 0c9e2b361c..95dd9a81f9 100644 --- a/lapack-netlib/SRC/sla_syrcond.f +++ b/lapack-netlib/SRC/sla_syrcond.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, $ C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -335,5 +332,7 @@ REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, $ SLA_SYRCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_SYRCOND * END diff --git a/lapack-netlib/SRC/sla_syrfsx_extended.f b/lapack-netlib/SRC/sla_syrfsx_extended.f index a83a9db980..d5096be024 100644 --- a/lapack-netlib/SRC/sla_syrfsx_extended.f +++ b/lapack-netlib/SRC/sla_syrfsx_extended.f @@ -56,7 +56,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -354,7 +354,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== @@ -396,10 +394,9 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -704,4 +701,7 @@ SUBROUTINE SLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of SLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_syrpvgrw.f b/lapack-netlib/SRC/sla_syrpvgrw.f index a0a235ee38..88c61ec56c 100644 --- a/lapack-netlib/SRC/sla_syrpvgrw.f +++ b/lapack-netlib/SRC/sla_syrpvgrw.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -317,4 +314,7 @@ REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, END IF SLA_SYRPVGRW = RPVGRW +* +* End of SLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/sla_wwaddw.f b/lapack-netlib/SRC/sla_wwaddw.f index e390c9fab9..925dae8649 100644 --- a/lapack-netlib/SRC/sla_wwaddw.f +++ b/lapack-netlib/SRC/sla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ SUBROUTINE SLA_WWADDW( N, X, Y, W ) X(I) = S 10 CONTINUE RETURN +* +* End of SLA_WWADDW +* END diff --git a/lapack-netlib/SRC/slabad.f b/lapack-netlib/SRC/slabad.f index d6502bb921..cb223594f4 100644 --- a/lapack-netlib/SRC/slabad.f +++ b/lapack-netlib/SRC/slabad.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLABAD( SMALL, LARGE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL LARGE, SMALL diff --git a/lapack-netlib/SRC/slabrd.f b/lapack-netlib/SRC/slabrd.f index f4e3d73a27..808d45cc12 100644 --- a/lapack-netlib/SRC/slabrd.f +++ b/lapack-netlib/SRC/slabrd.f @@ -156,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -210,10 +208,9 @@ SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/lapack-netlib/SRC/slacn2.f b/lapack-netlib/SRC/slacn2.f index 78742812f1..1d6217a7cb 100644 --- a/lapack-netlib/SRC/slacn2.f +++ b/lapack-netlib/SRC/slacn2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -136,10 +134,9 @@ * ===================================================================== SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N @@ -160,7 +157,7 @@ SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * .. * .. Local Scalars .. INTEGER I, JLAST - REAL ALTSGN, ESTOLD, TEMP + REAL ALTSGN, ESTOLD, TEMP, XS * .. * .. External Functions .. INTEGER ISAMAX @@ -171,7 +168,7 @@ SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) EXTERNAL SCOPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, NINT, REAL, SIGN + INTRINSIC ABS, NINT, REAL * .. * .. Executable Statements .. * @@ -199,7 +196,11 @@ SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) EST = SASUM( N, X, 1 ) * DO 30 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 30 CONTINUE KASE = 2 @@ -232,7 +233,12 @@ SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) ESTOLD = EST EST = SASUM( N, V, 1 ) DO 80 I = 1, N - IF( NINT( SIGN( ONE, X( I ) ) ).NE.ISGN( I ) ) + IF( X(I).GE.ZERO ) THEN + XS = ONE + ELSE + XS = -ONE + END IF + IF( NINT( XS ).NE.ISGN( I ) ) $ GO TO 90 80 CONTINUE * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED. @@ -244,7 +250,11 @@ SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) $ GO TO 120 * DO 100 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 100 CONTINUE KASE = 2 diff --git a/lapack-netlib/SRC/slacon.f b/lapack-netlib/SRC/slacon.f index 45c28d50ab..8e3cc73553 100644 --- a/lapack-netlib/SRC/slacon.f +++ b/lapack-netlib/SRC/slacon.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/slacpy.f b/lapack-netlib/SRC/slacpy.f index a4bcde3cc8..a33a3c67b7 100644 --- a/lapack-netlib/SRC/slacpy.f +++ b/lapack-netlib/SRC/slacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sladiv.f b/lapack-netlib/SRC/sladiv.f index a9a3603aae..ff60432fed 100644 --- a/lapack-netlib/SRC/sladiv.f +++ b/lapack-netlib/SRC/sladiv.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2013 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, P, Q @@ -178,10 +175,9 @@ SUBROUTINE SLADIV( A, B, C, D, P, Q ) SUBROUTINE SLADIV1( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, P, Q @@ -218,10 +214,9 @@ SUBROUTINE SLADIV1( A, B, C, D, P, Q ) REAL FUNCTION SLADIV2( A, B, C, D, R, T ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, R, T @@ -251,6 +246,6 @@ REAL FUNCTION SLADIV2( A, B, C, D, R, T ) * RETURN * -* End of SLADIV +* End of SLADIV2 * END diff --git a/lapack-netlib/SRC/slae2.f b/lapack-netlib/SRC/slae2.f index 2b7a28c8f2..c6a4f12b29 100644 --- a/lapack-netlib/SRC/slae2.f +++ b/lapack-netlib/SRC/slae2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -102,10 +100,9 @@ * ===================================================================== SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, RT1, RT2 diff --git a/lapack-netlib/SRC/slaebz.f b/lapack-netlib/SRC/slaebz.f index 5e230827da..4eb8e8b7dc 100644 --- a/lapack-netlib/SRC/slaebz.f +++ b/lapack-netlib/SRC/slaebz.f @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -319,10 +317,9 @@ SUBROUTINE SLAEBZ( IJOB, NITMAX, N, MMAX, MINP, NBMIN, ABSTOL, $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/lapack-netlib/SRC/slaed0.f b/lapack-netlib/SRC/slaed0.f index 51aea744c3..42cdd2ceb5 100644 --- a/lapack-netlib/SRC/slaed0.f +++ b/lapack-netlib/SRC/slaed0.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b SLAED0 used by SSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -172,10 +170,9 @@ SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/slaed1.f b/lapack-netlib/SRC/slaed1.f index d40cb026aa..1f13c1fd1e 100644 --- a/lapack-netlib/SRC/slaed1.f +++ b/lapack-netlib/SRC/slaed1.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED1 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. +*> \brief \b SLAED1 used by SSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -163,10 +161,9 @@ SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/lapack-netlib/SRC/slaed2.f b/lapack-netlib/SRC/slaed2.f index b039a31053..16500e74cd 100644 --- a/lapack-netlib/SRC/slaed2.f +++ b/lapack-netlib/SRC/slaed2.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED2 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. +*> \brief \b SLAED2 used by SSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/slaed3.f b/lapack-netlib/SRC/slaed3.f index dffd23e430..e84f22be1f 100644 --- a/lapack-netlib/SRC/slaed3.f +++ b/lapack-netlib/SRC/slaed3.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED3 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. +*> \brief \b SLAED3 used by SSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -170,8 +170,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/slaed4.f b/lapack-netlib/SRC/slaed4.f index 64260843fd..f056746d80 100644 --- a/lapack-netlib/SRC/slaed4.f +++ b/lapack-netlib/SRC/slaed4.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED4 used by sstedc. Finds a single root of the secular equation. +*> \brief \b SLAED4 used by SSTEDC. Finds a single root of the secular equation. * * =========== DOCUMENTATION =========== * @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/slaed5.f b/lapack-netlib/SRC/slaed5.f index 29551daa72..ddf9fb72e7 100644 --- a/lapack-netlib/SRC/slaed5.f +++ b/lapack-netlib/SRC/slaed5.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED5 used by sstedc. Solves the 2-by-2 secular equation. +*> \brief \b SLAED5 used by SSTEDC. Solves the 2-by-2 secular equation. * * =========== DOCUMENTATION =========== * @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -108,10 +106,9 @@ * ===================================================================== SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I @@ -184,6 +181,6 @@ SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) END IF RETURN * -* End OF SLAED5 +* End of SLAED5 * END diff --git a/lapack-netlib/SRC/slaed6.f b/lapack-netlib/SRC/slaed6.f index 69b94d4974..ec715518eb 100644 --- a/lapack-netlib/SRC/slaed6.f +++ b/lapack-netlib/SRC/slaed6.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED6 used by sstedc. Computes one Newton step in solution of the secular equation. +*> \brief \b SLAED6 used by SSTEDC. Computes one Newton step in solution of the secular equation. * * =========== DOCUMENTATION =========== * @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/lapack-netlib/SRC/slaed7.f b/lapack-netlib/SRC/slaed7.f index 55e6e6325c..3572342c0e 100644 --- a/lapack-netlib/SRC/slaed7.f +++ b/lapack-netlib/SRC/slaed7.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b SLAED7 used by SSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -260,10 +258,9 @@ SUBROUTINE SLAED7( ICOMPQ, N, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/lapack-netlib/SRC/slaed8.f b/lapack-netlib/SRC/slaed8.f index 2e3f6f51f2..9c8ba440c6 100644 --- a/lapack-netlib/SRC/slaed8.f +++ b/lapack-netlib/SRC/slaed8.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b SLAED8 used by SSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -243,10 +241,9 @@ SUBROUTINE SLAED8( ICOMPQ, K, N, QSIZ, D, Q, LDQ, INDXQ, RHO, $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/lapack-netlib/SRC/slaed9.f b/lapack-netlib/SRC/slaed9.f index 780d265506..4d07416e9f 100644 --- a/lapack-netlib/SRC/slaed9.f +++ b/lapack-netlib/SRC/slaed9.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED9 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. +*> \brief \b SLAED9 used by SSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -156,10 +154,9 @@ SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/lapack-netlib/SRC/slaeda.f b/lapack-netlib/SRC/slaeda.f index 30d7a2bf0e..f7ed96a12b 100644 --- a/lapack-netlib/SRC/slaeda.f +++ b/lapack-netlib/SRC/slaeda.f @@ -1,4 +1,4 @@ -*> \brief \b SLAEDA used by sstedc. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. +*> \brief \b SLAEDA used by SSTEDC. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/lapack-netlib/SRC/slaein.f b/lapack-netlib/SRC/slaein.f index e9defea2a8..caee5aa1b3 100644 --- a/lapack-netlib/SRC/slaein.f +++ b/lapack-netlib/SRC/slaein.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/slaev2.f b/lapack-netlib/SRC/slaev2.f index f4028e11b7..442779a44e 100644 --- a/lapack-netlib/SRC/slaev2.f +++ b/lapack-netlib/SRC/slaev2.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -120,10 +118,9 @@ * ===================================================================== SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, CS1, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/slaexc.f b/lapack-netlib/SRC/slaexc.f index 7e3c6c4839..49b0329601 100644 --- a/lapack-netlib/SRC/slaexc.f +++ b/lapack-netlib/SRC/slaexc.f @@ -41,7 +41,7 @@ *> *> T must be in Schur canonical form, that is, block upper triangular *> with 1-by-1 and 2-by-2 diagonal blocks; each 2-by-2 diagonal block -*> has its diagonal elemnts equal and its off-diagonal elements of +*> has its diagonal elements equal and its off-diagonal elements of *> opposite sign. *> \endverbatim * @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/lapack-netlib/SRC/slag2.f b/lapack-netlib/SRC/slag2.f index ac16fb1b5a..eddf669133 100644 --- a/lapack-netlib/SRC/slag2.f +++ b/lapack-netlib/SRC/slag2.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/slag2d.f b/lapack-netlib/SRC/slag2d.f index 01515eb672..dbd8ee1abf 100644 --- a/lapack-netlib/SRC/slag2d.f +++ b/lapack-netlib/SRC/slag2d.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/slags2.f b/lapack-netlib/SRC/slags2.f index 4076f39827..67e33f6370 100644 --- a/lapack-netlib/SRC/slags2.f +++ b/lapack-netlib/SRC/slags2.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/slagtf.f b/lapack-netlib/SRC/slagtf.f index 59ef097a7f..ecc02eeb34 100644 --- a/lapack-netlib/SRC/slagtf.f +++ b/lapack-netlib/SRC/slagtf.f @@ -149,17 +149,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/slagtm.f b/lapack-netlib/SRC/slagtm.f index e423dc91cd..2beae90787 100644 --- a/lapack-netlib/SRC/slagtm.f +++ b/lapack-netlib/SRC/slagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/slagts.f b/lapack-netlib/SRC/slagts.f index e0c8892d7d..255f5aa488 100644 --- a/lapack-netlib/SRC/slagts.f +++ b/lapack-netlib/SRC/slagts.f @@ -154,17 +154,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/lapack-netlib/SRC/slagv2.f b/lapack-netlib/SRC/slagv2.f index 638c7dfbc2..410cbf4c02 100644 --- a/lapack-netlib/SRC/slagv2.f +++ b/lapack-netlib/SRC/slagv2.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -157,10 +155,9 @@ SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/slahqr.f b/lapack-netlib/SRC/slahqr.f index e5642d2bf5..4e00f315a6 100644 --- a/lapack-netlib/SRC/slahqr.f +++ b/lapack-netlib/SRC/slahqr.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -206,11 +204,11 @@ * ===================================================================== SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -227,13 +225,16 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, PARAMETER ( ZERO = 0.0e0, ONE = 1.0e0, TWO = 2.0e0 ) REAL DAT1, DAT2 PARAMETER ( DAT1 = 3.0e0 / 4.0e0, DAT2 = -0.4375e0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. REAL AA, AB, BA, BB, CS, DET, H11, H12, H21, H21S, $ H22, RT1I, RT1R, RT2I, RT2R, RTDISC, S, SAFMAX, $ SAFMIN, SMLNUM, SN, SUM, T1, T2, T3, TR, TST, $ ULP, V2, V3 - INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ + INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ, + $ KDEFL * .. * .. Local Arrays .. REAL V( 3 ) @@ -294,6 +295,10 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -353,6 +358,7 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, * IF( L.GE.I-1 ) $ GO TO 150 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -363,21 +369,21 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) - H11 = DAT1*S + H( L, L ) + S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) + H11 = DAT1*S + H( I, I ) H12 = DAT2*S H21 = S H22 = H11 - ELSE IF( ITS.EQ.20 ) THEN + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) - H11 = DAT1*S + H( I, I ) + S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) + H11 = DAT1*S + H( L, L ) H12 = DAT2*S H21 = S H22 = H11 @@ -599,6 +605,8 @@ SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, CALL SROT( NZ, Z( ILOZ, I-1 ), 1, Z( ILOZ, I ), 1, CS, SN ) END IF END IF +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/slahr2.f b/lapack-netlib/SRC/slahr2.f index 656d679898..458da48e4e 100644 --- a/lapack-netlib/SRC/slahr2.f +++ b/lapack-netlib/SRC/slahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's SLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's SLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's SLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/slaic1.f b/lapack-netlib/SRC/slaic1.f index 44ab4b0384..65107002cc 100644 --- a/lapack-netlib/SRC/slaic1.f +++ b/lapack-netlib/SRC/slaic1.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/lapack-netlib/SRC/slaisnan.f b/lapack-netlib/SRC/slaisnan.f index 568d632a11..76c2a59964 100644 --- a/lapack-netlib/SRC/slaisnan.f +++ b/lapack-netlib/SRC/slaisnan.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL, INTENT(IN) :: SIN1, SIN2 diff --git a/lapack-netlib/SRC/slaln2.f b/lapack-netlib/SRC/slaln2.f index 4c6a55ec74..826eb1fc1e 100644 --- a/lapack-netlib/SRC/slaln2.f +++ b/lapack-netlib/SRC/slaln2.f @@ -210,18 +210,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/lapack-netlib/SRC/slals0.f b/lapack-netlib/SRC/slals0.f index bb1c2d7c98..7d44e28643 100644 --- a/lapack-netlib/SRC/slals0.f +++ b/lapack-netlib/SRC/slals0.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -268,10 +266,9 @@ SUBROUTINE SLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/slalsa.f b/lapack-netlib/SRC/slalsa.f index 135a6736f2..465455e4a1 100644 --- a/lapack-netlib/SRC/slalsa.f +++ b/lapack-netlib/SRC/slalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ SUBROUTINE SLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/slalsd.f b/lapack-netlib/SRC/slalsd.f index a669660795..2197f728e0 100644 --- a/lapack-netlib/SRC/slalsd.f +++ b/lapack-netlib/SRC/slalsd.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -179,10 +177,9 @@ SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slamrg.f b/lapack-netlib/SRC/slamrg.f index 649d2c54e3..a29802e220 100644 --- a/lapack-netlib/SRC/slamrg.f +++ b/lapack-netlib/SRC/slamrg.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N1, N2, STRD1, STRD2 diff --git a/lapack-netlib/SRC/slamswlq.f b/lapack-netlib/SRC/slamswlq.f index 59ab1a6ee4..d4996b1f20 100644 --- a/lapack-netlib/SRC/slamswlq.f +++ b/lapack-netlib/SRC/slamswlq.f @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is REAL array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= max(1,K). *> \endverbatim *> *> \param[in] T @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE SLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ SUBROUTINE SLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/slamtsqr.f b/lapack-netlib/SRC/slamtsqr.f index 58905ab46d..960b794de8 100644 --- a/lapack-netlib/SRC/slamtsqr.f +++ b/lapack-netlib/SRC/slamtsqr.f @@ -27,7 +27,7 @@ *> TRANS = 'T': Q**T * C C * Q**T *> where Q is a real orthogonal matrix defined as the product *> of blocked elementary reflectors computed by tall skinny -*> QR factorization (DLATSQR) +*> QR factorization (SLATSQR) *> \endverbatim * * Arguments: @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as SLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is REAL array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by SLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -196,10 +195,9 @@ SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = MB * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/slaneg.f b/lapack-netlib/SRC/slaneg.f index dcb11df1f7..26e7a78ac0 100644 --- a/lapack-netlib/SRC/slaneg.f +++ b/lapack-netlib/SRC/slaneg.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -118,10 +116,9 @@ * ===================================================================== INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, R diff --git a/lapack-netlib/SRC/slangb.f b/lapack-netlib/SRC/slangb.f index 706e07501c..a240092854 100644 --- a/lapack-netlib/SRC/slangb.f +++ b/lapack-netlib/SRC/slangb.f @@ -116,20 +116,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBauxiliary * * ===================================================================== REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -140,24 +136,22 @@ REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, * * ===================================================================== * +* * .. Parameters .. REAL ONE, ZERO PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 ) * .. * .. Local Scalars .. INTEGER I, J, K, L - REAL SUM, VALUE, TEMP + REAL SCALE, SUM, VALUE, TEMP * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -209,22 +203,15 @@ REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANGB = VALUE diff --git a/lapack-netlib/SRC/slange.f b/lapack-netlib/SRC/slange.f index 0c80f1d40a..79eef87261 100644 --- a/lapack-netlib/SRC/slange.f +++ b/lapack-netlib/SRC/slange.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * * ===================================================================== REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -136,13 +132,10 @@ REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN @@ -198,19 +191,13 @@ REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANGE = VALUE diff --git a/lapack-netlib/SRC/slangt.f b/lapack-netlib/SRC/slangt.f index 6f3202131d..65957f8ec7 100644 --- a/lapack-netlib/SRC/slangt.f +++ b/lapack-netlib/SRC/slangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/slanhs.f b/lapack-netlib/SRC/slanhs.f index 8913031a21..e913806918 100644 --- a/lapack-netlib/SRC/slanhs.f +++ b/lapack-netlib/SRC/slanhs.f @@ -101,19 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -130,18 +126,15 @@ REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -192,20 +185,13 @@ REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANHS = VALUE diff --git a/lapack-netlib/SRC/slansb.f b/lapack-netlib/SRC/slansb.f index 23519025de..eb89d94cb6 100644 --- a/lapack-netlib/SRC/slansb.f +++ b/lapack-netlib/SRC/slansb.f @@ -121,20 +121,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -151,18 +147,15 @@ REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -229,47 +222,29 @@ REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL SLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSB = VALUE diff --git a/lapack-netlib/SRC/slansf.f b/lapack-netlib/SRC/slansf.f index eab99a9c47..5d480958f5 100644 --- a/lapack-netlib/SRC/slansf.f +++ b/lapack-netlib/SRC/slansf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -209,10 +207,9 @@ * ===================================================================== REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/slansp.f b/lapack-netlib/SRC/slansp.f index 7e29d778be..2189510a6e 100644 --- a/lapack-netlib/SRC/slansp.f +++ b/lapack-netlib/SRC/slansp.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -136,18 +132,15 @@ REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -221,48 +214,31 @@ REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( AP( K ).NE.ZERO ) THEN ABSA = ABS( AP( K ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -271,8 +247,7 @@ REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSP = VALUE diff --git a/lapack-netlib/SRC/slanst.f b/lapack-netlib/SRC/slanst.f index 4b589bac94..dfe12a5f70 100644 --- a/lapack-netlib/SRC/slanst.f +++ b/lapack-netlib/SRC/slanst.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/slansy.f b/lapack-netlib/SRC/slansy.f index 66ff1c5c76..4a23a42f2c 100644 --- a/lapack-netlib/SRC/slansy.f +++ b/lapack-netlib/SRC/slansy.f @@ -115,19 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -144,18 +140,15 @@ REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -220,39 +213,21 @@ REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL SLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSY = VALUE diff --git a/lapack-netlib/SRC/slantb.f b/lapack-netlib/SRC/slantb.f index 5b94618e19..c29db2416b 100644 --- a/lapack-netlib/SRC/slantb.f +++ b/lapack-netlib/SRC/slantb.f @@ -132,20 +132,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -163,18 +159,15 @@ REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -315,61 +308,46 @@ REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTB = VALUE diff --git a/lapack-netlib/SRC/slantp.f b/lapack-netlib/SRC/slantp.f index ab781deac3..00fe42a53f 100644 --- a/lapack-netlib/SRC/slantp.f +++ b/lapack-netlib/SRC/slantp.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -147,18 +143,15 @@ REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -310,64 +303,45 @@ REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTP = VALUE diff --git a/lapack-netlib/SRC/slantr.f b/lapack-netlib/SRC/slantr.f index 04d29f5379..384f58550b 100644 --- a/lapack-netlib/SRC/slantr.f +++ b/lapack-netlib/SRC/slantr.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -164,18 +160,15 @@ REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -315,56 +308,38 @@ REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTR = VALUE diff --git a/lapack-netlib/SRC/slanv2.f b/lapack-netlib/SRC/slanv2.f index 375645b75a..6753012e75 100644 --- a/lapack-netlib/SRC/slanv2.f +++ b/lapack-netlib/SRC/slanv2.f @@ -109,8 +109,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -127,10 +125,9 @@ * ===================================================================== SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp.f b/lapack-netlib/SRC/slaorhr_col_getrfnp.f index 6cc59e5381..ff890beece 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp.f +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE SLAORHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp2.f b/lapack-netlib/SRC/slaorhr_col_getrfnp2.f index de604602f1..621e9a3148 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> SLAORHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine SLAORHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, SLAORHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, SLAORHR_COL_GETRFNP2 *> is self-sufficient and can be used without SLAORHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE SLAORHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/slapll.f b/lapack-netlib/SRC/slapll.f index 498fe85333..a71c9f3910 100644 --- a/lapack-netlib/SRC/slapll.f +++ b/lapack-netlib/SRC/slapll.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/slapmr.f b/lapack-netlib/SRC/slapmr.f index 0473cd3f95..c91a23ba00 100644 --- a/lapack-netlib/SRC/slapmr.f +++ b/lapack-netlib/SRC/slapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) * RETURN * -* End of ZLAPMT +* End of SLAPMR * END diff --git a/lapack-netlib/SRC/slapmt.f b/lapack-netlib/SRC/slapmt.f index 67e8aabe18..8c71dfcfb1 100644 --- a/lapack-netlib/SRC/slapmt.f +++ b/lapack-netlib/SRC/slapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/slapy2.f b/lapack-netlib/SRC/slapy2.f index 3b1b7e43c2..e1364f6980 100644 --- a/lapack-netlib/SRC/slapy2.f +++ b/lapack-netlib/SRC/slapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL X, Y @@ -81,32 +78,33 @@ REAL FUNCTION SLAPY2( X, Y ) PARAMETER ( ONE = 1.0E0 ) * .. * .. Local Scalars .. - REAL W, XABS, YABS, Z + REAL W, XABS, YABS, Z, HUGEVAL LOGICAL X_IS_NAN, Y_IS_NAN * .. * .. External Functions .. LOGICAL SISNAN EXTERNAL SISNAN * .. +* .. External Subroutines .. + REAL SLAMCH +* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. * .. Executable Statements .. -* -* .. -* .. Executable Statements .. * X_IS_NAN = SISNAN( X ) Y_IS_NAN = SISNAN( Y ) IF ( X_IS_NAN ) SLAPY2 = X IF ( Y_IS_NAN ) SLAPY2 = Y + HUGEVAL = SLAMCH( 'Overflow' ) * IF ( .NOT.( X_IS_NAN.OR.Y_IS_NAN ) ) THEN XABS = ABS( X ) YABS = ABS( Y ) W = MAX( XABS, YABS ) Z = MIN( XABS, YABS ) - IF( Z.EQ.ZERO ) THEN + IF( Z.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN SLAPY2 = W ELSE SLAPY2 = W*SQRT( ONE+( Z / W )**2 ) diff --git a/lapack-netlib/SRC/slapy3.f b/lapack-netlib/SRC/slapy3.f index 04a847f997..5a3999f9d9 100644 --- a/lapack-netlib/SRC/slapy3.f +++ b/lapack-netlib/SRC/slapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL X, Y, Z @@ -84,18 +81,22 @@ REAL FUNCTION SLAPY3( X, Y, Z ) PARAMETER ( ZERO = 0.0E0 ) * .. * .. Local Scalars .. - REAL W, XABS, YABS, ZABS + REAL W, XABS, YABS, ZABS, HUGEVAL +* .. +* .. External Subroutines .. + REAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT * .. * .. Executable Statements .. * + HUGEVAL = SLAMCH( 'Overflow' ) XABS = ABS( X ) YABS = ABS( Y ) ZABS = ABS( Z ) W = MAX( XABS, YABS, ZABS ) - IF( W.EQ.ZERO ) THEN + IF( W.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN * W can be zero for max(0,nan,0) * adding all three entries together will make sure * NaN will not disappear. diff --git a/lapack-netlib/SRC/slaqgb.f b/lapack-netlib/SRC/slaqgb.f index 633befa312..5527c73679 100644 --- a/lapack-netlib/SRC/slaqgb.f +++ b/lapack-netlib/SRC/slaqgb.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBauxiliary * * ===================================================================== SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/slaqge.f b/lapack-netlib/SRC/slaqge.f index 0622ff6c45..134035707a 100644 --- a/lapack-netlib/SRC/slaqge.f +++ b/lapack-netlib/SRC/slaqge.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * * ===================================================================== SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/slaqp2.f b/lapack-netlib/SRC/slaqp2.f index e99324b7ca..595fb8c340 100644 --- a/lapack-netlib/SRC/slaqp2.f +++ b/lapack-netlib/SRC/slaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/slaqps.f b/lapack-netlib/SRC/slaqps.f index 3f8af304fc..0de94ced33 100644 --- a/lapack-netlib/SRC/slaqps.f +++ b/lapack-netlib/SRC/slaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/slaqr0.f b/lapack-netlib/SRC/slaqr0.f index b1ebaff75c..ea533b3bd3 100644 --- a/lapack-netlib/SRC/slaqr0.f +++ b/lapack-netlib/SRC/slaqr0.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -256,10 +254,9 @@ SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/slaqr1.f b/lapack-netlib/SRC/slaqr1.f index 6bb88c7941..59f317b2b2 100644 --- a/lapack-netlib/SRC/slaqr1.f +++ b/lapack-netlib/SRC/slaqr1.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL SI1, SI2, SR1, SR2 diff --git a/lapack-netlib/SRC/slaqr2.f b/lapack-netlib/SRC/slaqr2.f index f4f8ca7f22..62c4ef5ebc 100644 --- a/lapack-netlib/SRC/slaqr2.f +++ b/lapack-netlib/SRC/slaqr2.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -278,10 +276,9 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/slaqr3.f b/lapack-netlib/SRC/slaqr3.f index ccad338b90..519ccd6ede 100644 --- a/lapack-netlib/SRC/slaqr3.f +++ b/lapack-netlib/SRC/slaqr3.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -275,10 +273,9 @@ SUBROUTINE SLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/slaqr4.f b/lapack-netlib/SRC/slaqr4.f index 4ba2f87572..1f0a51c85f 100644 --- a/lapack-netlib/SRC/slaqr4.f +++ b/lapack-netlib/SRC/slaqr4.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/slaqr5.f b/lapack-netlib/SRC/slaqr5.f index d60a1d3c03..b9bae9376b 100644 --- a/lapack-netlib/SRC/slaqr5.f +++ b/lapack-netlib/SRC/slaqr5.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, $ LDU, NV, WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/slaqsb.f b/lapack-netlib/SRC/slaqsb.f index 747d32df8e..32c93911d6 100644 --- a/lapack-netlib/SRC/slaqsb.f +++ b/lapack-netlib/SRC/slaqsb.f @@ -133,17 +133,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqsp.f b/lapack-netlib/SRC/slaqsp.f index a88206dd8e..604d4b248d 100644 --- a/lapack-netlib/SRC/slaqsp.f +++ b/lapack-netlib/SRC/slaqsp.f @@ -118,17 +118,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqsy.f b/lapack-netlib/SRC/slaqsy.f index fc66aae320..c592a4c33d 100644 --- a/lapack-netlib/SRC/slaqsy.f +++ b/lapack-netlib/SRC/slaqsy.f @@ -126,17 +126,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqtr.f b/lapack-netlib/SRC/slaqtr.f index 9d3e592f8f..5720cf2bb1 100644 --- a/lapack-netlib/SRC/slaqtr.f +++ b/lapack-netlib/SRC/slaqtr.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/lapack-netlib/SRC/slaqz0.c b/lapack-netlib/SRC/slaqz0.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/slaqz0.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* +* INTEGER, INTENT( OUT ) :: INFO +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real matrix pair (A,B): +*> +*> A = Q1*H*Z1**T, B = Q1*T*Z1**T, +*> +*> as computed by SGGHRD. +*> +*> If JOB='S', then the Hessenberg-triangular pair (H,T) is +*> also reduced to generalized Schur form, +*> +*> H = Q*S*Z**T, T = Q*P*Z**T, +*> +*> where Q and Z are orthogonal matrices, P is an upper triangular +*> matrix, and S is a quasi-triangular matrix with 1-by-1 and 2-by-2 +*> diagonal blocks. +*> +*> The 1-by-1 blocks correspond to real eigenvalues of the matrix pair +*> (H,T) and the 2-by-2 blocks correspond to complex conjugate pairs of +*> eigenvalues. +*> +*> Additionally, the 2-by-2 upper triangular diagonal blocks of P +*> corresponding to 2-by-2 blocks of S are reduced to positive diagonal +*> form, i.e., if S(j+1,j) is non-zero, then P(j+1,j) = P(j,j+1) = 0, +*> P(j,j) > 0, and P(j+1,j+1) > 0. +*> +*> Optionally, the orthogonal matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> orthogonal matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the orthogonal matrices from SGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the orthogonal factors from the +*> generalized Schur factorization of (A,B): +*> +*> A = (Q1*Q)*S*(Z1*Z)**T, B = (Q1*Q)*P*(Z1*Z)**T. +*> +*> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, +*> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Real eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an orthogonal matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an orthogonal matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper quasi-triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> 2-by-2 diagonal blocks of P corresponding to 2-by-2 blocks of S +*> are reduced to positive diagonal form, i.e., if A(j+1,j) is +*> non-zero, then B(j+1,j) = B(j,j+1) = 0, B(j,j) > 0, and +*> B(j+1,j+1) > 0. +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is REAL array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is REAL array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is REAL array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the orthogonal matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the orthogonal matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the orthogonal matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the orthogonal matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the orthogonal matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> orthogonal matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHAR(i), ALPHAI(i), and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE SLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, + $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + + INTEGER, INTENT( OUT ) :: INFO + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ), WORK( * ) + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + REAL :: SMLNUM, ULP, ESHIFT, SAFMIN, SAFMAX, C1, S1, TEMP, SWAP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST, I + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, SHGEQZ, SLAQZ3, SLAQZ4, SLASET, SLABAD, + $ SLARTG, SROT + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = REAL( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( REAL( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL SHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, + $ LWORK, INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to slaqz3 + NW = MAX( NWR, NMIN ) + CALL SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHAR, + $ ALPHAI, BETA, WORK, NW, WORK, NW, WORK, -1, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to slaqz4 + CALL SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHAR, + $ ALPHAI, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, + $ NBR, WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = REAL( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL SLASET( 'FULL', N, N, ZERO, ONE, Q, LDQ ) + IF( IWANTZ.EQ.3 ) CALL SLASET( 'FULL', N, N, ZERO, ONE, Z, LDZ ) + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 3*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP-1, ISTOP-2 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP-1, ISTOP-1 ) )+ABS( A( ISTOP-2, + $ ISTOP-2 ) ) ) ) ) THEN + A( ISTOP-1, ISTOP-2 ) = ZERO + ISTOP = ISTOP-2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = ZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = ZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+2, ISTART+1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART+1, ISTART+1 ) )+ABS( A( ISTART+2, + $ ISTART+2 ) ) ) ) ) THEN + A( ISTART+2, ISTART+1 ) = ZERO + ISTART = ISTART+2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = ZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = ZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = ZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMP = ZERO + IF( K .LT. ISTOP ) THEN + TEMP = TEMP+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMP = TEMP+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMP ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL SLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = ZERO + + CALL SROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL SROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL SROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL SLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = ZERO + + CALL SROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL SROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, S1 ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL SLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = ZERO + + CALL SROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL SROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, S1 ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = ZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using qz_small because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL SLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHAR, ALPHAI, BETA, WORK, NW, WORK( NW**2+1 ), + $ NW, WORK( 2*NW**2+1 ), LWORK-2*NW**2, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = ZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 +* +* Shuffle shifts to put double shifts in front +* This ensures that we don't split up a double shift +* + DO I = SHIFTPOS, SHIFTPOS+N_UNDEFLATED-1, 2 + IF( ALPHAI( I ).NE.-ALPHAI( I+1 ) ) THEN +* + SWAP = ALPHAR( I ) + ALPHAR( I ) = ALPHAR( I+1 ) + ALPHAR( I+1 ) = ALPHAR( I+2 ) + ALPHAR( I+2 ) = SWAP + + SWAP = ALPHAI( I ) + ALPHAI( I ) = ALPHAI( I+1 ) + ALPHAI( I+1 ) = ALPHAI( I+2 ) + ALPHAI( I+2 ) = SWAP + + SWAP = BETA( I ) + BETA( I ) = BETA( I+1 ) + BETA( I+1 ) = BETA( I+2 ) + BETA( I+2 ) = SWAP + END IF + END DO + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( REAL( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+ONE/( SAFMIN*REAL( MAXIT ) ) + END IF + ALPHAR( SHIFTPOS ) = ONE + ALPHAR( SHIFTPOS+1 ) = ZERO + ALPHAI( SHIFTPOS ) = ZERO + ALPHAI( SHIFTPOS+1 ) = ZERO + BETA( SHIFTPOS ) = ESHIFT + BETA( SHIFTPOS+1 ) = ESHIFT + NS = 2 + END IF + +* +* Time for a QZ sweep +* + CALL SLAQZ4( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHAR( SHIFTPOS ), ALPHAI( SHIFTPOS ), + $ BETA( SHIFTPOS ), A, LDA, B, LDB, Q, LDQ, Z, LDZ, + $ WORK, NBLOCK, WORK( NBLOCK**2+1 ), NBLOCK, + $ WORK( 2*NBLOCK**2+1 ), LWORK-2*NBLOCK**2, + $ SWEEP_INFO ) + + END DO + +* +* Call SHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, SHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL SHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz1.c b/lapack-netlib/SRC/slaqz1.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/slaqz1.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, +* $ V ) +* IMPLICIT NONE +* +* Arguments +* INTEGER, INTENT( IN ) :: LDA, LDB +* REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI, +* $ BETA1, BETA2 +* REAL, INTENT( OUT ) :: V( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> Given a 3-by-3 matrix pencil (A,B), SLAQZ1 sets v to a +*> scalar multiple of the first column of the product +*> +*> (*) K = (A - (beta2*sr2 - i*si)*B)*B^(-1)*(beta1*A - (sr2 + i*si2)*B)*B^(-1). +*> +*> It is assumed that either +*> +*> 1) sr1 = sr2 +*> or +*> 2) si = 0. +*> +*> This is useful for starting double implicit shift bulges +*> in the QZ algorithm. +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> \param[in] A +*> \verbatim +*> A is REAL array, dimension (LDA,N) +*> The 3-by-3 matrix A in (*). +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[in] B +*> \verbatim +*> B is REAL array, dimension (LDB,N) +*> The 3-by-3 matrix B in (*). +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] SR1 +*> \verbatim +*> SR1 is REAL +*> \endverbatim +*> +*> \param[in] SR2 +*> \verbatim +*> SR2 is REAL +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is REAL +*> \endverbatim +*> +*> \param[in] BETA1 +*> \verbatim +*> BETA1 is REAL +*> \endverbatim +*> +*> \param[in] BETA2 +*> \verbatim +*> BETA2 is REAL +*> \endverbatim +*> +*> \param[out] V +*> \verbatim +*> V is REAL array, dimension (N) +*> A scalar multiple of the first column of the +*> matrix K in (*). +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, + $ V ) + IMPLICIT NONE +* +* Arguments + INTEGER, INTENT( IN ) :: LDA, LDB + REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI, + $ BETA1, BETA2 + REAL, INTENT( OUT ) :: V( * ) +* +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local scalars + REAL :: W( 2 ), SAFMIN, SAFMAX, SCALE1, SCALE2 +* +* External Functions + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: SISNAN +* + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN +* +* Calculate first shifted vector +* + W( 1 ) = BETA1*A( 1, 1 )-SR1*B( 1, 1 ) + W( 2 ) = BETA1*A( 2, 1 )-SR1*B( 2, 1 ) + SCALE1 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE1 .GE. SAFMIN .AND. SCALE1 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE1 + W( 2 ) = W( 2 )/SCALE1 + END IF +* +* Solve linear system +* + W( 2 ) = W( 2 )/B( 2, 2 ) + W( 1 ) = ( W( 1 )-B( 1, 2 )*W( 2 ) )/B( 1, 1 ) + SCALE2 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE2 .GE. SAFMIN .AND. SCALE2 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE2 + W( 2 ) = W( 2 )/SCALE2 + END IF +* +* Apply second shift +* + V( 1 ) = BETA2*( A( 1, 1 )*W( 1 )+A( 1, 2 )*W( 2 ) )-SR2*( B( 1, + $ 1 )*W( 1 )+B( 1, 2 )*W( 2 ) ) + V( 2 ) = BETA2*( A( 2, 1 )*W( 1 )+A( 2, 2 )*W( 2 ) )-SR2*( B( 2, + $ 1 )*W( 1 )+B( 2, 2 )*W( 2 ) ) + V( 3 ) = BETA2*( A( 3, 1 )*W( 1 )+A( 3, 2 )*W( 2 ) )-SR2*( B( 3, + $ 1 )*W( 1 )+B( 3, 2 )*W( 2 ) ) +* +* Account for imaginary part +* + V( 1 ) = V( 1 )+SI*SI*B( 1, 1 )/SCALE1/SCALE2 +* +* Check for overflow +* + IF( ABS( V( 1 ) ).GT.SAFMAX .OR. ABS( V( 2 ) ) .GT. SAFMAX .OR. + $ ABS( V( 3 ) ).GT.SAFMAX .OR. SISNAN( V( 1 ) ) .OR. + $ SISNAN( V( 2 ) ) .OR. SISNAN( V( 3 ) ) ) THEN + V( 1 ) = ZERO + V( 2 ) = ZERO + V( 3 ) = ZERO + END IF +* +* End of SLAQZ1 +* + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz2.c b/lapack-netlib/SRC/slaqz2.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/slaqz2.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* REAL :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ2 chases a 2x2 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1:k+2,k:k+1),B(k+1:k+2,k:k+1)). +*> On exit, the bulge is located in +*> (A(k+2:k+3,k+1:k+2),B(k+2:k+3,k+1:k+2)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+3,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is REAL array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is REAL array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+4-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+3-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + REAL :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local variables + REAL :: H( 2, 3 ), C1, S1, C2, S2, TEMP +* +* External functions + EXTERNAL :: SLARTG, SROT +* + IF( K+2 .EQ. IHI ) THEN +* Shift is located on the edge of the matrix, remove it + H = B( IHI-1:IHI, IHI-2:IHI ) +* Make H upper triangular + CALL SLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* + CALL SLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL SLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* + CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI-1 ), 1, B( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + B( IHI-1, IHI-2 ) = ZERO + B( IHI, IHI-2 ) = ZERO + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI-1 ), 1, A( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, + $ IHI-2-ZSTART+1 ), 1, C2, S2 ) + END IF +* + CALL SLARTG( A( IHI-1, IHI-2 ), A( IHI, IHI-2 ), C1, S1, + $ TEMP ) + A( IHI-1, IHI-2 ) = TEMP + A( IHI, IHI-2 ) = ZERO + CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, + $ IHI-1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, + $ IHI-1 ), LDB, C1, S1 ) + IF ( ILQ ) THEN + CALL SROT( NQ, Q( 1, IHI-1-QSTART+1 ), 1, Q( 1, IHI-QSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + CALL SLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C1, S1, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = ZERO + CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* + H = B( K+1:K+2, K:K+2 ) +* +* Make H upper triangular +* + CALL SLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* +* Calculate Z1 and Z2 +* + CALL SLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL SLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* +* Apply transformations from the right +* + CALL SROT( K+3-ISTARTM+1, A( ISTARTM, K+2 ), 1, A( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL SROT( K+3-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C2, S2 ) + CALL SROT( K+2-ISTARTM+1, B( ISTARTM, K+2 ), 1, B( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL SROT( K+2-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, + $ K ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, K+2-ZSTART+1 ), 1, Z( 1, K+1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C2, S2 ) + END IF + B( K+1, K ) = ZERO + B( K+2, K ) = ZERO +* +* Calculate Q1 and Q2 +* + CALL SLARTG( A( K+2, K ), A( K+3, K ), C1, S1, TEMP ) + A( K+2, K ) = TEMP + A( K+3, K ) = ZERO + CALL SLARTG( A( K+1, K ), A( K+2, K ), C2, S2, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = ZERO +* +* Apply transformations from the left +* + CALL SROT( ISTOPM-K, A( K+2, K+1 ), LDA, A( K+3, K+1 ), LDA, + $ C1, S1 ) + CALL SROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, + $ C2, S2 ) +* + CALL SROT( ISTOPM-K, B( K+2, K+1 ), LDB, B( K+3, K+1 ), LDB, + $ C1, S1 ) + CALL SROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, + $ C2, S2 ) + IF ( ILQ ) THEN + CALL SROT( NQ, Q( 1, K+2-QSTART+1 ), 1, Q( 1, K+3-QSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C2, S2 ) + END IF +* + END IF +* +* End of SLAQZ2 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/slaqz3.c b/lapack-netlib/SRC/slaqz3.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/slaqz3.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHAR, ALPHAI, BETA, QC, LDQC, +* $ ZC, LDZC, WORK, LWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* REAL :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ3 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is REAL array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is REAL array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is REAL array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = (ALPHAR(j),ALPHAI(j)) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is REAL array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is REAL array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHAR, ALPHAI, BETA, QC, LDQC, + $ ZC, LDZC, WORK, LWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + REAL :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local Scalars + LOGICAL :: BULGE + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, STGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + REAL :: S, SMLNUM, ULP, SAFMIN, SAFMAX, C1, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, STGEXC, SLABAD, SLAQZ0, SLACPY, SLASET, + $ SLAQZ2, SROT, SLARTG, SLAG2, SGEMM + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = ZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL STGEXC( .TRUE., .TRUE., JW, A, LDA, B, LDB, QC, LDQC, ZC, + $ LDZC, IFST, ILST, WORK, -1, STGEXC_INFO ) + LWORKREQ = INT( WORK( 1 ) ) + CALL SLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK, -1, REC+1, QZ_SMALL_INFO ) + LWORKREQ = MAX( LWORKREQ, INT( WORK( 1 ) )+2*JW**2 ) + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ3', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHAR( KWTOP ) = A( KWTOP, KWTOP ) + ALPHAI( KWTOP ) = ZERO + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = ZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL SLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL SLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL SLASET( 'FULL', JW, JW, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', JW, JW, ZERO, ONE, ZC, LDZC ) + CALL SLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL SLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL SLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. ZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) + BULGE = .FALSE. + IF ( KWBOT-KWTOP+1 .GE. 2 ) THEN + BULGE = A( KWBOT, KWBOT-1 ) .NE. ZERO + END IF + IF ( BULGE ) THEN + +* Try to deflate complex conjugate eigenvalue pair + TEMP = ABS( A( KWBOT, KWBOT ) )+SQRT( ABS( A( KWBOT, + $ KWBOT-1 ) ) )*SQRT( ABS( A( KWBOT-1, KWBOT ) ) ) + IF( TEMP .EQ. ZERO )THEN + TEMP = ABS( S ) + END IF + IF ( MAX( ABS( S*QC( 1, KWBOT-KWTOP ) ), ABS( S*QC( 1, + $ KWBOT-KWTOP+1 ) ) ) .LE. MAX( SMLNUM, + $ ULP*TEMP ) ) THEN +* Deflatable + KWBOT = KWBOT-2 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL STGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ STGEXC_INFO ) + K2 = K2+2 + END IF + K = K+2 + ELSE + +* Try to deflate real eigenvalue + TEMP = ABS( A( KWBOT, KWBOT ) ) + IF( TEMP .EQ. ZERO ) THEN + TEMP = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMP, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL STGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ STGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + + END IF + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + BULGE = .FALSE. + IF ( K .LT. IHI ) THEN + IF ( A( K+1, K ) .NE. ZERO ) THEN + BULGE = .TRUE. + END IF + END IF + IF ( BULGE ) THEN +* 2x2 eigenvalue block + CALL SLAG2( A( K, K ), LDA, B( K, K ), LDB, SAFMIN, + $ BETA( K ), BETA( K+1 ), ALPHAR( K ), + $ ALPHAR( K+1 ), ALPHAI( K ) ) + ALPHAI( K+1 ) = -ALPHAI( K ) + K = K+2 + ELSE +* 1x1 eigenvalue block + ALPHAR( K ) = A( K, K ) + ALPHAI( K ) = ZERO + BETA( K ) = B( K, K ) + K = K+1 + END IF + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. ZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 )*QC( 1, + $ 1:JW-ND ) + DO K = KWBOT-1, KWTOP, -1 + CALL SLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = ZERO + K2 = MAX( KWTOP, K-1 ) + CALL SROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL SROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL SROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, S1 ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + IF ( ( K .GE. KWTOP+1 ) .AND. A( K+1, K-1 ) .NE. ZERO ) THEN + +* Move double pole block down and remove it + DO K2 = K-1, KWBOT-2 + CALL SLAQZ2( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, + $ LDQC, JW, KWTOP, ZC, LDZC ) + END DO + + K = K-2 + ELSE + +* k points to single shift + DO K2 = K, KWBOT-2 + +* Move shift down + CALL SLARTG( B( K2+1, K2+1 ), B( K2+1, K2 ), C1, S1, + $ TEMP ) + B( K2+1, K2+1 ) = TEMP + B( K2+1, K2 ) = ZERO + CALL SROT( K2+2-ISTARTM+1, A( ISTARTM, K2+1 ), 1, + $ A( ISTARTM, K2 ), 1, C1, S1 ) + CALL SROT( K2-ISTARTM+1, B( ISTARTM, K2+1 ), 1, + $ B( ISTARTM, K2 ), 1, C1, S1 ) + CALL SROT( JW, ZC( 1, K2+1-KWTOP+1 ), 1, ZC( 1, + $ K2-KWTOP+1 ), 1, C1, S1 ) + + CALL SLARTG( A( K2+1, K2 ), A( K2+2, K2 ), C1, S1, + $ TEMP ) + A( K2+1, K2 ) = TEMP + A( K2+2, K2 ) = ZERO + CALL SROT( ISTOPM-K2, A( K2+1, K2+1 ), LDA, A( K2+2, + $ K2+1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-K2, B( K2+1, K2+1 ), LDB, B( K2+2, + $ K2+1 ), LDB, C1, S1 ) + CALL SROT( JW, QC( 1, K2+1-KWTOP+1 ), 1, QC( 1, + $ K2+2-KWTOP+1 ), 1, C1, S1 ) + + END DO + +* Remove the shift + CALL SLARTG( B( KWBOT, KWBOT ), B( KWBOT, KWBOT-1 ), C1, + $ S1, TEMP ) + B( KWBOT, KWBOT ) = TEMP + B( KWBOT, KWBOT-1 ) = ZERO + CALL SROT( KWBOT-ISTARTM, B( ISTARTM, KWBOT ), 1, + $ B( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL SROT( KWBOT-ISTARTM+1, A( ISTARTM, KWBOT ), 1, + $ A( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL SROT( JW, ZC( 1, KWBOT-KWTOP+1 ), 1, ZC( 1, + $ KWBOT-1-KWTOP+1 ), 1, C1, S1 ) + + K = K-1 + END IF + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL SGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, ZERO, WORK, JW ) + CALL SLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL SGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, ZERO, WORK, JW ) + CALL SLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, JW, JW, ONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL SGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL SLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL SGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL SLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, JW, JW, ONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz4.c b/lapack-netlib/SRC/slaqz4.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/slaqz4.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b SLAQZ4 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), SR( * ), +* $ SI( * ), SS( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ4 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] SR +*> \verbatim +*> SR is REAL array. SR contains +*> the real parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is REAL array. SI contains +*> the imaginary parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SS +*> \verbatim +*> SS is REAL array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is REAL array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is REAL array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, + $ LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, LWORK, + $ INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), SR( * ), + $ SI( * ), SS( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + REAL :: TEMP, V( 3 ), C1, S1, C2, S2, SWAP +* +* External functions + EXTERNAL :: XERBLA, SGEMM, SLAQZ1, SLAQZ2, SLASET, SLARTG, SROT, + $ SLACPY + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ4', -INFO ) + RETURN + END IF + +* Executable statements + + IF ( NSHIFTS .LT. 2 ) THEN + RETURN + END IF + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + +* Shuffle shifts into pairs of real shifts and pairs +* of complex conjugate shifts assuming complex +* conjugate shifts are already adjacent to one +* another + + DO I = 1, NSHIFTS-2, 2 + IF( SI( I ).NE.-SI( I+1 ) ) THEN +* + SWAP = SR( I ) + SR( I ) = SR( I+1 ) + SR( I+1 ) = SR( I+2 ) + SR( I+2 ) = SWAP + + SWAP = SI( I ) + SI( I ) = SI( I+1 ) + SI( I+1 ) = SI( I+2 ) + SI( I+2 ) = SWAP + + SWAP = SS( I ) + SS( I ) = SS( I+1 ) + SS( I+1 ) = SS( I+2 ) + SS( I+2 ) = SWAP + END IF + END DO + +* NSHFTS is supposed to be even, but if it is odd, +* then simply reduce it by one. The shuffle above +* ensures that the dropped shift is real and that +* the remaining shifts are paired. + + NS = NSHIFTS-MOD( NSHIFTS, 2 ) + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL SLASET( 'FULL', NS+1, NS+1, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS, NS, ZERO, ONE, ZC, LDZC ) + + DO I = 1, NS, 2 +* Introduce the shift + CALL SLAQZ1( A( ILO, ILO ), LDA, B( ILO, ILO ), LDB, SR( I ), + $ SR( I+1 ), SI( I ), SS( I ), SS( I+1 ), V ) + + TEMP = V( 2 ) + CALL SLARTG( TEMP, V( 3 ), C1, S1, V( 2 ) ) + CALL SLARTG( V( 1 ), V( 2 ), C2, S2, TEMP ) + + CALL SROT( NS, A( ILO+1, ILO ), LDA, A( ILO+2, ILO ), LDA, C1, + $ S1 ) + CALL SROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C2, + $ S2 ) + CALL SROT( NS, B( ILO+1, ILO ), LDB, B( ILO+2, ILO ), LDB, C1, + $ S1 ) + CALL SROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C2, + $ S2 ) + CALL SROT( NS+1, QC( 1, 2 ), 1, QC( 1, 3 ), 1, C1, S1 ) + CALL SROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C2, S2 ) + +* Chase the shift down + DO J = 1, NS-1-I + + CALL SLAQZ2( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, ONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ ILO ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ ILO ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, SWIDTH, SWIDTH, ONE, Z( 1, ILO ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL SLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -2 + DO J = 0, NP-1 +* Move down the block with index k+i+j-1, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL SLAQZ2( .TRUE., .TRUE., K+I+J-1, ISTARTB, ISTOPB, + $ IHI, A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Z( 1, K ), + $ LDZ, ZC, LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL SLASET( 'FULL', NS, NS, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS+1, NS+1, ZERO, ONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS, 2 +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I-1, IHI-2 + CALL SLAQZ2( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, NS, NS, ONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ IHI-NS ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ IHI-NS ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, NS+1, NS+1, ONE, Z( 1, IHI-NS ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slar1v.f b/lapack-netlib/SRC/slar1v.f index d2423287c5..36c2d8e9d5 100644 --- a/lapack-netlib/SRC/slar1v.f +++ b/lapack-netlib/SRC/slar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ SUBROUTINE SLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/slar2v.f b/lapack-netlib/SRC/slar2v.f index 583f2e689e..ae5eb2e252 100644 --- a/lapack-netlib/SRC/slar2v.f +++ b/lapack-netlib/SRC/slar2v.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/slarf.f b/lapack-netlib/SRC/slarf.f index d66c7bf397..497dad7602 100644 --- a/lapack-netlib/SRC/slarf.f +++ b/lapack-netlib/SRC/slarf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarfb.f b/lapack-netlib/SRC/slarfb.f index d853a54ecf..a065e4e259 100644 --- a/lapack-netlib/SRC/slarfb.f +++ b/lapack-netlib/SRC/slarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/slarfg.f b/lapack-netlib/SRC/slarfg.f index a528ce39c1..35d72389d7 100644 --- a/lapack-netlib/SRC/slarfg.f +++ b/lapack-netlib/SRC/slarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/slarfgp.f b/lapack-netlib/SRC/slarfgp.f index 6a4c084764..df42980c4e 100644 --- a/lapack-netlib/SRC/slarfgp.f +++ b/lapack-netlib/SRC/slarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/slarft.f b/lapack-netlib/SRC/slarft.f index 05ee8b2efc..9cfe0ad3f9 100644 --- a/lapack-netlib/SRC/slarft.f +++ b/lapack-netlib/SRC/slarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/slarfx.f b/lapack-netlib/SRC/slarfx.f index 3175068b85..4f820331db 100644 --- a/lapack-netlib/SRC/slarfx.f +++ b/lapack-netlib/SRC/slarfx.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarfy.f b/lapack-netlib/SRC/slarfy.f index f9ba011a29..39ba4d977f 100644 --- a/lapack-netlib/SRC/slarfy.f +++ b/lapack-netlib/SRC/slarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slargv.f b/lapack-netlib/SRC/slargv.f index 694eccc49a..e2572126eb 100644 --- a/lapack-netlib/SRC/slargv.f +++ b/lapack-netlib/SRC/slargv.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/slarnv.f b/lapack-netlib/SRC/slarnv.f index 44fdeb93b6..8b927fbdba 100644 --- a/lapack-netlib/SRC/slarnv.f +++ b/lapack-netlib/SRC/slarnv.f @@ -79,8 +79,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -97,10 +95,9 @@ * ===================================================================== SUBROUTINE SLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -118,7 +115,7 @@ SUBROUTINE SLARNV( IDIST, ISEED, N, X ) INTEGER LV PARAMETER ( LV = 128 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IL2, IV diff --git a/lapack-netlib/SRC/slarra.f b/lapack-netlib/SRC/slarra.f index 0456263a68..be81b0f691 100644 --- a/lapack-netlib/SRC/slarra.f +++ b/lapack-netlib/SRC/slarra.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/lapack-netlib/SRC/slarrb.f b/lapack-netlib/SRC/slarrb.f index ac9d7bc8ce..cf670dad9a 100644 --- a/lapack-netlib/SRC/slarrb.f +++ b/lapack-netlib/SRC/slarrb.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -196,10 +194,9 @@ SUBROUTINE SLARRB( N, D, LLD, IFIRST, ILAST, RTOL1, $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/lapack-netlib/SRC/slarrc.f b/lapack-netlib/SRC/slarrc.f index f0c033514c..060051539f 100644 --- a/lapack-netlib/SRC/slarrc.f +++ b/lapack-netlib/SRC/slarrc.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -137,10 +135,9 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBT @@ -246,6 +243,6 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, RETURN * -* end of SLARRC +* End of SLARRC * END diff --git a/lapack-netlib/SRC/slarrd.f b/lapack-netlib/SRC/slarrd.f index 7a7ec0abbf..7df8e95fca 100644 --- a/lapack-netlib/SRC/slarrd.f +++ b/lapack-netlib/SRC/slarrd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== @@ -329,10 +327,9 @@ SUBROUTINE SLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS, $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/slarre.f b/lapack-netlib/SRC/slarre.f index 6636235d07..34dd71fd9d 100644 --- a/lapack-netlib/SRC/slarre.f +++ b/lapack-netlib/SRC/slarre.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -305,10 +303,9 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER RANGE @@ -903,6 +900,6 @@ SUBROUTINE SLARRE( RANGE, N, VL, VU, IL, IU, D, E, E2, RETURN * -* end of SLARRE +* End of SLARRE * END diff --git a/lapack-netlib/SRC/slarrf.f b/lapack-netlib/SRC/slarrf.f index 8c8de52fe7..3a6bea32d5 100644 --- a/lapack-netlib/SRC/slarrf.f +++ b/lapack-netlib/SRC/slarrf.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -193,10 +191,9 @@ SUBROUTINE SLARRF( N, D, L, LD, CLSTRT, CLEND, $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/lapack-netlib/SRC/slarrj.f b/lapack-netlib/SRC/slarrj.f index fb867595c0..d56e62c1d6 100644 --- a/lapack-netlib/SRC/slarrj.f +++ b/lapack-netlib/SRC/slarrj.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -168,10 +166,9 @@ SUBROUTINE SLARRJ( N, D, E2, IFIRST, ILAST, $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/lapack-netlib/SRC/slarrk.f b/lapack-netlib/SRC/slarrk.f index f39f074dbb..e553d84524 100644 --- a/lapack-netlib/SRC/slarrk.f +++ b/lapack-netlib/SRC/slarrk.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/lapack-netlib/SRC/slarrr.f b/lapack-netlib/SRC/slarrr.f index 3f77d3888b..d18465bc8b 100644 --- a/lapack-netlib/SRC/slarrr.f +++ b/lapack-netlib/SRC/slarrr.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -94,10 +92,9 @@ * ===================================================================== SUBROUTINE SLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, INFO @@ -206,6 +203,6 @@ SUBROUTINE SLARRR( N, D, E, INFO ) * RETURN * -* END OF SLARRR +* End of SLARRR * END diff --git a/lapack-netlib/SRC/slarrv.f b/lapack-netlib/SRC/slarrv.f index 9448b2fd92..95f94fd1bd 100644 --- a/lapack-netlib/SRC/slarrv.f +++ b/lapack-netlib/SRC/slarrv.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -292,10 +290,9 @@ SUBROUTINE SLARRV( N, VL, VU, D, L, PIVMIN, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/slarscl2.f b/lapack-netlib/SRC/slarscl2.f index 5f57d33718..5726f12cd5 100644 --- a/lapack-netlib/SRC/slarscl2.f +++ b/lapack-netlib/SRC/slarscl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/slartg.f b/lapack-netlib/SRC/slartg.f deleted file mode 100644 index 307c9c83ad..0000000000 --- a/lapack-netlib/SRC/slartg.f +++ /dev/null @@ -1,204 +0,0 @@ -*> \brief \b SLARTG generates a plane rotation with real cosine and real sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download SLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE SLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* REAL CS, F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> SLARTG generate a plane rotation so that -*> -*> [ CS SN ] . [ F ] = [ R ] where CS**2 + SN**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a slower, more accurate version of the BLAS1 routine SROTG, -*> with the following other differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any -*> floating point operations (saves work in SBDSQR when -*> there are zeros on the diagonal). -*> -*> If F exceeds G in magnitude, CS will be positive. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is REAL -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is REAL -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is REAL -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is REAL -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is REAL -*> The nonzero component of the rotated vector. -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE SLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - REAL CS, F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E0 ) - REAL ONE - PARAMETER ( ONE = 1.0E0 ) - REAL TWO - PARAMETER ( TWO = 2.0E0 ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - REAL EPS, F1, G1, SAFMIN, SAFMN2, SAFMX2, SCALE -* .. -* .. External Functions .. - REAL SLAMCH - EXTERNAL SLAMCH -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, INT, LOG, MAX, SQRT -* .. -* .. Save statement .. -* SAVE FIRST, SAFMX2, SAFMIN, SAFMN2 -* .. -* .. Data statements .. -* DATA FIRST / .TRUE. / -* .. -* .. Executable Statements .. -* -* IF( FIRST ) THEN - SAFMIN = SLAMCH( 'S' ) - EPS = SLAMCH( 'E' ) - SAFMN2 = SLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( SLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 -* FIRST = .FALSE. -* END IF - IF( G.EQ.ZERO ) THEN - CS = ONE - SN = ZERO - R = F - ELSE IF( F.EQ.ZERO ) THEN - CS = ZERO - SN = ONE - R = G - ELSE - F1 = F - G1 = G - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 ) THEN - COUNT = 0 - 10 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMN2 - G1 = G1*SAFMN2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 20 I = 1, COUNT - R = R*SAFMX2 - 20 CONTINUE - ELSE IF( SCALE.LE.SAFMN2 ) THEN - COUNT = 0 - 30 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMX2 - G1 = G1*SAFMX2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.LE.SAFMN2 ) - $ GO TO 30 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 40 I = 1, COUNT - R = R*SAFMN2 - 40 CONTINUE - ELSE - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - END IF - IF( ABS( F ).GT.ABS( G ) .AND. CS.LT.ZERO ) THEN - CS = -CS - SN = -SN - R = -R - END IF - END IF - RETURN -* -* End of SLARTG -* - END diff --git a/lapack-netlib/SRC/slartg.f90 b/lapack-netlib/SRC/slartg.f90 new file mode 100644 index 0000000000..a9af1aa8d5 --- /dev/null +++ b/lapack-netlib/SRC/slartg.f90 @@ -0,0 +1,162 @@ +!> \brief \b SLARTG generates a plane rotation with real cosine and real sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE SLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C, F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> SLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -S C ] [ G ] [ 0 ] +!> +!> where C**2 + S**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> R = sign(F) * sqrt(F**2 + G**2) +!> C = F / R +!> S = G / R +!> Hence C >= 0. The algorithm used to compute these quantities +!> incorporates scaling to avoid overflow or underflow in computing the +!> square root of the sum of squares. +!> +!> This version is discontinuous in R at F = 0 but it returns the same +!> C and S as SLARTG for complex inputs (F,0) and (G,0). +!> +!> This is a more accurate version of the BLAS1 routine SROTG, +!> with the following other differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0 and (G .ne. 0), then C=0 and S=sign(1,G) without doing any +!> floating point operations (saves work in SBDSQR when +!> there are zeros on the diagonal). +!> +!> If F exceeds G in magnitude, C will be positive. +!> +!> Below, wp=>sp stands for single precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is REAL(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is REAL(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is REAL(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is REAL(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date July 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine SLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, half=>shalf, one=>sone, & + rtmin=>srtmin, rtmax=>srtmax, safmin=>ssafmin, safmax=>ssafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) :: c, f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, fs, g1, gs, p, u, uu +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, sign, sqrt +! .. +! .. Executable Statements .. +! + f1 = abs( f ) + g1 = abs( g ) + if( g == zero ) then + c = one + s = zero + r = f + else if( f == zero ) then + c = zero + s = sign( one, g ) + r = g1 + else if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then + d = sqrt( f*f + g*g ) + p = one / d + c = f1*p + s = g*sign( p, f ) + r = sign( d, f ) + else + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + fs = f*uu + gs = g*uu + d = sqrt( fs*fs + gs*gs ) + p = one / d + c = abs( fs )*p + s = gs*sign( p, f ) + r = sign( d, f )*u + end if + return +end subroutine diff --git a/lapack-netlib/SRC/slartgp.f b/lapack-netlib/SRC/slartgp.f index f8be5f52bd..8d98db4199 100644 --- a/lapack-netlib/SRC/slartgp.f +++ b/lapack-netlib/SRC/slartgp.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CS, F, G, R, SN @@ -197,6 +194,6 @@ SUBROUTINE SLARTGP( F, G, CS, SN, R ) END IF RETURN * -* End of SLARTG +* End of SLARTGP * END diff --git a/lapack-netlib/SRC/slartgs.f b/lapack-netlib/SRC/slartgs.f index 59a2182ca8..dfc1a25c88 100644 --- a/lapack-netlib/SRC/slartgs.f +++ b/lapack-netlib/SRC/slartgs.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. REAL CS, SIGMA, SN, X, Y diff --git a/lapack-netlib/SRC/slartv.f b/lapack-netlib/SRC/slartv.f index 4cdb93dbe8..200e608805 100644 --- a/lapack-netlib/SRC/slartv.f +++ b/lapack-netlib/SRC/slartv.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/slaruv.f b/lapack-netlib/SRC/slaruv.f index ed84200178..c25dc2e2f0 100644 --- a/lapack-netlib/SRC/slaruv.f +++ b/lapack-netlib/SRC/slaruv.f @@ -72,8 +72,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -95,10 +93,9 @@ * ===================================================================== SUBROUTINE SLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/SRC/slarz.f b/lapack-netlib/SRC/slarz.f index 9c9d831161..549a10fb17 100644 --- a/lapack-netlib/SRC/slarz.f +++ b/lapack-netlib/SRC/slarz.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarzb.f b/lapack-netlib/SRC/slarzb.f index 3e5aab6c33..93154c4c98 100644 --- a/lapack-netlib/SRC/slarzb.f +++ b/lapack-netlib/SRC/slarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/slarzt.f b/lapack-netlib/SRC/slarzt.f index d6428d097c..fc3e8175ca 100644 --- a/lapack-netlib/SRC/slarzt.f +++ b/lapack-netlib/SRC/slarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/slas2.f b/lapack-netlib/SRC/slas2.f index 906c8bd519..6ae86204cb 100644 --- a/lapack-netlib/SRC/slas2.f +++ b/lapack-netlib/SRC/slas2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL F, G, H, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/slascl.f b/lapack-netlib/SRC/slascl.f index d3257147d9..e1cb420ea9 100644 --- a/lapack-netlib/SRC/slascl.f +++ b/lapack-netlib/SRC/slascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/slascl2.f b/lapack-netlib/SRC/slascl2.f index dbe7783c9a..07b506a8c1 100644 --- a/lapack-netlib/SRC/slascl2.f +++ b/lapack-netlib/SRC/slascl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/slasd0.f b/lapack-netlib/SRC/slasd0.f index 3b8754427e..a45f741a97 100644 --- a/lapack-netlib/SRC/slasd0.f +++ b/lapack-netlib/SRC/slasd0.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -150,10 +148,9 @@ SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/slasd1.f b/lapack-netlib/SRC/slasd1.f index be93870e2e..8e4460aaa0 100644 --- a/lapack-netlib/SRC/slasd1.f +++ b/lapack-netlib/SRC/slasd1.f @@ -190,8 +190,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/lapack-netlib/SRC/slasd2.f b/lapack-netlib/SRC/slasd2.f index 5f414f105e..1902242c77 100644 --- a/lapack-netlib/SRC/slasd2.f +++ b/lapack-netlib/SRC/slasd2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ SUBROUTINE SLASD2( NL, NR, SQRE, K, D, Z, ALPHA, BETA, U, LDU, VT, $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/lapack-netlib/SRC/slasd3.f b/lapack-netlib/SRC/slasd3.f index add92f354c..f9420f88aa 100644 --- a/lapack-netlib/SRC/slasd3.f +++ b/lapack-netlib/SRC/slasd3.f @@ -209,8 +209,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -224,10 +222,9 @@ SUBROUTINE SLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2, $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/lapack-netlib/SRC/slasd4.f b/lapack-netlib/SRC/slasd4.f index 31d5f7f6c3..f949094f5c 100644 --- a/lapack-netlib/SRC/slasd4.f +++ b/lapack-netlib/SRC/slasd4.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/slasd5.f b/lapack-netlib/SRC/slasd5.f index a362b86c78..9a0a077102 100644 --- a/lapack-netlib/SRC/slasd5.f +++ b/lapack-netlib/SRC/slasd5.f @@ -103,8 +103,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -116,10 +114,9 @@ * ===================================================================== SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I diff --git a/lapack-netlib/SRC/slasd6.f b/lapack-netlib/SRC/slasd6.f index ae37de00f3..f4cbeb25d4 100644 --- a/lapack-netlib/SRC/slasd6.f +++ b/lapack-netlib/SRC/slasd6.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -313,10 +311,9 @@ SUBROUTINE SLASD6( ICOMPQ, NL, NR, SQRE, D, VF, VL, ALPHA, BETA, $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/slasd7.f b/lapack-netlib/SRC/slasd7.f index d8775b6c60..efd1f59d08 100644 --- a/lapack-netlib/SRC/slasd7.f +++ b/lapack-netlib/SRC/slasd7.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -280,10 +278,9 @@ SUBROUTINE SLASD7( ICOMPQ, NL, NR, SQRE, K, D, Z, ZW, VF, VFW, VL, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/slasd8.f b/lapack-netlib/SRC/slasd8.f index 1d1d5cdb8c..43b171e5f9 100644 --- a/lapack-netlib/SRC/slasd8.f +++ b/lapack-netlib/SRC/slasd8.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/lapack-netlib/SRC/slasda.f b/lapack-netlib/SRC/slasda.f index 6e02260f8c..20f01ee486 100644 --- a/lapack-netlib/SRC/slasda.f +++ b/lapack-netlib/SRC/slasda.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -273,10 +271,9 @@ SUBROUTINE SLASDA( ICOMPQ, SMLSIZ, N, SQRE, D, E, U, LDU, VT, K, $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/slasdq.f b/lapack-netlib/SRC/slasdq.f index 434d373ba5..8561422009 100644 --- a/lapack-netlib/SRC/slasdq.f +++ b/lapack-netlib/SRC/slasdq.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -211,10 +209,9 @@ SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasdt.f b/lapack-netlib/SRC/slasdt.f index fe5aaa6426..4125472683 100644 --- a/lapack-netlib/SRC/slasdt.f +++ b/lapack-netlib/SRC/slasdt.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -105,10 +103,9 @@ * ===================================================================== SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/lapack-netlib/SRC/slaset.f b/lapack-netlib/SRC/slaset.f index 3a87e086b2..c43757e010 100644 --- a/lapack-netlib/SRC/slaset.f +++ b/lapack-netlib/SRC/slaset.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasq1.f b/lapack-netlib/SRC/slasq1.f index 458aecea6c..1ba7a8aaeb 100644 --- a/lapack-netlib/SRC/slasq1.f +++ b/lapack-netlib/SRC/slasq1.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/slasq2.f b/lapack-netlib/SRC/slasq2.f index c0c71b82e9..c7909d83bd 100644 --- a/lapack-netlib/SRC/slasq2.f +++ b/lapack-netlib/SRC/slasq2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -112,10 +110,9 @@ * ===================================================================== SUBROUTINE SLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N @@ -274,8 +271,7 @@ SUBROUTINE SLASQ2( N, Z, INFO ) * * Check whether the machine is IEEE conformable. * -* IEEE = ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 .AND. -* $ ILAENV( 11, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 +* IEEE = ( ILAENV( 10, 'SLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 ) * * [11/15/2008] The case IEEE=.TRUE. has a problem in single precision with * some the test matrices of type 16. The double precision code is fine. diff --git a/lapack-netlib/SRC/slasq3.f b/lapack-netlib/SRC/slasq3.f index 4bc06475eb..cd86ce8962 100644 --- a/lapack-netlib/SRC/slasq3.f +++ b/lapack-netlib/SRC/slasq3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -182,10 +180,9 @@ SUBROUTINE SLASQ3( I0, N0, Z, PP, DMIN, SIGMA, DESIG, QMAX, NFAIL, $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/slasq4.f b/lapack-netlib/SRC/slasq4.f index 99317831c2..68a840fccc 100644 --- a/lapack-netlib/SRC/slasq4.f +++ b/lapack-netlib/SRC/slasq4.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/lapack-netlib/SRC/slasq5.f b/lapack-netlib/SRC/slasq5.f index 967e0a846f..d94b3cd8a2 100644 --- a/lapack-netlib/SRC/slasq5.f +++ b/lapack-netlib/SRC/slasq5.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/slasq6.f b/lapack-netlib/SRC/slasq6.f index afb9b81efb..5e3df7b143 100644 --- a/lapack-netlib/SRC/slasq6.f +++ b/lapack-netlib/SRC/slasq6.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/lapack-netlib/SRC/slasr.f b/lapack-netlib/SRC/slasr.f index 6e18337893..adcea12c99 100644 --- a/lapack-netlib/SRC/slasr.f +++ b/lapack-netlib/SRC/slasr.f @@ -192,17 +192,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/slasrt.f b/lapack-netlib/SRC/slasrt.f index ef6aa4df7b..132e03db61 100644 --- a/lapack-netlib/SRC/slasrt.f +++ b/lapack-netlib/SRC/slasrt.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ID diff --git a/lapack-netlib/SRC/slassq.f b/lapack-netlib/SRC/slassq.f deleted file mode 100644 index d9930a5972..0000000000 --- a/lapack-netlib/SRC/slassq.f +++ /dev/null @@ -1,155 +0,0 @@ -*> \brief \b SLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download SLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. -* REAL X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> SLASSQ returns the values scl and smsq such that -*> -*> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is -*> assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( x( i ) ) ). -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ and -*> scl and smsq are overwritten on SCALE and SUMSQ respectively. -*> -*> The routine makes only one pass through the vector x. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is REAL array, dimension (1+(N-1)*INCX) -*> The vector for which a scaled sum of squares is computed. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is REAL -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with scl , the scaling factor -*> for the sum of squares. -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is REAL -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with smsq , the basic sum of -*> squares from which scl has been factored out. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. - REAL X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - REAL ABSXI -* .. -* .. External Functions .. - LOGICAL SISNAN - EXTERNAL SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - ABSXI = ABS( X( IX ) ) - IF( ABSXI.GT.ZERO.OR.SISNAN( ABSXI ) ) THEN - IF( SCALE.LT.ABSXI ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / ABSXI )**2 - SCALE = ABSXI - ELSE - SUMSQ = SUMSQ + ( ABSXI / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF - RETURN -* -* End of SLASSQ -* - END diff --git a/lapack-netlib/SRC/slassq.f90 b/lapack-netlib/SRC/slassq.f90 new file mode 100644 index 0000000000..19f49402b1 --- /dev/null +++ b/lapack-netlib/SRC/slassq.f90 @@ -0,0 +1,253 @@ +!> \brief \b SLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download SLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! REAL SCALE, SUMSQ +! .. +! .. Array Arguments .. +! REAL X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> SLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is REAL array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is REAL +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is REAL +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine SLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, & + sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + real(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(x(ix)) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/slasv2.f b/lapack-netlib/SRC/slasv2.f index 3cd556e33d..6b98e9a0c5 100644 --- a/lapack-netlib/SRC/slasv2.f +++ b/lapack-netlib/SRC/slasv2.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/slaswlq.f b/lapack-netlib/SRC/slaswlq.f index 5eb9cc5f90..bc7cf343d4 100644 --- a/lapack-netlib/SRC/slaswlq.f +++ b/lapack-netlib/SRC/slaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/slaswp.f b/lapack-netlib/SRC/slaswp.f index 4fcef5b919..20e29d62ac 100644 --- a/lapack-netlib/SRC/slaswp.f +++ b/lapack-netlib/SRC/slaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/slasy2.f b/lapack-netlib/SRC/slasy2.f index 72b835e109..2a458ba70b 100644 --- a/lapack-netlib/SRC/slasy2.f +++ b/lapack-netlib/SRC/slasy2.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/lapack-netlib/SRC/slasyf.f b/lapack-netlib/SRC/slasyf.f index 58dace2ee7..c551c1460f 100644 --- a/lapack-netlib/SRC/slasyf.f +++ b/lapack-netlib/SRC/slasyf.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -176,10 +174,9 @@ * ===================================================================== SUBROUTINE SLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasyf_aa.f b/lapack-netlib/SRC/slasyf_aa.f index 76f632602e..8c8bdf7d1d 100644 --- a/lapack-netlib/SRC/slasyf_aa.f +++ b/lapack-netlib/SRC/slasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/slasyf_rk.f b/lapack-netlib/SRC/slasyf_rk.f index c167083658..1960bd1108 100644 --- a/lapack-netlib/SRC/slasyf_rk.f +++ b/lapack-netlib/SRC/slasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE SLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasyf_rook.f b/lapack-netlib/SRC/slasyf_rook.f index 65bb2ad9d5..7764f69350 100644 --- a/lapack-netlib/SRC/slasyf_rook.f +++ b/lapack-netlib/SRC/slasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE SLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slatbs.f b/lapack-netlib/SRC/slatbs.f index a06838cb01..617d0b2f50 100644 --- a/lapack-netlib/SRC/slatbs.f +++ b/lapack-netlib/SRC/slatbs.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -242,10 +240,9 @@ SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatdf.f b/lapack-netlib/SRC/slatdf.f index 495d32502a..2eaacbd9cc 100644 --- a/lapack-netlib/SRC/slatdf.f +++ b/lapack-netlib/SRC/slatdf.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -171,10 +169,9 @@ SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/slatps.f b/lapack-netlib/SRC/slatps.f index 83151c196a..2bce76f065 100644 --- a/lapack-netlib/SRC/slatps.f +++ b/lapack-netlib/SRC/slatps.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -229,10 +227,9 @@ SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatrd.f b/lapack-netlib/SRC/slatrd.f index f562ce3967..1cdb13c394 100644 --- a/lapack-netlib/SRC/slatrd.f +++ b/lapack-netlib/SRC/slatrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slatrs.f b/lapack-netlib/SRC/slatrs.f index d62debcd9c..94e0e88bc6 100644 --- a/lapack-netlib/SRC/slatrs.f +++ b/lapack-netlib/SRC/slatrs.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -238,10 +236,9 @@ SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatrz.f b/lapack-netlib/SRC/slatrz.f index 16e973294f..6f5fe08912 100644 --- a/lapack-netlib/SRC/slatrz.f +++ b/lapack-netlib/SRC/slatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/slatsqr.f b/lapack-netlib/SRC/slatsqr.f index b56b0d41ea..33966c01f1 100644 --- a/lapack-netlib/SRC/slatsqr.f +++ b/lapack-netlib/SRC/slatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/slauu2.f b/lapack-netlib/SRC/slauu2.f index c9f774cc8f..efe5e47efb 100644 --- a/lapack-netlib/SRC/slauu2.f +++ b/lapack-netlib/SRC/slauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slauum.f b/lapack-netlib/SRC/slauum.f index c23c4b3e67..a7b69432df 100644 --- a/lapack-netlib/SRC/slauum.f +++ b/lapack-netlib/SRC/slauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sopgtr.f b/lapack-netlib/SRC/sopgtr.f index 567f76a794..1ab657acce 100644 --- a/lapack-netlib/SRC/sopgtr.f +++ b/lapack-netlib/SRC/sopgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sopmtr.f b/lapack-netlib/SRC/sopmtr.f index 809f8b2a9f..c1148e01f4 100644 --- a/lapack-netlib/SRC/sopmtr.f +++ b/lapack-netlib/SRC/sopmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/sorbdb.f b/lapack-netlib/SRC/sorbdb.f index 2e460aaa9f..351172ff16 100644 --- a/lapack-netlib/SRC/sorbdb.f +++ b/lapack-netlib/SRC/sorbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ SUBROUTINE SORBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/sorbdb1.f b/lapack-netlib/SRC/sorbdb1.f index 98bc8e7985..c860f43665 100644 --- a/lapack-netlib/SRC/sorbdb1.f +++ b/lapack-netlib/SRC/sorbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb2.f b/lapack-netlib/SRC/sorbdb2.f index 684778ef04..ad3eb269dd 100644 --- a/lapack-netlib/SRC/sorbdb2.f +++ b/lapack-netlib/SRC/sorbdb2.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb3.f b/lapack-netlib/SRC/sorbdb3.f index d849613c21..6209b24ee0 100644 --- a/lapack-netlib/SRC/sorbdb3.f +++ b/lapack-netlib/SRC/sorbdb3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb4.f b/lapack-netlib/SRC/sorbdb4.f index 42bbcbda88..b18ed3b270 100644 --- a/lapack-netlib/SRC/sorbdb4.f +++ b/lapack-netlib/SRC/sorbdb4.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE SORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb5.f b/lapack-netlib/SRC/sorbdb5.f index f5af1db1a5..8c67aedfb1 100644 --- a/lapack-netlib/SRC/sorbdb5.f +++ b/lapack-netlib/SRC/sorbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/sorbdb6.f b/lapack-netlib/SRC/sorbdb6.f index beedbfcb6c..a23b42bebc 100644 --- a/lapack-netlib/SRC/sorbdb6.f +++ b/lapack-netlib/SRC/sorbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/sorcsd.f b/lapack-netlib/SRC/sorcsd.f index 06c77d8e30..30bee7a79f 100644 --- a/lapack-netlib/SRC/sorcsd.f +++ b/lapack-netlib/SRC/sorcsd.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -300,10 +298,9 @@ RECURSIVE SUBROUTINE SORCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/sorcsd2by1.f b/lapack-netlib/SRC/sorcsd2by1.f index 18a2a7904b..25c317f6f6 100644 --- a/lapack-netlib/SRC/sorcsd2by1.f +++ b/lapack-netlib/SRC/sorcsd2by1.f @@ -224,8 +224,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -233,10 +231,9 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -674,6 +671,9 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL SCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL SCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -685,7 +685,6 @@ SUBROUTINE SORCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL SCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/sorg2l.f b/lapack-netlib/SRC/sorg2l.f index e26c70d77b..aa0dd0a08e 100644 --- a/lapack-netlib/SRC/sorg2l.f +++ b/lapack-netlib/SRC/sorg2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorg2r.f b/lapack-netlib/SRC/sorg2r.f index a301f6008f..3a8aa33a02 100644 --- a/lapack-netlib/SRC/sorg2r.f +++ b/lapack-netlib/SRC/sorg2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorgbr.f b/lapack-netlib/SRC/sorgbr.f index 2266505dc0..8f15523d4b 100644 --- a/lapack-netlib/SRC/sorgbr.f +++ b/lapack-netlib/SRC/sorgbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/sorghr.f b/lapack-netlib/SRC/sorghr.f index 3efea72f28..f65cd898c2 100644 --- a/lapack-netlib/SRC/sorghr.f +++ b/lapack-netlib/SRC/sorghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sorgl2.f b/lapack-netlib/SRC/sorgl2.f index 276a01ec8c..d85c388749 100644 --- a/lapack-netlib/SRC/sorgl2.f +++ b/lapack-netlib/SRC/sorgl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorglq.f b/lapack-netlib/SRC/sorglq.f index 90806fcc3b..b1d107964c 100644 --- a/lapack-netlib/SRC/sorglq.f +++ b/lapack-netlib/SRC/sorglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgql.f b/lapack-netlib/SRC/sorgql.f index b46b00c273..34ab5edefe 100644 --- a/lapack-netlib/SRC/sorgql.f +++ b/lapack-netlib/SRC/sorgql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgqr.f b/lapack-netlib/SRC/sorgqr.f index dbc9faff46..056de54d79 100644 --- a/lapack-netlib/SRC/sorgqr.f +++ b/lapack-netlib/SRC/sorgqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgr2.f b/lapack-netlib/SRC/sorgr2.f index 5a03e7d773..12bb90c782 100644 --- a/lapack-netlib/SRC/sorgr2.f +++ b/lapack-netlib/SRC/sorgr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorgrq.f b/lapack-netlib/SRC/sorgrq.f index b5ecdeac41..d9b6ccbe6c 100644 --- a/lapack-netlib/SRC/sorgrq.f +++ b/lapack-netlib/SRC/sorgrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgtr.f b/lapack-netlib/SRC/sorgtr.f index da9a6558f6..67bde00cbc 100644 --- a/lapack-netlib/SRC/sorgtr.f +++ b/lapack-netlib/SRC/sorgtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sorgtsqr.f b/lapack-netlib/SRC/sorgtsqr.f index 748760d634..a755fa4a45 100644 --- a/lapack-netlib/SRC/sorgtsqr.f +++ b/lapack-netlib/SRC/sorgtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -155,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singleOTHERcomputational * *> \par Contributors: @@ -175,10 +174,9 @@ SUBROUTINE SORGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB @@ -225,7 +223,7 @@ SUBROUTINE SORGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, * * Test the input LWORK for the dimension of the array WORK. * This workspace is used to store array C(LDC, N) and WORK(LWORK) -* in the call to DLAMTSQR. See the documentation for DLAMTSQR. +* in the call to SLAMTSQR. See the documentation for SLAMTSQR. * IF( LWORK.LT.2 .AND. (.NOT.LQUERY) ) THEN INFO = -10 @@ -236,8 +234,8 @@ SUBROUTINE SORGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, NBLOCAL = MIN( NB, N ) * * LWORK = -1, then set the size for the array C(LDC,N) -* in DLAMTSQR call and set the optimal size of the work array -* WORK(LWORK) in DLAMTSQR call. +* in SLAMTSQR call and set the optimal size of the work array +* WORK(LWORK) in SLAMTSQR call. * LDC = M LC = LDC*N @@ -272,7 +270,7 @@ SUBROUTINE SORGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, * (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in * of M-by-M orthogonal matrix Q_in, which is implicitly stored in * the subdiagonal part of input array A and in the input array T. -* Perform by the following operation using the routine DLAMTSQR. +* Perform by the following operation using the routine SLAMTSQR. * * Q1_in = Q_in * ( I ), where I is a N-by-N identity matrix, * ( 0 ) 0 is a (M-N)-by-N zero matrix. diff --git a/lapack-netlib/SRC/sorhr_col.f b/lapack-netlib/SRC/sorhr_col.f index 9aef57b26f..5d91881482 100644 --- a/lapack-netlib/SRC/sorhr_col.f +++ b/lapack-netlib/SRC/sorhr_col.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in SGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singleOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE SORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/sorm22.f b/lapack-netlib/SRC/sorm22.f index 265e9769ea..15096870a0 100644 --- a/lapack-netlib/SRC/sorm22.f +++ b/lapack-netlib/SRC/sorm22.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE SORM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sorm2l.f b/lapack-netlib/SRC/sorm2l.f index 0542ae222a..2f6e3abbc3 100644 --- a/lapack-netlib/SRC/sorm2l.f +++ b/lapack-netlib/SRC/sorm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sorm2r.f b/lapack-netlib/SRC/sorm2r.f index 61560d656e..0e0747a005 100644 --- a/lapack-netlib/SRC/sorm2r.f +++ b/lapack-netlib/SRC/sorm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormbr.f b/lapack-netlib/SRC/sormbr.f index 425e04cd2d..efe5be41a8 100644 --- a/lapack-netlib/SRC/sormbr.f +++ b/lapack-netlib/SRC/sormbr.f @@ -188,18 +188,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -242,10 +239,10 @@ SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -265,7 +262,7 @@ SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -287,7 +284,7 @@ SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/sormhr.f b/lapack-netlib/SRC/sormhr.f index 10e0b3c602..2d2053af4c 100644 --- a/lapack-netlib/SRC/sormhr.f +++ b/lapack-netlib/SRC/sormhr.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -223,10 +220,10 @@ SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -245,7 +242,7 @@ SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -255,7 +252,7 @@ SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, ELSE NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/sorml2.f b/lapack-netlib/SRC/sorml2.f index b9242ce697..c5705c799e 100644 --- a/lapack-netlib/SRC/sorml2.f +++ b/lapack-netlib/SRC/sorml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormlq.f b/lapack-netlib/SRC/sormlq.f index 5cc4b875c4..ee996e5602 100644 --- a/lapack-netlib/SRC/sormlq.f +++ b/lapack-netlib/SRC/sormlq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -219,10 +216,10 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -238,7 +235,7 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -248,7 +245,7 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'SORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -269,7 +266,7 @@ SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormql.f b/lapack-netlib/SRC/sormql.f index 51625693cd..72a8d22eea 100644 --- a/lapack-netlib/SRC/sormql.f +++ b/lapack-netlib/SRC/sormql.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -271,7 +268,7 @@ SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormqr.f b/lapack-netlib/SRC/sormqr.f index 5132f1a696..5d4256f09c 100644 --- a/lapack-netlib/SRC/sormqr.f +++ b/lapack-netlib/SRC/sormqr.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -218,10 +215,10 @@ SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -237,7 +234,7 @@ SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -247,7 +244,7 @@ SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'SORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -268,7 +265,7 @@ SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormr2.f b/lapack-netlib/SRC/sormr2.f index 8062115e04..cefe1d3092 100644 --- a/lapack-netlib/SRC/sormr2.f +++ b/lapack-netlib/SRC/sormr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormr3.f b/lapack-netlib/SRC/sormr3.f index 461957afb5..18d66e3238 100644 --- a/lapack-netlib/SRC/sormr3.f +++ b/lapack-netlib/SRC/sormr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormrq.f b/lapack-netlib/SRC/sormrq.f index ec7775b4fa..62fcdacdb9 100644 --- a/lapack-netlib/SRC/sormrq.f +++ b/lapack-netlib/SRC/sormrq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -272,7 +269,7 @@ SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormrz.f b/lapack-netlib/SRC/sormrz.f index e86d1aa869..cdadd62b51 100644 --- a/lapack-netlib/SRC/sormrz.f +++ b/lapack-netlib/SRC/sormrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -293,7 +290,7 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormtr.f b/lapack-netlib/SRC/sormtr.f index 5d46ff98fb..3ba749fee6 100644 --- a/lapack-netlib/SRC/sormtr.f +++ b/lapack-netlib/SRC/sormtr.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -216,10 +213,10 @@ SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -258,7 +255,7 @@ SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/spbcon.f b/lapack-netlib/SRC/spbcon.f index a32e605c60..84c97b1cbc 100644 --- a/lapack-netlib/SRC/spbcon.f +++ b/lapack-netlib/SRC/spbcon.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbequ.f b/lapack-netlib/SRC/spbequ.f index 6379831cb3..df2c3a19c6 100644 --- a/lapack-netlib/SRC/spbequ.f +++ b/lapack-netlib/SRC/spbequ.f @@ -122,17 +122,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbrfs.f b/lapack-netlib/SRC/spbrfs.f index 1f83244337..f13aaee016 100644 --- a/lapack-netlib/SRC/spbrfs.f +++ b/lapack-netlib/SRC/spbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbstf.f b/lapack-netlib/SRC/spbstf.f index dba3d70b8e..909c165f3c 100644 --- a/lapack-netlib/SRC/spbstf.f +++ b/lapack-netlib/SRC/spbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -152,10 +150,9 @@ * ===================================================================== SUBROUTINE SPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbsv.f b/lapack-netlib/SRC/spbsv.f index aab1c74f5b..2d084424e6 100644 --- a/lapack-netlib/SRC/spbsv.f +++ b/lapack-netlib/SRC/spbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbsvx.f b/lapack-netlib/SRC/spbsvx.f index c43a079a30..27907eb854 100644 --- a/lapack-netlib/SRC/spbsvx.f +++ b/lapack-netlib/SRC/spbsvx.f @@ -302,8 +302,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -343,10 +341,9 @@ SUBROUTINE SPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spbtf2.f b/lapack-netlib/SRC/spbtf2.f index 6da0108501..ff08bc3272 100644 --- a/lapack-netlib/SRC/spbtf2.f +++ b/lapack-netlib/SRC/spbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbtrf.f b/lapack-netlib/SRC/spbtrf.f index 3cd39fa879..ef5dcbb986 100644 --- a/lapack-netlib/SRC/spbtrf.f +++ b/lapack-netlib/SRC/spbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbtrs.f b/lapack-netlib/SRC/spbtrs.f index 81ddaab9b4..bc33819569 100644 --- a/lapack-netlib/SRC/spbtrs.f +++ b/lapack-netlib/SRC/spbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spftrf.f b/lapack-netlib/SRC/spftrf.f index 6f48c00bd0..9e2c11eeae 100644 --- a/lapack-netlib/SRC/spftrf.f +++ b/lapack-netlib/SRC/spftrf.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spftri.f b/lapack-netlib/SRC/spftri.f index 96c99a0284..4e82bb183e 100644 --- a/lapack-netlib/SRC/spftri.f +++ b/lapack-netlib/SRC/spftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spftrs.f b/lapack-netlib/SRC/spftrs.f index e6710e2f2e..fec7eff767 100644 --- a/lapack-netlib/SRC/spftrs.f +++ b/lapack-netlib/SRC/spftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spocon.f b/lapack-netlib/SRC/spocon.f index c249c3eb33..8b4e85b3d6 100644 --- a/lapack-netlib/SRC/spocon.f +++ b/lapack-netlib/SRC/spocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spoequ.f b/lapack-netlib/SRC/spoequ.f index f2de64db2f..45c61d6454 100644 --- a/lapack-netlib/SRC/spoequ.f +++ b/lapack-netlib/SRC/spoequ.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/spoequb.f b/lapack-netlib/SRC/spoequb.f index e74eefa47c..e221cdb6da 100644 --- a/lapack-netlib/SRC/spoequb.f +++ b/lapack-netlib/SRC/spoequb.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/sporfs.f b/lapack-netlib/SRC/sporfs.f index 32a69b0742..4390b1d42b 100644 --- a/lapack-netlib/SRC/sporfs.f +++ b/lapack-netlib/SRC/sporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sporfsx.f b/lapack-netlib/SRC/sporfsx.f index ce8c26569e..8f69bc77ed 100644 --- a/lapack-netlib/SRC/sporfsx.f +++ b/lapack-netlib/SRC/sporfsx.f @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOcomputational * * ===================================================================== @@ -394,10 +392,9 @@ SUBROUTINE SPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, B, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/sposv.f b/lapack-netlib/SRC/sposv.f index 2a9565d85c..fe0a35a568 100644 --- a/lapack-netlib/SRC/sposv.f +++ b/lapack-netlib/SRC/sposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOsolve * * ===================================================================== SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sposvx.f b/lapack-netlib/SRC/sposvx.f index 6051068108..bcf38c7eaf 100644 --- a/lapack-netlib/SRC/sposvx.f +++ b/lapack-netlib/SRC/sposvx.f @@ -298,8 +298,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOsolve * * ===================================================================== @@ -307,10 +305,9 @@ SUBROUTINE SPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/sposvxx.f b/lapack-netlib/SRC/sposvxx.f index fa2c0d3f31..08adf1d588 100644 --- a/lapack-netlib/SRC/sposvxx.f +++ b/lapack-netlib/SRC/sposvxx.f @@ -487,8 +487,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOsolve * * ===================================================================== @@ -497,10 +495,9 @@ SUBROUTINE SPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spotf2.f b/lapack-netlib/SRC/spotf2.f index 4af49997a3..5b35048345 100644 --- a/lapack-netlib/SRC/spotf2.f +++ b/lapack-netlib/SRC/spotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrf.f b/lapack-netlib/SRC/spotrf.f index 968365c9a2..5d5771c86a 100644 --- a/lapack-netlib/SRC/spotrf.f +++ b/lapack-netlib/SRC/spotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrf2.f b/lapack-netlib/SRC/spotrf2.f index 474bd39a8c..ae0484ce16 100644 --- a/lapack-netlib/SRC/spotrf2.f +++ b/lapack-netlib/SRC/spotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realPOcomputational * * ===================================================================== RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotri.f b/lapack-netlib/SRC/spotri.f index bbd504ca28..5e9944847f 100644 --- a/lapack-netlib/SRC/spotri.f +++ b/lapack-netlib/SRC/spotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrs.f b/lapack-netlib/SRC/spotrs.f index 7b2175530a..6bd662a522 100644 --- a/lapack-netlib/SRC/spotrs.f +++ b/lapack-netlib/SRC/spotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppcon.f b/lapack-netlib/SRC/sppcon.f index 565b6eaff4..333520ea3d 100644 --- a/lapack-netlib/SRC/sppcon.f +++ b/lapack-netlib/SRC/sppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppequ.f b/lapack-netlib/SRC/sppequ.f index 2b30d333b0..71ed8c0e74 100644 --- a/lapack-netlib/SRC/sppequ.f +++ b/lapack-netlib/SRC/sppequ.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spprfs.f b/lapack-netlib/SRC/spprfs.f index 760620e0a4..5fa8fe2af7 100644 --- a/lapack-netlib/SRC/spprfs.f +++ b/lapack-netlib/SRC/spprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppsv.f b/lapack-netlib/SRC/sppsv.f index d92c25fc12..2d3fb3d91b 100644 --- a/lapack-netlib/SRC/sppsv.f +++ b/lapack-netlib/SRC/sppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppsvx.f b/lapack-netlib/SRC/sppsvx.f index a4ac14942b..7d71efcd5c 100644 --- a/lapack-netlib/SRC/sppsvx.f +++ b/lapack-netlib/SRC/sppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spptrf.f b/lapack-netlib/SRC/spptrf.f index 1134a069d3..0f90399cca 100644 --- a/lapack-netlib/SRC/spptrf.f +++ b/lapack-netlib/SRC/spptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spptri.f b/lapack-netlib/SRC/spptri.f index 98240789b4..8d2204baee 100644 --- a/lapack-netlib/SRC/spptri.f +++ b/lapack-netlib/SRC/spptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spptrs.f b/lapack-netlib/SRC/spptrs.f index 7eb48eed93..ac33797312 100644 --- a/lapack-netlib/SRC/spptrs.f +++ b/lapack-netlib/SRC/spptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spstf2.f b/lapack-netlib/SRC/spstf2.f index 4d15065575..efd58a3e6e 100644 --- a/lapack-netlib/SRC/spstf2.f +++ b/lapack-netlib/SRC/spstf2.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/spstrf.f b/lapack-netlib/SRC/spstrf.f index f9bc4de089..70ec9484a1 100644 --- a/lapack-netlib/SRC/spstrf.f +++ b/lapack-netlib/SRC/spstrf.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/sptcon.f b/lapack-netlib/SRC/sptcon.f index fd11c1d70e..1088e09e75 100644 --- a/lapack-netlib/SRC/sptcon.f +++ b/lapack-netlib/SRC/sptcon.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * *> \par Further Details: @@ -118,10 +116,9 @@ * ===================================================================== SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/spteqr.f b/lapack-netlib/SRC/spteqr.f index be35475f35..0d6bf911bf 100644 --- a/lapack-netlib/SRC/spteqr.f +++ b/lapack-netlib/SRC/spteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/sptrfs.f b/lapack-netlib/SRC/sptrfs.f index c7789c89d8..66d152b3a2 100644 --- a/lapack-netlib/SRC/sptrfs.f +++ b/lapack-netlib/SRC/sptrfs.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/lapack-netlib/SRC/sptsv.f b/lapack-netlib/SRC/sptsv.f index 657548e47e..46aadf4c38 100644 --- a/lapack-netlib/SRC/sptsv.f +++ b/lapack-netlib/SRC/sptsv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTsolve * * ===================================================================== SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sptsvx.f b/lapack-netlib/SRC/sptsvx.f index c293e547da..8dd04b054c 100644 --- a/lapack-netlib/SRC/sptsvx.f +++ b/lapack-netlib/SRC/sptsvx.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTsolve * * ===================================================================== SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/spttrf.f b/lapack-netlib/SRC/spttrf.f index a3b4c1ba23..2217a73384 100644 --- a/lapack-netlib/SRC/spttrf.f +++ b/lapack-netlib/SRC/spttrf.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/spttrs.f b/lapack-netlib/SRC/spttrs.f index 2a7f4755d6..3b5340104a 100644 --- a/lapack-netlib/SRC/spttrs.f +++ b/lapack-netlib/SRC/spttrs.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sptts2.f b/lapack-netlib/SRC/sptts2.f index ffd73b1e38..93f41d1b12 100644 --- a/lapack-netlib/SRC/sptts2.f +++ b/lapack-netlib/SRC/sptts2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/lapack-netlib/SRC/srscl.f b/lapack-netlib/SRC/srscl.f index b5168dd885..7f2b3bc4f4 100644 --- a/lapack-netlib/SRC/srscl.f +++ b/lapack-netlib/SRC/srscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/ssb2st_kernels.f b/lapack-netlib/SRC/ssb2st_kernels.f index 08859169bb..23f77d0dae 100644 --- a/lapack-netlib/SRC/ssb2st_kernels.f +++ b/lapack-netlib/SRC/ssb2st_kernels.f @@ -128,8 +128,6 @@ *> \verbatim *> WORK is REAL array. Workspace of size nb. *> \endverbatim -*> @param[in] n -*> The order of the matrix A. *> *> *> \par Further Details: @@ -173,10 +171,9 @@ SUBROUTINE SSB2ST_KERNELS( UPLO, WANTZ, TTYPE, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -375,6 +372,6 @@ SUBROUTINE SSB2ST_KERNELS( UPLO, WANTZ, TTYPE, * RETURN * -* END OF SSB2ST_KERNELS +* End of SSB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/ssbev.f b/lapack-netlib/SRC/ssbev.f index 78fa2ccd27..d4cf6c08fb 100644 --- a/lapack-netlib/SRC/ssbev.f +++ b/lapack-netlib/SRC/ssbev.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbev_2stage.f b/lapack-netlib/SRC/ssbev_2stage.f index 542fa8d8b0..5752c1ecc0 100644 --- a/lapack-netlib/SRC/ssbev_2stage.f +++ b/lapack-netlib/SRC/ssbev_2stage.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -206,10 +204,9 @@ SUBROUTINE SSBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevd.f b/lapack-netlib/SRC/ssbevd.f index 21fd78ec89..bcf14ce85e 100644 --- a/lapack-netlib/SRC/ssbevd.f +++ b/lapack-netlib/SRC/ssbevd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevd_2stage.f b/lapack-netlib/SRC/ssbevd_2stage.f index 84add84406..9687ee0243 100644 --- a/lapack-netlib/SRC/ssbevd_2stage.f +++ b/lapack-netlib/SRC/ssbevd_2stage.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -236,10 +234,9 @@ SUBROUTINE SSBEVD_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevx.f b/lapack-netlib/SRC/ssbevx.f index 7eccf611a1..313d29e12a 100644 --- a/lapack-netlib/SRC/ssbevx.f +++ b/lapack-netlib/SRC/ssbevx.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== @@ -265,10 +263,9 @@ SUBROUTINE SSBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbevx_2stage.f b/lapack-netlib/SRC/ssbevx_2stage.f index 5962e7827b..224b676b74 100644 --- a/lapack-netlib/SRC/ssbevx_2stage.f +++ b/lapack-netlib/SRC/ssbevx_2stage.f @@ -281,8 +281,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -324,10 +322,9 @@ SUBROUTINE SSBEVX_2STAGE( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbgst.f b/lapack-netlib/SRC/ssbgst.f index cf5d512442..9faea00dca 100644 --- a/lapack-netlib/SRC/ssbgst.f +++ b/lapack-netlib/SRC/ssbgst.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/ssbgv.f b/lapack-netlib/SRC/ssbgv.f index 078fb2a2d3..0a7f73e0a8 100644 --- a/lapack-netlib/SRC/ssbgv.f +++ b/lapack-netlib/SRC/ssbgv.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbgvd.f b/lapack-netlib/SRC/ssbgvd.f index 0b58760b73..6dd1fe952b 100644 --- a/lapack-netlib/SRC/ssbgvd.f +++ b/lapack-netlib/SRC/ssbgvd.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -227,10 +225,9 @@ SUBROUTINE SSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbgvx.f b/lapack-netlib/SRC/ssbgvx.f index 22f96729e5..64a67534e1 100644 --- a/lapack-netlib/SRC/ssbgvx.f +++ b/lapack-netlib/SRC/ssbgvx.f @@ -280,8 +280,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -294,10 +292,9 @@ SUBROUTINE SSBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbtrd.f b/lapack-netlib/SRC/ssbtrd.f index 1a016f6774..f0d1720352 100644 --- a/lapack-netlib/SRC/ssbtrd.f +++ b/lapack-netlib/SRC/ssbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE SSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/ssfrk.f b/lapack-netlib/SRC/ssfrk.f index 6dc50fee3d..ff477fc4c6 100644 --- a/lapack-netlib/SRC/ssfrk.f +++ b/lapack-netlib/SRC/ssfrk.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sspcon.f b/lapack-netlib/SRC/sspcon.f index 9f79b01e31..a9ac881d32 100644 --- a/lapack-netlib/SRC/sspcon.f +++ b/lapack-netlib/SRC/sspcon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspev.f b/lapack-netlib/SRC/sspev.f index ff9ac1d555..8fb6a2d9d9 100644 --- a/lapack-netlib/SRC/sspev.f +++ b/lapack-netlib/SRC/sspev.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspevd.f b/lapack-netlib/SRC/sspevd.f index 1f407c3c73..56329da341 100644 --- a/lapack-netlib/SRC/sspevd.f +++ b/lapack-netlib/SRC/sspevd.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspevx.f b/lapack-netlib/SRC/sspevx.f index 51d4dda143..e33712d58f 100644 --- a/lapack-netlib/SRC/sspevx.f +++ b/lapack-netlib/SRC/sspevx.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== @@ -234,10 +232,9 @@ SUBROUTINE SSPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/sspgst.f b/lapack-netlib/SRC/sspgst.f index 1e539e9154..5e2e873c68 100644 --- a/lapack-netlib/SRC/sspgst.f +++ b/lapack-netlib/SRC/sspgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspgv.f b/lapack-netlib/SRC/sspgv.f index 3f20f62b68..c73e94e603 100644 --- a/lapack-netlib/SRC/sspgv.f +++ b/lapack-netlib/SRC/sspgv.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspgvd.f b/lapack-netlib/SRC/sspgvd.f index f840d7856c..9db8de08c9 100644 --- a/lapack-netlib/SRC/sspgvd.f +++ b/lapack-netlib/SRC/sspgvd.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspgvx.f b/lapack-netlib/SRC/sspgvx.f index ce14b9641a..de581543a7 100644 --- a/lapack-netlib/SRC/sspgvx.f +++ b/lapack-netlib/SRC/sspgvx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -272,10 +270,9 @@ SUBROUTINE SSPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssprfs.f b/lapack-netlib/SRC/ssprfs.f index 862dbf3575..6f105bb13a 100644 --- a/lapack-netlib/SRC/ssprfs.f +++ b/lapack-netlib/SRC/ssprfs.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspsv.f b/lapack-netlib/SRC/sspsv.f index 1685af7224..7feafd35b0 100644 --- a/lapack-netlib/SRC/sspsv.f +++ b/lapack-netlib/SRC/sspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspsvx.f b/lapack-netlib/SRC/sspsvx.f index 52819b139b..3a24bc023e 100644 --- a/lapack-netlib/SRC/sspsvx.f +++ b/lapack-netlib/SRC/sspsvx.f @@ -248,8 +248,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -276,10 +274,9 @@ SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/ssptrd.f b/lapack-netlib/SRC/ssptrd.f index eebc376d31..e9c104f281 100644 --- a/lapack-netlib/SRC/ssptrd.f +++ b/lapack-netlib/SRC/ssptrd.f @@ -111,8 +111,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -150,10 +148,9 @@ * ===================================================================== SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptrf.f b/lapack-netlib/SRC/ssptrf.f index dc3b85553d..4a25e3d073 100644 --- a/lapack-netlib/SRC/ssptrf.f +++ b/lapack-netlib/SRC/ssptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -157,10 +155,9 @@ * ===================================================================== SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptri.f b/lapack-netlib/SRC/ssptri.f index d62937bf23..ce9b971b58 100644 --- a/lapack-netlib/SRC/ssptri.f +++ b/lapack-netlib/SRC/ssptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptrs.f b/lapack-netlib/SRC/ssptrs.f index d1ff03c866..9a25ec9f6c 100644 --- a/lapack-netlib/SRC/ssptrs.f +++ b/lapack-netlib/SRC/ssptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sstebz.f b/lapack-netlib/SRC/sstebz.f index bcac56a794..13e7cde43c 100644 --- a/lapack-netlib/SRC/sstebz.f +++ b/lapack-netlib/SRC/sstebz.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -273,10 +271,9 @@ SUBROUTINE SSTEBZ( RANGE, ORDER, N, VL, VU, IL, IU, ABSTOL, D, E, $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/sstedc.f b/lapack-netlib/SRC/sstedc.f index 8eb43f530a..925b03422e 100644 --- a/lapack-netlib/SRC/sstedc.f +++ b/lapack-netlib/SRC/sstedc.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -188,10 +186,9 @@ SUBROUTINE SSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/sstegr.f b/lapack-netlib/SRC/sstegr.f index 37ce8cdbc7..2e2975fdf5 100644 --- a/lapack-netlib/SRC/sstegr.f +++ b/lapack-netlib/SRC/sstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE SSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/sstein.f b/lapack-netlib/SRC/sstein.f index a04b3ae870..d944c0b112 100644 --- a/lapack-netlib/SRC/sstein.f +++ b/lapack-netlib/SRC/sstein.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/sstemr.f b/lapack-netlib/SRC/sstemr.f index d550f87e0d..3a9bbe7846 100644 --- a/lapack-netlib/SRC/sstemr.f +++ b/lapack-netlib/SRC/sstemr.f @@ -303,8 +303,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -321,10 +319,9 @@ SUBROUTINE SSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/ssteqr.f b/lapack-netlib/SRC/ssteqr.f index f776c246df..364428a0c7 100644 --- a/lapack-netlib/SRC/ssteqr.f +++ b/lapack-netlib/SRC/ssteqr.f @@ -124,17 +124,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/ssterf.f b/lapack-netlib/SRC/ssterf.f index 02bf5b9f4b..ec038207fd 100644 --- a/lapack-netlib/SRC/ssterf.f +++ b/lapack-netlib/SRC/ssterf.f @@ -79,17 +79,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SSTERF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/sstev.f b/lapack-netlib/SRC/sstev.f index bd62b980a6..8742b85384 100644 --- a/lapack-netlib/SRC/sstev.f +++ b/lapack-netlib/SRC/sstev.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/sstevd.f b/lapack-netlib/SRC/sstevd.f index 7e239a34d5..bc5b5aaab7 100644 --- a/lapack-netlib/SRC/sstevd.f +++ b/lapack-netlib/SRC/sstevd.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/sstevr.f b/lapack-netlib/SRC/sstevr.f index 16635c89b2..2ab63eb3e9 100644 --- a/lapack-netlib/SRC/sstevr.f +++ b/lapack-netlib/SRC/sstevr.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -306,10 +304,9 @@ SUBROUTINE SSTEVR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/sstevx.f b/lapack-netlib/SRC/sstevx.f index bb7b3e5a7f..570864e6e0 100644 --- a/lapack-netlib/SRC/sstevx.f +++ b/lapack-netlib/SRC/sstevx.f @@ -219,18 +219,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/ssycon.f b/lapack-netlib/SRC/ssycon.f index a0a999cf6a..4ce23a2140 100644 --- a/lapack-netlib/SRC/ssycon.f +++ b/lapack-netlib/SRC/ssycon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssycon_3.f b/lapack-netlib/SRC/ssycon_3.f index f91a527f75..9f36645d76 100644 --- a/lapack-netlib/SRC/ssycon_3.f +++ b/lapack-netlib/SRC/ssycon_3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -171,10 +169,9 @@ SUBROUTINE SSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -280,6 +277,6 @@ SUBROUTINE SSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, * RETURN * -* End of DSYCON_3 +* End of SSYCON_3 * END diff --git a/lapack-netlib/SRC/ssycon_rook.f b/lapack-netlib/SRC/ssycon_rook.f index bd2557a745..c67b35dbc1 100644 --- a/lapack-netlib/SRC/ssycon_rook.f +++ b/lapack-netlib/SRC/ssycon_rook.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -144,10 +142,9 @@ SUBROUTINE SSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssyconv.f b/lapack-netlib/SRC/ssyconv.f index 187528afd9..8b772f1f73 100644 --- a/lapack-netlib/SRC/ssyconv.f +++ b/lapack-netlib/SRC/ssyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyconvf.f b/lapack-netlib/SRC/ssyconvf.f index c6f08428f1..6defc1f0eb 100644 --- a/lapack-netlib/SRC/ssyconvf.f +++ b/lapack-netlib/SRC/ssyconvf.f @@ -38,7 +38,7 @@ *> SSYCONVF converts the factorization output format used in *> SSYTRF provided on entry in parameter A into the factorization *> output format used in SSYTRF_RK (or SSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in SSYTRF into *> the format used in SSYTRF_RK (or SSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in SSYTRF_RK *> (or SSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in SSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in SSYTRF_RK *> (or SSYTRF_BK) into the format used in SSYTRF. *> \endverbatim @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -206,10 +204,9 @@ * ===================================================================== SUBROUTINE SSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyconvf_rook.f b/lapack-netlib/SRC/ssyconvf_rook.f index a7e0d52582..c59f257bbb 100644 --- a/lapack-netlib/SRC/ssyconvf_rook.f +++ b/lapack-netlib/SRC/ssyconvf_rook.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -197,10 +195,9 @@ * ===================================================================== SUBROUTINE SSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyequb.f b/lapack-netlib/SRC/ssyequb.f index deb55104ae..c6efb751b6 100644 --- a/lapack-netlib/SRC/ssyequb.f +++ b/lapack-netlib/SRC/ssyequb.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par References: @@ -131,10 +129,9 @@ * ===================================================================== SUBROUTINE SSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/ssyev.f b/lapack-netlib/SRC/ssyev.f index f3cfd5a1e3..03ed326b84 100644 --- a/lapack-netlib/SRC/ssyev.f +++ b/lapack-netlib/SRC/ssyev.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * * ===================================================================== SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyev_2stage.f b/lapack-netlib/SRC/ssyev_2stage.f index 5d354c1b3a..a6fa30cc81 100644 --- a/lapack-netlib/SRC/ssyev_2stage.f +++ b/lapack-netlib/SRC/ssyev_2stage.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download SSYEV_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -185,10 +183,9 @@ SUBROUTINE SSYEV_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevd.f b/lapack-netlib/SRC/ssyevd.f index 3ba95ca278..8b90d9263c 100644 --- a/lapack-netlib/SRC/ssyevd.f +++ b/lapack-netlib/SRC/ssyevd.f @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevd_2stage.f b/lapack-netlib/SRC/ssyevd_2stage.f index 625713b852..f3fde6b4a1 100644 --- a/lapack-netlib/SRC/ssyevd_2stage.f +++ b/lapack-netlib/SRC/ssyevd_2stage.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -229,10 +227,9 @@ SUBROUTINE SSYEVD_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevr.f b/lapack-netlib/SRC/ssyevr.f index f24091e6f1..d8e4ce3ea6 100644 --- a/lapack-netlib/SRC/ssyevr.f +++ b/lapack-netlib/SRC/ssyevr.f @@ -317,8 +317,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -336,10 +334,9 @@ SUBROUTINE SSYEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevr_2stage.f b/lapack-netlib/SRC/ssyevr_2stage.f index 60339cd857..8ab2844c65 100644 --- a/lapack-netlib/SRC/ssyevr_2stage.f +++ b/lapack-netlib/SRC/ssyevr_2stage.f @@ -330,8 +330,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -383,10 +381,9 @@ SUBROUTINE SSYEVR_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevx.f b/lapack-netlib/SRC/ssyevx.f index 7a7fac95bb..11776e8c55 100644 --- a/lapack-netlib/SRC/ssyevx.f +++ b/lapack-netlib/SRC/ssyevx.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * * ===================================================================== @@ -253,10 +251,9 @@ SUBROUTINE SSYEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevx_2stage.f b/lapack-netlib/SRC/ssyevx_2stage.f index 227a70bacc..1a2225c875 100644 --- a/lapack-netlib/SRC/ssyevx_2stage.f +++ b/lapack-netlib/SRC/ssyevx_2stage.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -302,10 +300,9 @@ SUBROUTINE SSYEVX_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssygs2.f b/lapack-netlib/SRC/ssygs2.f index addf681215..b27b473b06 100644 --- a/lapack-netlib/SRC/ssygs2.f +++ b/lapack-netlib/SRC/ssygs2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssygst.f b/lapack-netlib/SRC/ssygst.f index 422475a029..a517a8c124 100644 --- a/lapack-netlib/SRC/ssygst.f +++ b/lapack-netlib/SRC/ssygst.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssygv.f b/lapack-netlib/SRC/ssygv.f index 40104241ac..270957fcee 100644 --- a/lapack-netlib/SRC/ssygv.f +++ b/lapack-netlib/SRC/ssygv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * * ===================================================================== SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygv_2stage.f b/lapack-netlib/SRC/ssygv_2stage.f index 7dfbbaabef..49f357d908 100644 --- a/lapack-netlib/SRC/ssygv_2stage.f +++ b/lapack-netlib/SRC/ssygv_2stage.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -228,10 +226,9 @@ SUBROUTINE SSYGV_2STAGE( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygvd.f b/lapack-netlib/SRC/ssygvd.f index 7e28b0a349..9002df2374 100644 --- a/lapack-netlib/SRC/ssygvd.f +++ b/lapack-netlib/SRC/ssygvd.f @@ -203,8 +203,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -227,10 +225,9 @@ SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygvx.f b/lapack-netlib/SRC/ssygvx.f index 8a99c939f8..e93da60cc3 100644 --- a/lapack-netlib/SRC/ssygvx.f +++ b/lapack-netlib/SRC/ssygvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -297,10 +295,9 @@ SUBROUTINE SSYGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyrfs.f b/lapack-netlib/SRC/ssyrfs.f index 5745b72f56..77ffdb94d5 100644 --- a/lapack-netlib/SRC/ssyrfs.f +++ b/lapack-netlib/SRC/ssyrfs.f @@ -183,18 +183,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssyrfsx.f b/lapack-netlib/SRC/ssyrfsx.f index bfb7b60057..43215902fb 100644 --- a/lapack-netlib/SRC/ssyrfsx.f +++ b/lapack-netlib/SRC/ssyrfsx.f @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ SUBROUTINE SSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/ssysv.f b/lapack-netlib/SRC/ssysv.f index e27e5fc83b..5f4062e9ae 100644 --- a/lapack-netlib/SRC/ssysv.f +++ b/lapack-netlib/SRC/ssysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYsolve * * ===================================================================== SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_aa.f b/lapack-netlib/SRC/ssysv_aa.f index 7e58d1e75b..5661332c5f 100644 --- a/lapack-netlib/SRC/ssysv_aa.f +++ b/lapack-netlib/SRC/ssysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYsolve * * ===================================================================== SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_aa_2stage.f b/lapack-netlib/SRC/ssysv_aa_2stage.f index 5e2e0e3405..b9eac83421 100644 --- a/lapack-netlib/SRC/ssysv_aa_2stage.f +++ b/lapack-netlib/SRC/ssysv_aa_2stage.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYsolve * * ===================================================================== @@ -187,10 +185,9 @@ SUBROUTINE SSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssysv_rk.f b/lapack-netlib/SRC/ssysv_rk.f index 9503893251..9e0487623c 100644 --- a/lapack-netlib/SRC/ssysv_rk.f +++ b/lapack-netlib/SRC/ssysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE SSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_rook.f b/lapack-netlib/SRC/ssysv_rook.f index 2829f5981b..b4da1101c8 100644 --- a/lapack-netlib/SRC/ssysv_rook.f +++ b/lapack-netlib/SRC/ssysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysvx.f b/lapack-netlib/SRC/ssysvx.f index 3f0983747a..b19ce26417 100644 --- a/lapack-netlib/SRC/ssysvx.f +++ b/lapack-netlib/SRC/ssysvx.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYsolve * * ===================================================================== @@ -284,10 +282,9 @@ SUBROUTINE SSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/ssysvxx.f b/lapack-netlib/SRC/ssysvxx.f index e2be0128b3..e0a869e816 100644 --- a/lapack-netlib/SRC/ssysvxx.f +++ b/lapack-netlib/SRC/ssysvxx.f @@ -498,8 +498,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYsolve * * ===================================================================== @@ -508,10 +506,9 @@ SUBROUTINE SSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/ssyswapr.f b/lapack-netlib/SRC/ssyswapr.f index 17ce4dbd9c..5e4265d7a8 100644 --- a/lapack-netlib/SRC/ssyswapr.f +++ b/lapack-netlib/SRC/ssyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytd2.f b/lapack-netlib/SRC/ssytd2.f index f6d327ccb3..8d5b3858fc 100644 --- a/lapack-netlib/SRC/ssytd2.f +++ b/lapack-netlib/SRC/ssytd2.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2.f b/lapack-netlib/SRC/ssytf2.f index 9e31cbb46f..1e8087996d 100644 --- a/lapack-netlib/SRC/ssytf2.f +++ b/lapack-netlib/SRC/ssytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -195,10 +193,9 @@ * ===================================================================== SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2_rk.f b/lapack-netlib/SRC/ssytf2_rk.f index 400e483539..51130acd37 100644 --- a/lapack-netlib/SRC/ssytf2_rk.f +++ b/lapack-netlib/SRC/ssytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE SSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2_rook.f b/lapack-netlib/SRC/ssytf2_rook.f index 270530d794..34dc12c732 100644 --- a/lapack-netlib/SRC/ssytf2_rook.f +++ b/lapack-netlib/SRC/ssytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE SSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrd.f b/lapack-netlib/SRC/ssytrd.f index ebfaba7801..f09ad9ab4d 100644 --- a/lapack-netlib/SRC/ssytrd.f +++ b/lapack-netlib/SRC/ssytrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrd_2stage.f b/lapack-netlib/SRC/ssytrd_2stage.f index d2502f483f..5d70ae0d4a 100644 --- a/lapack-netlib/SRC/ssytrd_2stage.f +++ b/lapack-netlib/SRC/ssytrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ SUBROUTINE SSYTRD_2STAGE( VECT, UPLO, N, A, LDA, D, E, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/ssytrd_sb2st.F b/lapack-netlib/SRC/ssytrd_sb2st.F index 1d8c9f5c54..faeeff5f48 100644 --- a/lapack-netlib/SRC/ssytrd_sb2st.F +++ b/lapack-netlib/SRC/ssytrd_sb2st.F @@ -7,11 +7,11 @@ * *> \htmlonly *> Download SSYTRD_SB2ST + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real16OTHERcomputational * *> \par Further Details: @@ -236,10 +234,9 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -392,7 +389,7 @@ SUBROUTINE SSYTRD_SB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/ssytrd_sy2sb.f b/lapack-netlib/SRC/ssytrd_sy2sb.f index 98169dc00c..2c92cd14a8 100644 --- a/lapack-netlib/SRC/ssytrd_sy2sb.f +++ b/lapack-netlib/SRC/ssytrd_sy2sb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download SSYTRD_SY2SB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE SSYTRD_SY2SB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf.f b/lapack-netlib/SRC/ssytrf.f index ae4550f28c..d188589b90 100644 --- a/lapack-netlib/SRC/ssytrf.f +++ b/lapack-netlib/SRC/ssytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf_aa.f b/lapack-netlib/SRC/ssytrf_aa.f index 7f428561c4..13e849cdc7 100644 --- a/lapack-netlib/SRC/ssytrf_aa.f +++ b/lapack-netlib/SRC/ssytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of SSYTRF_AA diff --git a/lapack-netlib/SRC/ssytrf_aa_2stage.f b/lapack-netlib/SRC/ssytrf_aa_2stage.f index 03690815bd..94b3aa4b50 100644 --- a/lapack-netlib/SRC/ssytrf_aa_2stage.f +++ b/lapack-netlib/SRC/ssytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrf_rk.f b/lapack-netlib/SRC/ssytrf_rk.f index f4221e1e06..ec84fcb1b9 100644 --- a/lapack-netlib/SRC/ssytrf_rk.f +++ b/lapack-netlib/SRC/ssytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE SSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf_rook.f b/lapack-netlib/SRC/ssytrf_rook.f index 534a48e000..653289e2b5 100644 --- a/lapack-netlib/SRC/ssytrf_rook.f +++ b/lapack-netlib/SRC/ssytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri.f b/lapack-netlib/SRC/ssytri.f index 31aa2dd140..d02f3afaf6 100644 --- a/lapack-netlib/SRC/ssytri.f +++ b/lapack-netlib/SRC/ssytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri2.f b/lapack-netlib/SRC/ssytri2.f index 897116c237..49f6cad652 100644 --- a/lapack-netlib/SRC/ssytri2.f +++ b/lapack-netlib/SRC/ssytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri2x.f b/lapack-netlib/SRC/ssytri2x.f index 9aa567fd7f..57672eec22 100644 --- a/lapack-netlib/SRC/ssytri2x.f +++ b/lapack-netlib/SRC/ssytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_3.f b/lapack-netlib/SRC/ssytri_3.f index a7d8fe7e8c..58d5df92ae 100644 --- a/lapack-netlib/SRC/ssytri_3.f +++ b/lapack-netlib/SRC/ssytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE SSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_3x.f b/lapack-netlib/SRC/ssytri_3x.f index a2b011f5f0..330b832974 100644 --- a/lapack-netlib/SRC/ssytri_3x.f +++ b/lapack-netlib/SRC/ssytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_rook.f b/lapack-netlib/SRC/ssytri_rook.f index 01e4ea1ce3..d78fe73071 100644 --- a/lapack-netlib/SRC/ssytri_rook.f +++ b/lapack-netlib/SRC/ssytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs.f b/lapack-netlib/SRC/ssytrs.f index 167851adb7..344949a99d 100644 --- a/lapack-netlib/SRC/ssytrs.f +++ b/lapack-netlib/SRC/ssytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs2.f b/lapack-netlib/SRC/ssytrs2.f index 0a1870b206..c8346d83be 100644 --- a/lapack-netlib/SRC/ssytrs2.f +++ b/lapack-netlib/SRC/ssytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs_3.f b/lapack-netlib/SRC/ssytrs_3.f index 4e98819276..9ad5813360 100644 --- a/lapack-netlib/SRC/ssytrs_3.f +++ b/lapack-netlib/SRC/ssytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE SSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs_aa.f b/lapack-netlib/SRC/ssytrs_aa.f index ed4377ae7f..3cfa2a2068 100644 --- a/lapack-netlib/SRC/ssytrs_aa.f +++ b/lapack-netlib/SRC/ssytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrs_aa_2stage.f b/lapack-netlib/SRC/ssytrs_aa_2stage.f index cf2da529d9..12912bc315 100644 --- a/lapack-netlib/SRC/ssytrs_aa_2stage.f +++ b/lapack-netlib/SRC/ssytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrs_rook.f b/lapack-netlib/SRC/ssytrs_rook.f index ba2428b51e..eabc84f44e 100644 --- a/lapack-netlib/SRC/ssytrs_rook.f +++ b/lapack-netlib/SRC/ssytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE SSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/stbcon.f b/lapack-netlib/SRC/stbcon.f index e11c895e1c..9ce694aa1e 100644 --- a/lapack-netlib/SRC/stbcon.f +++ b/lapack-netlib/SRC/stbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/stbrfs.f b/lapack-netlib/SRC/stbrfs.f index 85cd312b58..6ccb35e391 100644 --- a/lapack-netlib/SRC/stbrfs.f +++ b/lapack-netlib/SRC/stbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stbtrs.f b/lapack-netlib/SRC/stbtrs.f index 4955b7cfc8..30219e7039 100644 --- a/lapack-netlib/SRC/stbtrs.f +++ b/lapack-netlib/SRC/stbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stfsm.f b/lapack-netlib/SRC/stfsm.f index a631cc4775..fd4e2df808 100644 --- a/lapack-netlib/SRC/stfsm.f +++ b/lapack-netlib/SRC/stfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/stftri.f b/lapack-netlib/SRC/stftri.f index fa3099d153..d02a85b1e2 100644 --- a/lapack-netlib/SRC/stftri.f +++ b/lapack-netlib/SRC/stftri.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ * ===================================================================== SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/stfttp.f b/lapack-netlib/SRC/stfttp.f index 52e581ddad..1ae028cedd 100644 --- a/lapack-netlib/SRC/stfttp.f +++ b/lapack-netlib/SRC/stfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -187,10 +185,9 @@ * ===================================================================== SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stfttr.f b/lapack-netlib/SRC/stfttr.f index c7cf06628c..219da39cda 100644 --- a/lapack-netlib/SRC/stfttr.f +++ b/lapack-netlib/SRC/stfttr.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -196,10 +194,9 @@ * ===================================================================== SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stgevc.f b/lapack-netlib/SRC/stgevc.f index 03d4b7193f..15fc88c4b4 100644 --- a/lapack-netlib/SRC/stgevc.f +++ b/lapack-netlib/SRC/stgevc.f @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -295,10 +293,9 @@ SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/stgex2.f b/lapack-netlib/SRC/stgex2.f index 1ae9563c71..d61da2327a 100644 --- a/lapack-netlib/SRC/stgex2.f +++ b/lapack-netlib/SRC/stgex2.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEauxiliary * *> \par Further Details: @@ -221,10 +219,9 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -252,8 +249,10 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * .. Local Scalars .. LOGICAL STRONG, WEAK INTEGER I, IDUM, LINFO, M - REAL BQRA21, BRQA21, DDUM, DNORM, DSCALE, DSUM, EPS, - $ F, G, SA, SB, SCALE, SMLNUM, SS, THRESH, WS + REAL BQRA21, BRQA21, DDUM, DNORMA, DNORMB, + $ DSCALE, + $ DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, + $ THRESHA, THRESHB * .. * .. Local Arrays .. INTEGER IWORK( LDST ) @@ -310,9 +309,12 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSUM = ONE CALL SLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) + DNORMA = DSCALE*SQRT( DSUM ) + DSCALE = ZERO + DSUM = ONE CALL SLACPY( 'Full', M, M, T, LDST, WORK, M ) CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) - DNORM = DSCALE*SQRT( DSUM ) + DNORMB = DSCALE*SQRT( DSUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -322,7 +324,8 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*DNORM, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*DNORMA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*DNORMB, SMLNUM ) * IF( M.EQ.2 ) THEN * @@ -333,8 +336,8 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SB = ABS( T( 2, 2 ) ) - SA = ABS( S( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL SLARTG( F, G, IR( 1, 2 ), IR( 1, 1 ), DDUM ) IR( 2, 1 ) = -IR( 1, 2 ) IR( 2, 2 ) = IR( 1, 1 ) @@ -356,18 +359,20 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, LI( 2, 2 ) = LI( 1, 1 ) LI( 1, 2 ) = -LI( 2, 1 ) * -* Weak stability test: -* |S21| + |T21| <= O(EPS * F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ) .LE. THRESHA .AND. + $ ABS( T( 2, 1 ) ) .LE. THRESHB IF( .NOT.WEAK ) $ GO TO 70 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**T*S*QR, B-QL**T*T*QR)) <= O(EPS*F-norm((A, B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL SLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -378,6 +383,7 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSCALE = ZERO DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL SLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -385,9 +391,11 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ WORK, M ) CALL SGEMM( 'N', 'T', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - STRONG = SS.LE.THRESH + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 70 END IF @@ -439,6 +447,8 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ IR( N2+1, N1+1 ), LDST, T, LDST, T( N1+1, N1+1 ), $ LDST, LI, LDST, SCALE, DSUM, DSCALE, IWORK, IDUM, $ LINFO ) + IF( LINFO.NE.0 ) + $ GO TO 70 * * Compute orthogonal matrix QL: * @@ -538,14 +548,14 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * * Decide which method to use. * Weak stability test: -* F-norm(S21) <= O(EPS * F-norm((S, T))) +* F-norm(S21) <= O(EPS * F-norm((S))) * - IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESH ) THEN + IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESHA ) THEN CALL SLACPY( 'F', M, M, SCPY, LDST, S, LDST ) CALL SLACPY( 'F', M, M, TCPY, LDST, T, LDST ) CALL SLACPY( 'F', M, M, IRCOP, LDST, IR, LDST ) CALL SLACPY( 'F', M, M, LICOP, LDST, LI, LDST ) - ELSE IF( BRQA21.GE.THRESH ) THEN + ELSE IF( BRQA21.GE.THRESHA ) THEN GO TO 70 END IF * @@ -556,7 +566,9 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL*S*QR**T, B-QL*T*QR**T)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL SLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -567,6 +579,7 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, DSCALE = ZERO DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL SLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -574,9 +587,11 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ WORK, M ) CALL SGEMM( 'N', 'N', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - STRONG = ( SS.LE.THRESH ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 70 * diff --git a/lapack-netlib/SRC/stgexc.f b/lapack-netlib/SRC/stgexc.f index 840036db7e..d1ad799366 100644 --- a/lapack-netlib/SRC/stgexc.f +++ b/lapack-netlib/SRC/stgexc.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -220,10 +218,9 @@ SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/stgsen.f b/lapack-netlib/SRC/stgsen.f index 5e63a9679e..f1103d7400 100644 --- a/lapack-netlib/SRC/stgsen.f +++ b/lapack-netlib/SRC/stgsen.f @@ -304,8 +304,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -451,10 +449,9 @@ SUBROUTINE STGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/stgsja.f b/lapack-netlib/SRC/stgsja.f index 7324da4318..5a81b7e4fd 100644 --- a/lapack-netlib/SRC/stgsja.f +++ b/lapack-netlib/SRC/stgsja.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -378,10 +376,9 @@ SUBROUTINE STGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/stgsna.f b/lapack-netlib/SRC/stgsna.f index 2ff38d1e9d..40f822915f 100644 --- a/lapack-netlib/SRC/stgsna.f +++ b/lapack-netlib/SRC/stgsna.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -381,10 +379,9 @@ SUBROUTINE STGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/stgsy2.f b/lapack-netlib/SRC/stgsy2.f index 2814889fcc..7dffbd2f75 100644 --- a/lapack-netlib/SRC/stgsy2.f +++ b/lapack-netlib/SRC/stgsy2.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * *> \par Contributors: @@ -274,10 +272,9 @@ SUBROUTINE STGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/stgsyl.f b/lapack-netlib/SRC/stgsyl.f index ff634b1de4..733c8ab9cd 100644 --- a/lapack-netlib/SRC/stgsyl.f +++ b/lapack-netlib/SRC/stgsyl.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE STGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/stpcon.f b/lapack-netlib/SRC/stpcon.f index 2814e691f8..d32e99855c 100644 --- a/lapack-netlib/SRC/stpcon.f +++ b/lapack-netlib/SRC/stpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/stplqt.f b/lapack-netlib/SRC/stplqt.f index 8077b08633..4dd0c7ca30 100644 --- a/lapack-netlib/SRC/stplqt.f +++ b/lapack-netlib/SRC/stplqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies +*> Download STPLQT + dependencies *> *> [TGZ] *> @@ -34,7 +34,7 @@ *> *> \verbatim *> -*> DTPLQT computes a blocked LQ factorization of a real +*> STPLQT computes a blocked LQ factorization of a real *> "triangular-pentagonal" matrix C, which is composed of a *> triangular block A and pentagonal block B, using the compact *> WY representation for Q. @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/stplqt2.f b/lapack-netlib/SRC/stplqt2.f index ca38a95409..7f381876f4 100644 --- a/lapack-netlib/SRC/stplqt2.f +++ b/lapack-netlib/SRC/stplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE STPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/stpmlqt.f b/lapack-netlib/SRC/stpmlqt.f index 8fc7823c2a..6497f42bbe 100644 --- a/lapack-netlib/SRC/stpmlqt.f +++ b/lapack-netlib/SRC/stpmlqt.f @@ -1,4 +1,4 @@ -*> \brief \b DTPMLQT +*> \brief \b STPMLQT * * =========== DOCUMENTATION =========== * @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies +*> Download STPMLQT + dependencies *> *> [TGZ] *> @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> DTPMQRT applies a real orthogonal matrix Q obtained from a +*> STPMLQT applies a real orthogonal matrix Q obtained from a *> "triangular-pentagonal" real block reflector H to a general *> real matrix C, which consists of two blocks A and B. *> \endverbatim @@ -89,7 +89,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in STPLQT. *> \endverbatim *> *> \param[in] V @@ -97,22 +97,20 @@ *> V is REAL array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> STPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by STPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +212,9 @@ SUBROUTINE STPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -242,7 +237,7 @@ SUBROUTINE STPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL SLARFB, STPRFB, XERBLA + EXTERNAL XERBLA, STPRFB * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/lapack-netlib/SRC/stpmqrt.f b/lapack-netlib/SRC/stpmqrt.f index 6a5cbb9810..c9c09fd71a 100644 --- a/lapack-netlib/SRC/stpmqrt.f +++ b/lapack-netlib/SRC/stpmqrt.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/stpqrt.f b/lapack-netlib/SRC/stpqrt.f index 815d83a6ff..eee0f25239 100644 --- a/lapack-netlib/SRC/stpqrt.f +++ b/lapack-netlib/SRC/stpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/stpqrt2.f b/lapack-netlib/SRC/stpqrt2.f index f235712652..281c2e8ac2 100644 --- a/lapack-netlib/SRC/stpqrt2.f +++ b/lapack-netlib/SRC/stpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/stprfb.f b/lapack-netlib/SRC/stprfb.f index fcd164183e..64e8b34f5e 100644 --- a/lapack-netlib/SRC/stprfb.f +++ b/lapack-netlib/SRC/stprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/stprfs.f b/lapack-netlib/SRC/stprfs.f index 76ae10dc7c..efe453919e 100644 --- a/lapack-netlib/SRC/stprfs.f +++ b/lapack-netlib/SRC/stprfs.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stptri.f b/lapack-netlib/SRC/stptri.f index 3acc70981b..fb889ae850 100644 --- a/lapack-netlib/SRC/stptri.f +++ b/lapack-netlib/SRC/stptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE STPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/stptrs.f b/lapack-netlib/SRC/stptrs.f index fc422c5ed5..d4882b3b64 100644 --- a/lapack-netlib/SRC/stptrs.f +++ b/lapack-netlib/SRC/stptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stpttf.f b/lapack-netlib/SRC/stpttf.f index 230be172f2..67d0c1f1eb 100644 --- a/lapack-netlib/SRC/stpttf.f +++ b/lapack-netlib/SRC/stpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stpttr.f b/lapack-netlib/SRC/stpttr.f index a58f7f0163..8266a5651e 100644 --- a/lapack-netlib/SRC/stpttr.f +++ b/lapack-netlib/SRC/stpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/strcon.f b/lapack-netlib/SRC/strcon.f index ec92b53edb..741f436f5d 100644 --- a/lapack-netlib/SRC/strcon.f +++ b/lapack-netlib/SRC/strcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/strevc.f b/lapack-netlib/SRC/strevc.f index 37513a37a7..af97de1d15 100644 --- a/lapack-netlib/SRC/strevc.f +++ b/lapack-netlib/SRC/strevc.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -222,10 +220,9 @@ SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/strevc3.f b/lapack-netlib/SRC/strevc3.f index 525978071b..5af57123bf 100644 --- a/lapack-netlib/SRC/strevc3.f +++ b/lapack-netlib/SRC/strevc3.f @@ -215,10 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from dtrevc3.f, fortran d -> s, Tue Apr 19 01:47:44 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -240,10 +236,9 @@ SUBROUTINE STREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, $ VR, LDVR, MM, M, WORK, LWORK, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/strexc.f b/lapack-netlib/SRC/strexc.f index 8aaaccd4ac..e66b892220 100644 --- a/lapack-netlib/SRC/strexc.f +++ b/lapack-netlib/SRC/strexc.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/strrfs.f b/lapack-netlib/SRC/strrfs.f index 9b21910af5..8ac2257ea6 100644 --- a/lapack-netlib/SRC/strrfs.f +++ b/lapack-netlib/SRC/strrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/strsen.f b/lapack-netlib/SRC/strsen.f index a52c627728..c0f75fb129 100644 --- a/lapack-netlib/SRC/strsen.f +++ b/lapack-netlib/SRC/strsen.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -314,10 +312,9 @@ SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/strsna.f b/lapack-netlib/SRC/strsna.f index 1dc7fe74cf..6d98ac27f2 100644 --- a/lapack-netlib/SRC/strsna.f +++ b/lapack-netlib/SRC/strsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ SUBROUTINE STRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/strsyl.f b/lapack-netlib/SRC/strsyl.f index 029367ce6a..e1f90d2c99 100644 --- a/lapack-netlib/SRC/strsyl.f +++ b/lapack-netlib/SRC/strsyl.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/strti2.f b/lapack-netlib/SRC/strti2.f index e3de4a306b..e2b630deb9 100644 --- a/lapack-netlib/SRC/strti2.f +++ b/lapack-netlib/SRC/strti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/strtri.f b/lapack-netlib/SRC/strtri.f index 267de1a2fd..e90872f06a 100644 --- a/lapack-netlib/SRC/strtri.f +++ b/lapack-netlib/SRC/strtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/strtrs.f b/lapack-netlib/SRC/strtrs.f index 9eb6e3693f..07bb780ee3 100644 --- a/lapack-netlib/SRC/strtrs.f +++ b/lapack-netlib/SRC/strtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/strttf.f b/lapack-netlib/SRC/strttf.f index 5853be902a..7ea4980a6f 100644 --- a/lapack-netlib/SRC/strttf.f +++ b/lapack-netlib/SRC/strttf.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/strttp.f b/lapack-netlib/SRC/strttp.f index 557ccfa460..371d21b8f7 100644 --- a/lapack-netlib/SRC/strttp.f +++ b/lapack-netlib/SRC/strttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/stzrzf.f b/lapack-netlib/SRC/stzrzf.f index 6da3c4a0e8..e8cbb56b61 100644 --- a/lapack-netlib/SRC/stzrzf.f +++ b/lapack-netlib/SRC/stzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I A(:,M+1:N) ) *> *> I is the M-by-M identity matrix, A(:,M+1:N) -*> is the output stored in A on exit from DTZRZF, +*> is the output stored in A on exit from STZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/xerbla.f b/lapack-netlib/SRC/xerbla.f index 4a0350988c..6b141499ee 100644 --- a/lapack-netlib/SRC/xerbla.f +++ b/lapack-netlib/SRC/xerbla.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/SRC/xerbla_array.f b/lapack-netlib/SRC/xerbla_array.f index 84fe7de9d8..ff0a0186b7 100644 --- a/lapack-netlib/SRC/xerbla_array.f +++ b/lapack-netlib/SRC/xerbla_array.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER SRNAME_LEN, INFO diff --git a/lapack-netlib/SRC/zbbcsd.f b/lapack-netlib/SRC/zbbcsd.f index 4647181e2b..757e98c718 100644 --- a/lapack-netlib/SRC/zbbcsd.f +++ b/lapack-netlib/SRC/zbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE ZBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ SUBROUTINE ZBBCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, M, P, Q, * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0D0, MEIGHTH = -0.125D0, - $ ONE = 1.0D0, PIOVER2 = 1.57079632679489662D0, - $ TEN = 10.0D0, ZERO = 0.0D0 ) + $ ONE = 1.0D0, TEN = 10.0D0, ZERO = 0.0D0 ) COMPLEX*16 NEGONECOMPLEX PARAMETER ( NEGONECOMPLEX = (-1.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/zbdsqr.f b/lapack-netlib/SRC/zbdsqr.f index 66281bb8b3..2ad6142a73 100644 --- a/lapack-netlib/SRC/zbdsqr.f +++ b/lapack-netlib/SRC/zbdsqr.f @@ -214,18 +214,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zcgesv.f b/lapack-netlib/SRC/zcgesv.f index b710186381..e926d4e975 100644 --- a/lapack-netlib/SRC/zcgesv.f +++ b/lapack-netlib/SRC/zcgesv.f @@ -193,18 +193,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -443,6 +440,6 @@ SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, * RETURN * -* End of ZCGESV. +* End of ZCGESV * END diff --git a/lapack-netlib/SRC/zcposv.f b/lapack-netlib/SRC/zcposv.f index 101d25f5dd..9b1940d60b 100644 --- a/lapack-netlib/SRC/zcposv.f +++ b/lapack-netlib/SRC/zcposv.f @@ -201,18 +201,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16POsolve * * ===================================================================== SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -452,6 +449,6 @@ SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, * RETURN * -* End of ZCPOSV. +* End of ZCPOSV * END diff --git a/lapack-netlib/SRC/zdrscl.f b/lapack-netlib/SRC/zdrscl.f index 03b87d4093..9e1b2ea872 100644 --- a/lapack-netlib/SRC/zdrscl.f +++ b/lapack-netlib/SRC/zdrscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZDRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zgbbrd.f b/lapack-netlib/SRC/zgbbrd.f index e299824063..0f7226065e 100644 --- a/lapack-netlib/SRC/zgbbrd.f +++ b/lapack-netlib/SRC/zgbbrd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/zgbcon.f b/lapack-netlib/SRC/zgbcon.f index 6d7c8d829b..7a10ef340b 100644 --- a/lapack-netlib/SRC/zgbcon.f +++ b/lapack-netlib/SRC/zgbcon.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgbequ.f b/lapack-netlib/SRC/zgbequ.f index e8938855f8..a8e398a159 100644 --- a/lapack-netlib/SRC/zgbequ.f +++ b/lapack-netlib/SRC/zgbequ.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbequb.f b/lapack-netlib/SRC/zgbequb.f index 4b08ac1d45..76677fee1a 100644 --- a/lapack-netlib/SRC/zgbequb.f +++ b/lapack-netlib/SRC/zgbequb.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbrfs.f b/lapack-netlib/SRC/zgbrfs.f index bb7d58eb7d..6c7c016da8 100644 --- a/lapack-netlib/SRC/zgbrfs.f +++ b/lapack-netlib/SRC/zgbrfs.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -206,10 +204,9 @@ SUBROUTINE ZGBRFS( TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, LDAFB, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgbrfsx.f b/lapack-netlib/SRC/zgbrfsx.f index 872709899a..c97038b4ae 100644 --- a/lapack-netlib/SRC/zgbrfsx.f +++ b/lapack-netlib/SRC/zgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is COMPLEX*16 array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by ZGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -153,7 +153,7 @@ *> \param[in] IPIV *> \verbatim *> IPIV is INTEGER array, dimension (N) -*> The pivot indices from DGETRF; for 1<=i<=N, row i of the +*> The pivot indices from ZGETRF; for 1<=i<=N, row i of the *> matrix was interchanged with row IPIV(i). *> \endverbatim *> @@ -208,7 +208,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ SUBROUTINE ZGBRFSX( TRANS, EQUED, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/zgbsv.f b/lapack-netlib/SRC/zgbsv.f index 7bc4c44ebf..0b6a1d19f2 100644 --- a/lapack-netlib/SRC/zgbsv.f +++ b/lapack-netlib/SRC/zgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgbsvx.f b/lapack-netlib/SRC/zgbsvx.f index 0e55866ac9..b6be786631 100644 --- a/lapack-netlib/SRC/zgbsvx.f +++ b/lapack-netlib/SRC/zgbsvx.f @@ -361,8 +361,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBsolve * * ===================================================================== @@ -370,10 +368,9 @@ SUBROUTINE ZGBSVX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgbsvxx.f b/lapack-netlib/SRC/zgbsvxx.f index 0d916fd62c..f608e9c105 100644 --- a/lapack-netlib/SRC/zgbsvxx.f +++ b/lapack-netlib/SRC/zgbsvxx.f @@ -230,7 +230,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains the pivot indices from the factorization A = P*L*U -*> as computed by DGETRF; row i of the matrix was interchanged +*> as computed by ZGETRF; row i of the matrix was interchanged *> with row IPIV(i). *> *> If FACT = 'N', then IPIV is an output argument and on exit @@ -349,8 +349,8 @@ *> This also means that the solution X, estimated condition numbers, *> and error bounds could be unreliable. If factorization fails with *> 0 for the leading INFO columns of A. In DGESVX, this quantity is -*> returned in WORK(1). +*> for the leading INFO columns of A. In ZGESVX, this quantity is +*> returned in RWORK(1). *> \endverbatim *> *> \param[out] BERR @@ -549,8 +549,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBsolve * * ===================================================================== @@ -560,10 +558,9 @@ SUBROUTINE ZGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS @@ -635,7 +632,7 @@ SUBROUTINE ZGBSVXX( FACT, TRANS, N, KL, KU, NRHS, AB, LDAB, AFB, * RPVGRW = ZERO * -* Test the input parameters. PARAMS is not tested until DGERFSX. +* Test the input parameters. PARAMS is not tested until ZGERFSX. * IF( .NOT.NOFACT .AND. .NOT.EQUIL .AND. .NOT. $ LSAME( FACT, 'F' ) ) THEN diff --git a/lapack-netlib/SRC/zgbtf2.f b/lapack-netlib/SRC/zgbtf2.f index cfddec898b..fbbe632476 100644 --- a/lapack-netlib/SRC/zgbtf2.f +++ b/lapack-netlib/SRC/zgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbtrf.f b/lapack-netlib/SRC/zgbtrf.f index 533f5ee280..83139b0919 100644 --- a/lapack-netlib/SRC/zgbtrf.f +++ b/lapack-netlib/SRC/zgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbtrs.f b/lapack-netlib/SRC/zgbtrs.f index 8dc9746ee6..4a2ba5452c 100644 --- a/lapack-netlib/SRC/zgbtrs.f +++ b/lapack-netlib/SRC/zgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgebak.f b/lapack-netlib/SRC/zgebak.f index 70c265e05b..9ec610efb4 100644 --- a/lapack-netlib/SRC/zgebak.f +++ b/lapack-netlib/SRC/zgebak.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/zgebal.f b/lapack-netlib/SRC/zgebal.f index 68291e2b48..d4a9e39f12 100644 --- a/lapack-netlib/SRC/zgebal.f +++ b/lapack-netlib/SRC/zgebal.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/zgebd2.f b/lapack-netlib/SRC/zgebd2.f index 3afe79ec52..9a403e4008 100644 --- a/lapack-netlib/SRC/zgebd2.f +++ b/lapack-netlib/SRC/zgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -247,7 +244,7 @@ SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I ) CALL ZLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) A( I, I ) = ONE * * Apply H(i)**H to A(i:m,i+1:n) from the left @@ -266,7 +263,7 @@ SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I+1 ) CALL ZLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), LDA, $ TAUP( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I, I+1 ) = ONE * * Apply G(i) to A(i+1:m,i+1:n) from the right @@ -291,7 +288,7 @@ SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I, I ) CALL ZLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) A( I, I ) = ONE * * Apply G(i) to A(i+1:m,i:n) from the right @@ -310,7 +307,7 @@ SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) ALPHA = A( I+1, I ) CALL ZLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Apply H(i)**H to A(i+1:m,i+1:n) from the left diff --git a/lapack-netlib/SRC/zgebrd.f b/lapack-netlib/SRC/zgebrd.f index bccd6b8b20..f1791c6a4b 100644 --- a/lapack-netlib/SRC/zgebrd.f +++ b/lapack-netlib/SRC/zgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgecon.f b/lapack-netlib/SRC/zgecon.f index 91362a977b..3d3127f9df 100644 --- a/lapack-netlib/SRC/zgecon.f +++ b/lapack-netlib/SRC/zgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgeequ.f b/lapack-netlib/SRC/zgeequ.f index 13fcb2a63d..9575bd6526 100644 --- a/lapack-netlib/SRC/zgeequ.f +++ b/lapack-netlib/SRC/zgeequ.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeequb.f b/lapack-netlib/SRC/zgeequb.f index 1b9a3bbe85..74e1f68170 100644 --- a/lapack-netlib/SRC/zgeequb.f +++ b/lapack-netlib/SRC/zgeequb.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgees.f b/lapack-netlib/SRC/zgees.f index a33e0a1481..40fe78d345 100644 --- a/lapack-netlib/SRC/zgees.f +++ b/lapack-netlib/SRC/zgees.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT @@ -285,7 +282,7 @@ SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, * CALL ZHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = DBLE( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/zgeesx.f b/lapack-netlib/SRC/zgeesx.f index a5391cbb5c..ca4f5c9135 100644 --- a/lapack-netlib/SRC/zgeesx.f +++ b/lapack-netlib/SRC/zgeesx.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -239,10 +237,9 @@ SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT @@ -340,7 +337,7 @@ SUBROUTINE ZGEESX( JOBVS, SORT, SELECT, SENSE, N, A, LDA, SDIM, W, * CALL ZHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = DBLE( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/zgeev.f b/lapack-netlib/SRC/zgeev.f index 1ba5425879..b968900e2f 100644 --- a/lapack-netlib/SRC/zgeev.f +++ b/lapack-netlib/SRC/zgeev.f @@ -169,7 +169,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran z -> c * @@ -180,10 +179,9 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LDVR, $ WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/zgeevx.f b/lapack-netlib/SRC/zgeevx.f index 323782bce0..170a0fc765 100644 --- a/lapack-netlib/SRC/zgeevx.f +++ b/lapack-netlib/SRC/zgeevx.f @@ -276,7 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran z -> c * @@ -288,10 +287,9 @@ SUBROUTINE ZGEEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, W, VL, $ RCONDV, WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/zgehd2.f b/lapack-netlib/SRC/zgehd2.f index 12bac62a3d..e4d79f1b83 100644 --- a/lapack-netlib/SRC/zgehd2.f +++ b/lapack-netlib/SRC/zgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/zgehrd.f b/lapack-netlib/SRC/zgehrd.f index d8ddf2439b..e18493cf97 100644 --- a/lapack-netlib/SRC/zgehrd.f +++ b/lapack-netlib/SRC/zgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's ZGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See ZLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zgejsv.f b/lapack-netlib/SRC/zgejsv.f index 91a20416ec..0c2226f9f0 100644 --- a/lapack-netlib/SRC/zgejsv.f +++ b/lapack-netlib/SRC/zgejsv.f @@ -358,7 +358,7 @@ *> RWORK(3) = SCONDA is an estimate for the condition number of *> column equilibrated A. (If JOBA = 'E' or 'G') *> SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). -*> It is computed using SPOCON. It holds +*> It is computed using ZPOCON. It holds *> N^(-1/4) * SCONDA <= ||R^(-1)||_2 <= N^(1/4) * SCONDA *> where R is the triangular factor from the QRF of A. *> However, if R is truncated and the numerical rank is @@ -367,7 +367,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * *> \par Further Details: @@ -569,10 +567,9 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. IMPLICIT NONE @@ -710,11 +707,11 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL ZGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_ZGEQP3 = CDUMMY(1) + LWRK_ZGEQP3 = DBLE( CDUMMY(1) ) CALL ZGEQRF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_ZGEQRF = CDUMMY(1) + LWRK_ZGEQRF = DBLE( CDUMMY(1) ) CALL ZGELQF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_ZGELQF = CDUMMY(1) + LWRK_ZGELQF = DBLE( CDUMMY(1) ) END IF MINWRK = 2 OPTWRK = 2 @@ -730,7 +727,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'N', 'N', N, N, A, LDA, SVA, N, V, $ LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N**2+LWCON, $ N+LWRK_ZGEQRF, LWRK_ZGESVJ ) @@ -766,10 +763,10 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMLQ = CDUMMY(1) + LWRK_ZUNMLQ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, LWCON, LWRK_ZGESVJ, $ N+LWRK_ZGELQF, 2*N+LWRK_ZGEQRF, @@ -805,10 +802,10 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = N + MAX( LWRK_ZGEQP3, LWCON, N+LWRK_ZGEQRF, $ LWRK_ZGESVJ, LWRK_ZUNMQRM ) @@ -867,26 +864,26 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, IF ( LQUERY ) THEN CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', N, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQR = CDUMMY(1) + LWRK_ZUNMQR = DBLE( CDUMMY(1) ) IF ( .NOT. JRACC ) THEN CALL ZGEQP3( N,N, A, LDA, IWORK, CDUMMY,CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_ZGEQP3N = CDUMMY(1) + LWRK_ZGEQP3N = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'L', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'U', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJU = CDUMMY(1) + LWRK_ZGESVJU = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJV = CDUMMY(1) + LWRK_ZGESVJV = DBLE( CDUMMY(1) ) CALL ZUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMLQ = CDUMMY(1) + LWRK_ZUNMLQ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N+LWCON, $ 2*N+N**2+LWCON, 2*N+LWRK_ZGEQRF, @@ -915,13 +912,13 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, ELSE CALL ZGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJV = CDUMMY(1) + LWRK_ZGESVJV = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', N, N, N, CDUMMY, N, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMQR = CDUMMY(1) + LWRK_ZUNMQR = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N+LWCON, $ 2*N+LWRK_ZGEQRF, 2*N+N**2, @@ -1316,7 +1313,7 @@ SUBROUTINE ZGEJSV( JOBA, JOBU, JOBV, JOBR, JOBT, JOBP, * (eg speed by replacing global with restricted window pivoting, such * as in xGEQPX from TOMS # 782). Good results will be obtained using * xGEQPX with properly (!) chosen numerical parameters. -* Any improvement of ZGEQP3 improves overal performance of ZGEJSV. +* Any improvement of ZGEQP3 improves overall performance of ZGEJSV. * * A * P1 = Q1 * [ R1^* 0]^*: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/zgelq.f b/lapack-netlib/SRC/zgelq.f index beb054b87d..de7c9a3784 100644 --- a/lapack-netlib/SRC/zgelq.f +++ b/lapack-netlib/SRC/zgelq.f @@ -170,10 +170,9 @@ SUBROUTINE ZGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/zgelq2.f b/lapack-netlib/SRC/zgelq2.f index a825ac17b7..7604556a5f 100644 --- a/lapack-netlib/SRC/zgelq2.f +++ b/lapack-netlib/SRC/zgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgelqf.f b/lapack-netlib/SRC/zgelqf.f index 3a5e5fd4a3..6c295eecec 100644 --- a/lapack-netlib/SRC/zgelqf.f +++ b/lapack-netlib/SRC/zgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgelqt.f b/lapack-netlib/SRC/zgelqt.f index 015bd3d7de..801996743d 100644 --- a/lapack-netlib/SRC/zgelqt.f +++ b/lapack-netlib/SRC/zgelqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies +*> Download ZGELQT + dependencies *> *> [TGZ] *> @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -139,10 +137,9 @@ * ===================================================================== SUBROUTINE ZGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/zgelqt3.f b/lapack-netlib/SRC/zgelqt3.f index 45e74f43d7..629a09472d 100644 --- a/lapack-netlib/SRC/zgelqt3.f +++ b/lapack-netlib/SRC/zgelqt3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies +*> Download ZGELQT3 + dependencies *> *> [TGZ] *> @@ -33,7 +33,7 @@ *> *> \verbatim *> -*> DGELQT3 recursively computes a LQ factorization of a complex M-by-N +*> ZGELQT3 recursively computes a LQ factorization of a complex M-by-N *> matrix A, using the compact WY representation of Q. *> *> Based on the algorithm of Elmroth and Gustavson, @@ -58,7 +58,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension (LDA,N) -*> On entry, the real M-by-N matrix A. On exit, the elements on and +*> On entry, the complex M-by-N matrix A. On exit, the elements on and *> below the diagonal contain the N-by-N lower triangular matrix L; the *> elements above the diagonal are the rows of V. See below for *> further details. @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -131,10 +129,9 @@ * ===================================================================== RECURSIVE SUBROUTINE ZGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -175,7 +172,7 @@ RECURSIVE SUBROUTINE ZGELQT3( M, N, A, LDA, T, LDT, INFO ) * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL ZLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1)) diff --git a/lapack-netlib/SRC/zgels.f b/lapack-netlib/SRC/zgels.f index 8e2794fa46..ebdbe0d494 100644 --- a/lapack-netlib/SRC/zgels.f +++ b/lapack-netlib/SRC/zgels.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgelsd.f b/lapack-netlib/SRC/zgelsd.f index 9463ccc103..01793e16c2 100644 --- a/lapack-netlib/SRC/zgelsd.f +++ b/lapack-netlib/SRC/zgelsd.f @@ -210,8 +210,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * *> \par Contributors: @@ -225,10 +223,9 @@ SUBROUTINE ZGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/zgelss.f b/lapack-netlib/SRC/zgelss.f index df436b48be..e4aba64970 100644 --- a/lapack-netlib/SRC/zgelss.f +++ b/lapack-netlib/SRC/zgelss.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK @@ -269,11 +266,11 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * * Compute space needed for ZGEQRF CALL ZGEQRF( M, N, A, LDA, DUM(1), DUM(1), -1, INFO ) - LWORK_ZGEQRF=DUM(1) + LWORK_ZGEQRF = DBLE( DUM(1) ) * Compute space needed for ZUNMQR CALL ZUNMQR( 'L', 'C', M, NRHS, N, A, LDA, DUM(1), B, $ LDB, DUM(1), -1, INFO ) - LWORK_ZUNMQR=DUM(1) + LWORK_ZUNMQR = DBLE( DUM(1) ) MM = N MAXWRK = MAX( MAXWRK, N + N*ILAENV( 1, 'ZGEQRF', ' ', M, $ N, -1, -1 ) ) @@ -287,15 +284,15 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for ZGEBRD CALL ZGEBRD( MM, N, A, LDA, S, S, DUM(1), DUM(1), DUM(1), $ -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) * Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNMBR ) @@ -313,23 +310,23 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for ZGELQF CALL ZGELQF( M, N, A, LDA, DUM(1), DUM(1), $ -1, INFO ) - LWORK_ZGELQF=DUM(1) + LWORK_ZGELQF = DBLE( DUM(1) ) * Compute space needed for ZGEBRD CALL ZGEBRD( M, M, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', M, M, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) * Compute space needed for ZUNMLQ CALL ZUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMLQ=DUM(1) + LWORK_ZUNMLQ = DBLE( DUM(1) ) * Compute total workspace needed MAXWRK = M + LWORK_ZGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZGEBRD ) @@ -348,15 +345,15 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, * Compute space needed for ZGEBRD CALL ZGEBRD( M, N, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', M, N, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) MAXWRK = 2*M + LWORK_ZGEBRD MAXWRK = MAX( MAXWRK, 2*M + LWORK_ZUNMBR ) MAXWRK = MAX( MAXWRK, 2*M + LWORK_ZUNGBR ) diff --git a/lapack-netlib/SRC/zgelsy.f b/lapack-netlib/SRC/zgelsy.f index 79cb7936bc..65fa87ae98 100644 --- a/lapack-netlib/SRC/zgelsy.f +++ b/lapack-netlib/SRC/zgelsy.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/zgemlq.f b/lapack-netlib/SRC/zgemlq.f index 6fb2be3d87..41cd1c0595 100644 --- a/lapack-netlib/SRC/zgemlq.f +++ b/lapack-netlib/SRC/zgemlq.f @@ -35,15 +35,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -98,7 +98,7 @@ *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -167,10 +167,9 @@ SUBROUTINE ZGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgemlqt.f b/lapack-netlib/SRC/zgemlqt.f index 6a4175e3cc..06fe4958e5 100644 --- a/lapack-netlib/SRC/zgemlqt.f +++ b/lapack-netlib/SRC/zgemlqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEMLQT + dependencies +*> Download ZGEMLQT + dependencies *> *> [TGZ] *> @@ -35,13 +35,13 @@ *> *> \verbatim *> -*> ZGEMLQT overwrites the general real M-by-N matrix C with +*> ZGEMLQT overwrites the general complex M-by-N matrix C with *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q C C Q *> TRANS = 'C': Q**H C C Q**H *> -*> where Q is a complex orthogonal matrix defined as the product of K +*> where Q is a complex unitary matrix defined as the product of K *> elementary reflectors: *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -94,7 +94,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in ZGELQT. *> \endverbatim *> *> \param[in] V @@ -104,7 +104,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> ZGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by ZGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -186,7 +183,7 @@ SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -210,8 +207,10 @@ SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -221,7 +220,7 @@ SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/zgemqr.f b/lapack-netlib/SRC/zgemqr.f index aec9321bbc..c83eaff2f1 100644 --- a/lapack-netlib/SRC/zgemqr.f +++ b/lapack-netlib/SRC/zgemqr.f @@ -38,15 +38,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -100,7 +100,7 @@ *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -170,10 +170,9 @@ SUBROUTINE ZGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgemqrt.f b/lapack-netlib/SRC/zgemqrt.f index 7ceb77fe32..9547c33a57 100644 --- a/lapack-netlib/SRC/zgemqrt.f +++ b/lapack-netlib/SRC/zgemqrt.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in ZGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is COMPLEX*16 array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> ZGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by ZGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgeql2.f b/lapack-netlib/SRC/zgeql2.f index 90008c49a6..35bd61d412 100644 --- a/lapack-netlib/SRC/zgeql2.f +++ b/lapack-netlib/SRC/zgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqlf.f b/lapack-netlib/SRC/zgeqlf.f index 82bb9d1f7e..94721540c5 100644 --- a/lapack-netlib/SRC/zgeqlf.f +++ b/lapack-netlib/SRC/zgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqp3.f b/lapack-netlib/SRC/zgeqp3.f index ea069ee74e..9e55fb0c98 100644 --- a/lapack-netlib/SRC/zgeqp3.f +++ b/lapack-netlib/SRC/zgeqp3.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqr.f b/lapack-netlib/SRC/zgeqr.f index cea686b980..20a80d0835 100644 --- a/lapack-netlib/SRC/zgeqr.f +++ b/lapack-netlib/SRC/zgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/zgeqr2.f b/lapack-netlib/SRC/zgeqr2.f index 0384c1d421..511a81ef8a 100644 --- a/lapack-netlib/SRC/zgeqr2.f +++ b/lapack-netlib/SRC/zgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqr2p.f b/lapack-netlib/SRC/zgeqr2p.f index 7bbd81da91..136d75f85c 100644 --- a/lapack-netlib/SRC/zgeqr2p.f +++ b/lapack-netlib/SRC/zgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqrf.f b/lapack-netlib/SRC/zgeqrf.f index 2c03ebe731..2032bf742b 100644 --- a/lapack-netlib/SRC/zgeqrf.f +++ b/lapack-netlib/SRC/zgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'ZGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/zgeqrfp.f b/lapack-netlib/SRC/zgeqrfp.f index 80ead21caa..73bcde6674 100644 --- a/lapack-netlib/SRC/zgeqrfp.f +++ b/lapack-netlib/SRC/zgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqrt.f b/lapack-netlib/SRC/zgeqrt.f index 60adfec76f..d54a9e6c36 100644 --- a/lapack-netlib/SRC/zgeqrt.f +++ b/lapack-netlib/SRC/zgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/zgeqrt3.f b/lapack-netlib/SRC/zgeqrt3.f index e0f2281a11..af6b9437dd 100644 --- a/lapack-netlib/SRC/zgeqrt3.f +++ b/lapack-netlib/SRC/zgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/zgerfs.f b/lapack-netlib/SRC/zgerfs.f index 4d09922405..ce5d15279e 100644 --- a/lapack-netlib/SRC/zgerfs.f +++ b/lapack-netlib/SRC/zgerfs.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgerfsx.f b/lapack-netlib/SRC/zgerfsx.f index 3af7f8b6b1..2c5cf03ec8 100644 --- a/lapack-netlib/SRC/zgerfsx.f +++ b/lapack-netlib/SRC/zgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ SUBROUTINE ZGERFSX( TRANS, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/zgerq2.f b/lapack-netlib/SRC/zgerq2.f index 73c1e53ed4..8a987dd0a0 100644 --- a/lapack-netlib/SRC/zgerq2.f +++ b/lapack-netlib/SRC/zgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgerqf.f b/lapack-netlib/SRC/zgerqf.f index ebc7d38aa3..26e901390f 100644 --- a/lapack-netlib/SRC/zgerqf.f +++ b/lapack-netlib/SRC/zgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/zgesc2.f b/lapack-netlib/SRC/zgesc2.f index cdf15e4f45..9f40fc7008 100644 --- a/lapack-netlib/SRC/zgesc2.f +++ b/lapack-netlib/SRC/zgesc2.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16GEauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/zgesdd.f b/lapack-netlib/SRC/zgesdd.f index 2209f47330..30d18a3a05 100644 --- a/lapack-netlib/SRC/zgesdd.f +++ b/lapack-netlib/SRC/zgesdd.f @@ -199,9 +199,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: The updating process of DBDSDC did not converge. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -212,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * *> \par Contributors: @@ -227,10 +226,9 @@ SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, RWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -282,8 +280,9 @@ SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * .. * .. External Functions .. LOGICAL LSAME, DISNAN - DOUBLE PRECISION DLAMCH, ZLANGE - EXTERNAL LSAME, DLAMCH, ZLANGE, DISNAN + DOUBLE PRECISION DLAMCH, ZLANGE, DROUNDUP_LWORK + EXTERNAL LSAME, DLAMCH, ZLANGE, DISNAN, + $ DROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -619,7 +618,7 @@ SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, MAXWRK = MAX( MAXWRK, MINWRK ) END IF IF( INFO.EQ.0 ) THEN - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) IF( LWORK.LT.MINWRK .AND. .NOT. LQUERY ) THEN INFO = -12 END IF @@ -2215,7 +2214,7 @@ SUBROUTINE ZGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/zgesv.f b/lapack-netlib/SRC/zgesv.f index 40dd14f063..abb9a42132 100644 --- a/lapack-netlib/SRC/zgesv.f +++ b/lapack-netlib/SRC/zgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgesvd.f b/lapack-netlib/SRC/zgesvd.f index b4dbf037fc..1064fabbbb 100644 --- a/lapack-netlib/SRC/zgesvd.f +++ b/lapack-netlib/SRC/zgesvd.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsing * * ===================================================================== SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/zgesvdq.f b/lapack-netlib/SRC/zgesvdq.f index e0fb920bb6..05eb722f87 100644 --- a/lapack-netlib/SRC/zgesvdq.f +++ b/lapack-netlib/SRC/zgesvdq.f @@ -40,7 +40,7 @@ *> *> \verbatim *> -* ZCGESVDQ computes the singular value decomposition (SVD) of a complex +*> ZCGESVDQ computes the singular value decomposition (SVD) of a complex *> M-by-N matrix A, where M >= N. The SVD of A is written as *> [++] [xx] [x0] [xx] *> A = U * SIGMA * V^*, [++] = [xx] * [ox] * [xx] @@ -218,9 +218,9 @@ *> If JOBP = 'P', IWORK(N+1:N+M-1) contains the indices of the sequence *> of row swaps used in row pivoting. These can be used to restore the *> left singular vectors in the case JOBU = 'F'. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -242,7 +242,7 @@ *> On exit, if, on entry, LCWORK.NE.-1, CWORK(1:N) contains parameters *> needed to recover the Q factor from the QR factorization computed by *> ZGEQP3. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, *> CWORK(1) returns the optimal LCWORK, and *> CWORK(2) returns the minimal LCWORK. @@ -315,10 +315,10 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in ZGESVD applied to the upper triangular or trapeziodal +*> exact zeros in ZGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> ZGESVD, such as in the case of zero matrix) RWORK(2) = -1. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, *> RWORK(1) returns the minimal LRWORK. *> \endverbatim @@ -329,7 +329,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M, 5*N); *> Otherwise, LRWORK >= MAX(2, 5*N). -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the CWORK, IWORK, and RWORK arrays, and no error @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup complex16GEsing * * ===================================================================== @@ -638,7 +636,7 @@ SUBROUTINE ZGESVDQ( JOBA, JOBP, JOBR, JOBU, JOBV, M, N, A, LDA, IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 ZGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 ZGESVD +* .. minimal workspace length for N/2 x N/2 ZGESVD LWSVD2 = MAX( 3 * (N/2), 1 ) LWUNQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/zgesvdx.f b/lapack-netlib/SRC/zgesvdx.f index 12b20c0ba0..a8bf560c21 100644 --- a/lapack-netlib/SRC/zgesvdx.f +++ b/lapack-netlib/SRC/zgesvdx.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * * ===================================================================== @@ -270,10 +268,9 @@ SUBROUTINE ZGESVDX( JOBU, JOBVT, RANGE, M, N, A, LDA, VL, VU, $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/zgesvj.f b/lapack-netlib/SRC/zgesvj.f index 7c25a34959..6cd2335f24 100644 --- a/lapack-netlib/SRC/zgesvj.f +++ b/lapack-netlib/SRC/zgesvj.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -296,7 +294,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -351,10 +349,9 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgesvx.f b/lapack-netlib/SRC/zgesvx.f index d1752d06eb..87f36bba6b 100644 --- a/lapack-netlib/SRC/zgesvx.f +++ b/lapack-netlib/SRC/zgesvx.f @@ -341,8 +341,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsolve * * ===================================================================== @@ -350,10 +348,9 @@ SUBROUTINE ZGESVX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgesvxx.f b/lapack-netlib/SRC/zgesvxx.f index 60bb71cd32..f1102668ae 100644 --- a/lapack-netlib/SRC/zgesvxx.f +++ b/lapack-netlib/SRC/zgesvxx.f @@ -529,8 +529,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsolve * * ===================================================================== @@ -540,10 +538,9 @@ SUBROUTINE ZGESVXX( FACT, TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgetc2.f b/lapack-netlib/SRC/zgetc2.f index b790e34d49..eb97194f29 100644 --- a/lapack-netlib/SRC/zgetc2.f +++ b/lapack-netlib/SRC/zgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/zgetf2.f b/lapack-netlib/SRC/zgetf2.f index a98e36e2ec..c247f8645a 100644 --- a/lapack-netlib/SRC/zgetf2.f +++ b/lapack-netlib/SRC/zgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetrf.f b/lapack-netlib/SRC/zgetrf.f index c7b07b6589..f3c3b396f8 100644 --- a/lapack-netlib/SRC/zgetrf.f +++ b/lapack-netlib/SRC/zgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetrf2.f b/lapack-netlib/SRC/zgetrf2.f index 44e2731efe..a3391fc532 100644 --- a/lapack-netlib/SRC/zgetrf2.f +++ b/lapack-netlib/SRC/zgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== RECURSIVE SUBROUTINE ZGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetri.f b/lapack-netlib/SRC/zgetri.f index deff71ff5f..41782841c9 100644 --- a/lapack-netlib/SRC/zgetri.f +++ b/lapack-netlib/SRC/zgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zgetrs.f b/lapack-netlib/SRC/zgetrs.f index 5c0bd35f64..53f1bc3884 100644 --- a/lapack-netlib/SRC/zgetrs.f +++ b/lapack-netlib/SRC/zgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgetsls.f b/lapack-netlib/SRC/zgetsls.f index 11233785b8..17c6d5146d 100644 --- a/lapack-netlib/SRC/zgetsls.f +++ b/lapack-netlib/SRC/zgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -186,17 +183,16 @@ SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 DOUBLE PRECISION ANRM, BIGNUM, BNRM, SMLNUM, DUM( 1 ) COMPLEX*16 TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV DOUBLE PRECISION DLAMCH, ZLANGE - EXTERNAL LSAME, ILAENV, DLABAD, DLAMCH, ZLANGE + EXTERNAL LSAME, DLABAD, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEQR, ZGEMQR, ZLASCL, ZLASET, @@ -210,9 +206,7 @@ SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'C' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -233,7 +227,7 @@ SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL ZGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -270,17 +264,17 @@ SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = DBLE( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZGETSLS', -INFO ) - WORK( 1 ) = DBLE( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) - IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) + IF( LWORK.EQ.-2 ) WORK( 1 ) = DBLE( WSIZEM ) RETURN END IF IF( LWORK.LT.WSIZEO ) THEN diff --git a/lapack-netlib/SRC/zggbak.f b/lapack-netlib/SRC/zggbak.f index cb10b4f8ca..a0ea5de4d2 100644 --- a/lapack-netlib/SRC/zggbak.f +++ b/lapack-netlib/SRC/zggbak.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ SUBROUTINE ZGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/zggbal.f b/lapack-netlib/SRC/zggbal.f index beca512614..c37ab4c100 100644 --- a/lapack-netlib/SRC/zggbal.f +++ b/lapack-netlib/SRC/zggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/zgges.f b/lapack-netlib/SRC/zgges.f index 555abcd86e..3847adc04d 100644 --- a/lapack-netlib/SRC/zgges.f +++ b/lapack-netlib/SRC/zgges.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -270,10 +268,9 @@ SUBROUTINE ZGGES( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, LDB, $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/zgges3.f b/lapack-netlib/SRC/zgges3.f index 08557b134d..8b3e44f885 100644 --- a/lapack-netlib/SRC/zgges3.f +++ b/lapack-netlib/SRC/zgges3.f @@ -243,7 +243,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHA(j) and BETA(j) should be correct for *> j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in ZHGEQZ +*> > N: =N+1: other than QZ iteration failed in ZLAQZ0 *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -269,10 +267,9 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -313,7 +310,7 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, * .. * .. External Subroutines .. EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3, - $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR, + $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR, $ ZUNMQR * .. * .. External Functions .. @@ -391,9 +388,9 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, CALL ZGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) - CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) IF( WANTST ) THEN CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -507,9 +504,9 @@ SUBROUTINE ZGGES3( JOBVSL, JOBVSR, SORT, SELCTG, N, A, LDA, B, * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/zggesx.f b/lapack-netlib/SRC/zggesx.f index c546e61f1a..96e4f2cda9 100644 --- a/lapack-netlib/SRC/zggesx.f +++ b/lapack-netlib/SRC/zggesx.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -330,10 +328,9 @@ SUBROUTINE ZGGESX( JOBVSL, JOBVSR, SORT, SELCTG, SENSE, N, A, LDA, $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/zggev.f b/lapack-netlib/SRC/zggev.f index 946de6c2ca..2e6a4d730f 100644 --- a/lapack-netlib/SRC/zggev.f +++ b/lapack-netlib/SRC/zggev.f @@ -197,8 +197,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in DHGEQZ, -*> =N+2: error return from DTGEVC. +*> > N: =N+1: other then QZ iteration failed in ZHGEQZ, +*> =N+2: error return from ZTGEVC. *> \endverbatim * * Authors: @@ -209,18 +209,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/zggev3.f b/lapack-netlib/SRC/zggev3.f index 2e88adedc3..2d6c745824 100644 --- a/lapack-netlib/SRC/zggev3.f +++ b/lapack-netlib/SRC/zggev3.f @@ -196,8 +196,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in DHGEQZ, -*> =N+2: error return from DTGEVC. +*> > N: =N+1: other then QZ iteration failed in ZHGEQZ, +*> =N+2: error return from ZTGEVC. *> \endverbatim * * Authors: @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -256,7 +253,7 @@ SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, * .. * .. External Subroutines .. EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3, - $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR, + $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR, $ ZUNMQR * .. * .. External Functions .. @@ -338,17 +335,17 @@ SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, CALL ZGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL ZHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) ELSE CALL ZGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL ZHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) END IF WORK( 1 ) = DCMPLX( LWKOPT ) @@ -470,9 +467,9 @@ SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, ELSE CHTEMP = 'E' END IF - CALL ZHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL ZLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/zggevx.f b/lapack-netlib/SRC/zggevx.f index 5549feb139..c63a390e63 100644 --- a/lapack-netlib/SRC/zggevx.f +++ b/lapack-netlib/SRC/zggevx.f @@ -335,8 +335,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEeigen * *> \par Further Details: @@ -374,10 +372,9 @@ SUBROUTINE ZGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE @@ -710,8 +707,8 @@ SUBROUTINE ZGGEVX( BALANC, JOBVL, JOBVR, SENSE, N, A, LDA, B, LDB, * IF( .NOT.WANTSN ) THEN * -* compute eigenvectors (DTGEVC) and estimate condition -* numbers (DTGSNA). Note that the definition of the condition +* compute eigenvectors (ZTGEVC) and estimate condition +* numbers (ZTGSNA). Note that the definition of the condition * number is not invariant under transformation (u,v) to * (Q*u, Z*v), where (u,v) are eigenvectors of the generalized * Schur form (S,T), Q and Z are orthogonal matrices. In order diff --git a/lapack-netlib/SRC/zggglm.f b/lapack-netlib/SRC/zggglm.f index d4adc5c4d6..6c24131aa3 100644 --- a/lapack-netlib/SRC/zggglm.f +++ b/lapack-netlib/SRC/zggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -292,7 +289,7 @@ SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, * CALL ZGGQRF( N, M, P, A, LDA, WORK, B, LDB, WORK( M+1 ), $ WORK( M+NP+1 ), LWORK-M-NP, INFO ) - LOPT = WORK( M+NP+1 ) + LOPT = DBLE( WORK( M+NP+1 ) ) * * Update left-hand-side vector d = Q**H*d = ( d1 ) M * ( d2 ) N-M diff --git a/lapack-netlib/SRC/zgghd3.f b/lapack-netlib/SRC/zgghd3.f index 4b0e7826ab..b29cdc70a3 100644 --- a/lapack-netlib/SRC/zgghd3.f +++ b/lapack-netlib/SRC/zgghd3.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -217,7 +215,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -227,10 +225,9 @@ SUBROUTINE ZGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zgghrd.f b/lapack-netlib/SRC/zgghrd.f index e9e870320d..35305f3448 100644 --- a/lapack-netlib/SRC/zgghrd.f +++ b/lapack-netlib/SRC/zgghrd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -204,10 +202,9 @@ SUBROUTINE ZGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/zgglse.f b/lapack-netlib/SRC/zgglse.f index 1b5f468bce..e5869a7d40 100644 --- a/lapack-netlib/SRC/zgglse.f +++ b/lapack-netlib/SRC/zgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * * ===================================================================== SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, * CALL ZGGRQF( P, M, N, B, LDB, WORK, A, LDA, WORK( P+1 ), $ WORK( P+MN+1 ), LWORK-P-MN, INFO ) - LOPT = WORK( P+MN+1 ) + LOPT = DBLE( WORK( P+MN+1 ) ) * * Update c = Z**H *c = ( c1 ) N-P * ( c2 ) M+P-N diff --git a/lapack-netlib/SRC/zggqrf.f b/lapack-netlib/SRC/zggqrf.f index ba04d07603..93b1dc0fc6 100644 --- a/lapack-netlib/SRC/zggqrf.f +++ b/lapack-netlib/SRC/zggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, * QR factorization of N-by-M matrix A: A = Q*R * CALL ZGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = DBLE( WORK( 1 ) ) * * Update B := Q**H*B. * diff --git a/lapack-netlib/SRC/zggrqf.f b/lapack-netlib/SRC/zggrqf.f index 27970e8336..a2d4a9d553 100644 --- a/lapack-netlib/SRC/zggrqf.f +++ b/lapack-netlib/SRC/zggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -278,7 +275,7 @@ SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, * RQ factorization of M-by-N matrix A: A = R*Q * CALL ZGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = DBLE( WORK( 1 ) ) * * Update B := B*Q**H * diff --git a/lapack-netlib/SRC/zggsvd3.f b/lapack-netlib/SRC/zggsvd3.f index fd22d4f197..71257a7c07 100644 --- a/lapack-netlib/SRC/zggsvd3.f +++ b/lapack-netlib/SRC/zggsvd3.f @@ -332,8 +332,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16GEsing * *> \par Contributors: @@ -353,10 +351,9 @@ SUBROUTINE ZGGSVD3( JOBU, JOBV, JOBQ, M, N, P, K, L, A, LDA, B, $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/zggsvp3.f b/lapack-netlib/SRC/zggsvp3.f index 986bc47bbe..f39ccdad31 100644 --- a/lapack-netlib/SRC/zggsvp3.f +++ b/lapack-netlib/SRC/zggsvp3.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -278,10 +276,9 @@ SUBROUTINE ZGGSVP3( JOBU, JOBV, JOBQ, M, P, N, A, LDA, B, LDB, $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zgsvj0.f b/lapack-netlib/SRC/zgsvj0.f index ab7e317255..672ab7590b 100644 --- a/lapack-netlib/SRC/zgsvj0.f +++ b/lapack-netlib/SRC/zgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational *> *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgsvj1.f b/lapack-netlib/SRC/zgsvj1.f index f0a23034b6..2461a95558 100644 --- a/lapack-netlib/SRC/zgsvj1.f +++ b/lapack-netlib/SRC/zgsvj1.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZGSVJ1 + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -40,7 +40,7 @@ *> ZGSVJ1 is called from ZGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as ZGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributor: @@ -236,10 +234,9 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgtcon.f b/lapack-netlib/SRC/zgtcon.f index efa6a2c8d7..24190946aa 100644 --- a/lapack-netlib/SRC/zgtcon.f +++ b/lapack-netlib/SRC/zgtcon.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgtrfs.f b/lapack-netlib/SRC/zgtrfs.f index fedaaee540..509a0d7a55 100644 --- a/lapack-netlib/SRC/zgtrfs.f +++ b/lapack-netlib/SRC/zgtrfs.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE ZGTRFS( TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, DU2, $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgtsv.f b/lapack-netlib/SRC/zgtsv.f index 96ef9db771..fbd583d6a6 100644 --- a/lapack-netlib/SRC/zgtsv.f +++ b/lapack-netlib/SRC/zgtsv.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTsolve * * ===================================================================== SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgtsvx.f b/lapack-netlib/SRC/zgtsvx.f index 0b245520ff..32ed2133d5 100644 --- a/lapack-netlib/SRC/zgtsvx.f +++ b/lapack-netlib/SRC/zgtsvx.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTsolve * * ===================================================================== @@ -294,10 +292,9 @@ SUBROUTINE ZGTSVX( FACT, TRANS, N, NRHS, DL, D, DU, DLF, DF, DUF, $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/zgttrf.f b/lapack-netlib/SRC/zgttrf.f index 0d4c48dd7f..411233ef0b 100644 --- a/lapack-netlib/SRC/zgttrf.f +++ b/lapack-netlib/SRC/zgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zgttrs.f b/lapack-netlib/SRC/zgttrs.f index f37c35a679..d36d0107e0 100644 --- a/lapack-netlib/SRC/zgttrs.f +++ b/lapack-netlib/SRC/zgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgtts2.f b/lapack-netlib/SRC/zgtts2.f index c8c1797c12..83ca50cbab 100644 --- a/lapack-netlib/SRC/zgtts2.f +++ b/lapack-netlib/SRC/zgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zhb2st_kernels.f b/lapack-netlib/SRC/zhb2st_kernels.f index 2c0cb6870d..717b36eefa 100644 --- a/lapack-netlib/SRC/zhb2st_kernels.f +++ b/lapack-netlib/SRC/zhb2st_kernels.f @@ -170,10 +170,9 @@ SUBROUTINE ZHB2ST_KERNELS( UPLO, WANTZ, TTYPE, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ SUBROUTINE ZHB2ST_KERNELS( UPLO, WANTZ, TTYPE, * RETURN * -* END OF ZHB2ST_KERNELS +* End of ZHB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/zhbev.f b/lapack-netlib/SRC/zhbev.f index 964e684c85..341a6fb2bb 100644 --- a/lapack-netlib/SRC/zhbev.f +++ b/lapack-netlib/SRC/zhbev.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -223,9 +220,9 @@ SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, * IF( N.EQ.1 ) THEN IF( LOWER ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = DBLE( AB( 1, 1 ) ) ELSE - W( 1 ) = AB( KD+1, 1 ) + W( 1 ) = DBLE( AB( KD+1, 1 ) ) END IF IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/zhbev_2stage.f b/lapack-netlib/SRC/zhbev_2stage.f index 583e55ce02..056f0a7cea 100644 --- a/lapack-netlib/SRC/zhbev_2stage.f +++ b/lapack-netlib/SRC/zhbev_2stage.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -213,10 +211,9 @@ SUBROUTINE ZHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbevd.f b/lapack-netlib/SRC/zhbevd.f index 70378b140e..0db5515409 100644 --- a/lapack-netlib/SRC/zhbevd.f +++ b/lapack-netlib/SRC/zhbevd.f @@ -207,18 +207,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -323,7 +320,7 @@ SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = DBLE( AB( 1, 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zhbevd_2stage.f b/lapack-netlib/SRC/zhbevd_2stage.f index be493a1b94..4522d5e796 100644 --- a/lapack-netlib/SRC/zhbevd_2stage.f +++ b/lapack-netlib/SRC/zhbevd_2stage.f @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -262,10 +260,9 @@ SUBROUTINE ZHBEVD_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbevx.f b/lapack-netlib/SRC/zhbevx.f index 3966cfa59e..77bd721b3c 100644 --- a/lapack-netlib/SRC/zhbevx.f +++ b/lapack-netlib/SRC/zhbevx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== @@ -267,10 +265,9 @@ SUBROUTINE ZHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -382,7 +379,7 @@ SUBROUTINE ZHBEVX( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, Q, LDQ, VL, $ M = 0 END IF IF( M.EQ.1 ) THEN - W( 1 ) = CTMP1 + W( 1 ) = DBLE( CTMP1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE END IF diff --git a/lapack-netlib/SRC/zhbevx_2stage.f b/lapack-netlib/SRC/zhbevx_2stage.f index 9b1f5fe923..2a9896d430 100644 --- a/lapack-netlib/SRC/zhbevx_2stage.f +++ b/lapack-netlib/SRC/zhbevx_2stage.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -329,10 +327,9 @@ SUBROUTINE ZHBEVX_2STAGE( JOBZ, RANGE, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhbgst.f b/lapack-netlib/SRC/zhbgst.f index cb1c43bf32..b05823b2b2 100644 --- a/lapack-netlib/SRC/zhbgst.f +++ b/lapack-netlib/SRC/zhbgst.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/zhbgv.f b/lapack-netlib/SRC/zhbgv.f index d7e89789e3..2d587bd027 100644 --- a/lapack-netlib/SRC/zhbgv.f +++ b/lapack-netlib/SRC/zhbgv.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbgvd.f b/lapack-netlib/SRC/zhbgvd.f index b2f792182f..b0664750e7 100644 --- a/lapack-netlib/SRC/zhbgvd.f +++ b/lapack-netlib/SRC/zhbgvd.f @@ -238,8 +238,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -252,10 +250,9 @@ SUBROUTINE ZHBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbgvx.f b/lapack-netlib/SRC/zhbgvx.f index 07526a56c0..79a3811b21 100644 --- a/lapack-netlib/SRC/zhbgvx.f +++ b/lapack-netlib/SRC/zhbgvx.f @@ -286,8 +286,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -300,10 +298,9 @@ SUBROUTINE ZHBGVX( JOBZ, RANGE, UPLO, N, KA, KB, AB, LDAB, BB, $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhbtrd.f b/lapack-netlib/SRC/zhbtrd.f index 7f5af1b59f..63dc7a9343 100644 --- a/lapack-netlib/SRC/zhbtrd.f +++ b/lapack-netlib/SRC/zhbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT @@ -459,7 +456,7 @@ SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * copy diagonal elements to D * DO 120 I = 1, N - D( I ) = AB( KD1, I ) + D( I ) = DBLE( AB( KD1, I ) ) 120 CONTINUE * ELSE @@ -666,7 +663,7 @@ SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, * copy diagonal elements to D * DO 240 I = 1, N - D( I ) = AB( 1, I ) + D( I ) = DBLE( AB( 1, I ) ) 240 CONTINUE END IF * diff --git a/lapack-netlib/SRC/zhecon.f b/lapack-netlib/SRC/zhecon.f index bb8ee6d3fe..5c57b566d2 100644 --- a/lapack-netlib/SRC/zhecon.f +++ b/lapack-netlib/SRC/zhecon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhecon_3.f b/lapack-netlib/SRC/zhecon_3.f index 9d2a240b6c..a84d5c0caf 100644 --- a/lapack-netlib/SRC/zhecon_3.f +++ b/lapack-netlib/SRC/zhecon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE ZHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhecon_rook.f b/lapack-netlib/SRC/zhecon_rook.f index 6dabdcff86..522bd2b2d6 100644 --- a/lapack-netlib/SRC/zhecon_rook.f +++ b/lapack-netlib/SRC/zhecon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE ZHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zheequb.f b/lapack-netlib/SRC/zheequb.f index 7d719f41e5..93747172eb 100644 --- a/lapack-netlib/SRC/zheequb.f +++ b/lapack-netlib/SRC/zheequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * avg = s^T beta / n AVG = 0.0D0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + DBLE( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = ( N-2 ) * ( DBLE( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * DBLE( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + DBLE( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/zheev.f b/lapack-netlib/SRC/zheev.f index 3e87778740..59af34a742 100644 --- a/lapack-netlib/SRC/zheev.f +++ b/lapack-netlib/SRC/zheev.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -224,7 +221,7 @@ SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, END IF * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) WORK( 1 ) = 1 IF( WANTZ ) $ A( 1, 1 ) = CONE diff --git a/lapack-netlib/SRC/zheev_2stage.f b/lapack-netlib/SRC/zheev_2stage.f index d80a80d637..96c07c54fd 100644 --- a/lapack-netlib/SRC/zheev_2stage.f +++ b/lapack-netlib/SRC/zheev_2stage.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -191,10 +189,9 @@ SUBROUTINE ZHEEV_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zheevd.f b/lapack-netlib/SRC/zheevd.f index cbe9a39a19..a6484eb032 100644 --- a/lapack-netlib/SRC/zheevd.f +++ b/lapack-netlib/SRC/zheevd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -317,7 +314,7 @@ SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) IF( WANTZ ) $ A( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zheevd_2stage.f b/lapack-netlib/SRC/zheevd_2stage.f index 1bf5fec379..9859b0d67f 100644 --- a/lapack-netlib/SRC/zheevd_2stage.f +++ b/lapack-netlib/SRC/zheevd_2stage.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -255,10 +253,9 @@ SUBROUTINE ZHEEVD_2STAGE( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zheevr.f b/lapack-netlib/SRC/zheevr.f index def2d1f9df..1452e04a33 100644 --- a/lapack-netlib/SRC/zheevr.f +++ b/lapack-netlib/SRC/zheevr.f @@ -75,7 +75,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see ZSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -338,8 +338,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -357,10 +355,9 @@ SUBROUTINE ZHEEVR( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zheevr_2stage.f b/lapack-netlib/SRC/zheevr_2stage.f index fe4a721606..5c576e633b 100644 --- a/lapack-netlib/SRC/zheevr_2stage.f +++ b/lapack-netlib/SRC/zheevr_2stage.f @@ -81,7 +81,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see ZSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -354,8 +354,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -408,10 +406,9 @@ SUBROUTINE ZHEEVR_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zheevx.f b/lapack-netlib/SRC/zheevx.f index 3e11875db6..71c358b371 100644 --- a/lapack-netlib/SRC/zheevx.f +++ b/lapack-netlib/SRC/zheevx.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== @@ -259,10 +257,9 @@ SUBROUTINE ZHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -381,12 +378,12 @@ SUBROUTINE ZHEEVX( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, IL, IU, IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) ELSE IF( VALEIG ) THEN IF( VL.LT.DBLE( A( 1, 1 ) ) .AND. VU.GE.DBLE( A( 1, 1 ) ) ) $ THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/zheevx_2stage.f b/lapack-netlib/SRC/zheevx_2stage.f index a70c870fd0..1d4dfe9c59 100644 --- a/lapack-netlib/SRC/zheevx_2stage.f +++ b/lapack-netlib/SRC/zheevx_2stage.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -308,10 +306,9 @@ SUBROUTINE ZHEEVX_2STAGE( JOBZ, RANGE, UPLO, N, A, LDA, VL, VU, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhegs2.f b/lapack-netlib/SRC/zhegs2.f index aec526353a..ba1c3fb017 100644 --- a/lapack-netlib/SRC/zhegs2.f +++ b/lapack-netlib/SRC/zhegs2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -197,8 +194,8 @@ SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the upper triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -227,8 +224,8 @@ SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the lower triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -252,8 +249,8 @@ SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the upper triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) CALL ZTRMV( UPLO, 'No transpose', 'Non-unit', K-1, B, $ LDB, A( 1, K ), 1 ) CT = HALF*AKK @@ -272,8 +269,8 @@ SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * * Update the lower triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) CALL ZLACGV( K-1, A( K, 1 ), LDA ) CALL ZTRMV( UPLO, 'Conjugate transpose', 'Non-unit', K-1, $ B, LDB, A( K, 1 ), LDA ) diff --git a/lapack-netlib/SRC/zhegst.f b/lapack-netlib/SRC/zhegst.f index dcf5fe8b5a..0d167e8c52 100644 --- a/lapack-netlib/SRC/zhegst.f +++ b/lapack-netlib/SRC/zhegst.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhegv.f b/lapack-netlib/SRC/zhegv.f index 761b5d0f24..41657e3be7 100644 --- a/lapack-netlib/SRC/zhegv.f +++ b/lapack-netlib/SRC/zhegv.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegv_2stage.f b/lapack-netlib/SRC/zhegv_2stage.f index 53f1b8d8e0..fda651e5eb 100644 --- a/lapack-netlib/SRC/zhegv_2stage.f +++ b/lapack-netlib/SRC/zhegv_2stage.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -234,10 +232,9 @@ SUBROUTINE ZHEGV_2STAGE( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegvd.f b/lapack-netlib/SRC/zhegvd.f index b9bb05367e..2e92255df8 100644 --- a/lapack-netlib/SRC/zhegvd.f +++ b/lapack-netlib/SRC/zhegvd.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegvx.f b/lapack-netlib/SRC/zhegvx.f index 268a8226dc..ac9f9ef1a2 100644 --- a/lapack-netlib/SRC/zhegvx.f +++ b/lapack-netlib/SRC/zhegvx.f @@ -293,8 +293,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -307,10 +305,9 @@ SUBROUTINE ZHEGVX( ITYPE, JOBZ, RANGE, UPLO, N, A, LDA, B, LDB, $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zherfs.f b/lapack-netlib/SRC/zherfs.f index 2b4095b88f..b061e8764f 100644 --- a/lapack-netlib/SRC/zherfs.f +++ b/lapack-netlib/SRC/zherfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zherfsx.f b/lapack-netlib/SRC/zherfsx.f index fa11702a8f..c02955e7ec 100644 --- a/lapack-netlib/SRC/zherfsx.f +++ b/lapack-netlib/SRC/zherfsx.f @@ -122,8 +122,8 @@ *> AF is COMPLEX*16 array, dimension (LDAF,N) *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the -*> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by DSYTRF. +*> factor U or L from the factorization A = U*D*U**H or A = +*> L*D*L**H as computed by ZHETRF. *> \endverbatim *> *> \param[in] LDAF @@ -136,7 +136,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by DSYTRF. +*> as determined by ZHETRF. *> \endverbatim *> *> \param[in,out] S @@ -170,7 +170,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZHETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -401,10 +399,9 @@ SUBROUTINE ZHERFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zhesv.f b/lapack-netlib/SRC/zhesv.f index e9f60bfc51..f54023e508 100644 --- a/lapack-netlib/SRC/zhesv.f +++ b/lapack-netlib/SRC/zhesv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEsolve * * ===================================================================== SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesv_aa.f b/lapack-netlib/SRC/zhesv_aa.f index 5f1a9f4b36..df8498c7a5 100644 --- a/lapack-netlib/SRC/zhesv_aa.f +++ b/lapack-netlib/SRC/zhesv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEsolve * * ===================================================================== SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesv_aa_2stage.f b/lapack-netlib/SRC/zhesv_aa_2stage.f index 7a4e35f451..ee15968552 100644 --- a/lapack-netlib/SRC/zhesv_aa_2stage.f +++ b/lapack-netlib/SRC/zhesv_aa_2stage.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -187,10 +185,9 @@ SUBROUTINE ZHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhesv_rk.f b/lapack-netlib/SRC/zhesv_rk.f index da0e6f26db..1ec75cc04b 100644 --- a/lapack-netlib/SRC/zhesv_rk.f +++ b/lapack-netlib/SRC/zhesv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE ZHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ SUBROUTINE ZHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL ZHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zhesv_rook.f b/lapack-netlib/SRC/zhesv_rook.f index 3922b43f9c..d44284182b 100644 --- a/lapack-netlib/SRC/zhesv_rook.f +++ b/lapack-netlib/SRC/zhesv_rook.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEsolve *> *> \verbatim @@ -205,10 +203,9 @@ SUBROUTINE ZHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.5.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesvx.f b/lapack-netlib/SRC/zhesvx.f index d706326943..485c81df63 100644 --- a/lapack-netlib/SRC/zhesvx.f +++ b/lapack-netlib/SRC/zhesvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -285,10 +283,9 @@ SUBROUTINE ZHESVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zhesvxx.f b/lapack-netlib/SRC/zhesvxx.f index 20168185cc..cafd58db10 100644 --- a/lapack-netlib/SRC/zhesvxx.f +++ b/lapack-netlib/SRC/zhesvxx.f @@ -185,12 +185,12 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by DSYTRF. +*> U*D*U**H or A = L*D*L**H as computed by ZHETRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T. +*> U*D*U**H or A = L*D*L**H. *> \endverbatim *> *> \param[in] LDAF @@ -496,8 +496,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -506,10 +504,9 @@ SUBROUTINE ZHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO @@ -646,7 +643,7 @@ SUBROUTINE ZHESVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LDL^T or UDU^T factorization of A. +* Compute the LDL^H or UDU^H factorization of A. * CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL ZHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/lapack-netlib/SRC/zheswapr.f b/lapack-netlib/SRC/zheswapr.f index 1eec8477fc..71b1ed1c49 100644 --- a/lapack-netlib/SRC/zheswapr.f +++ b/lapack-netlib/SRC/zheswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetd2.f b/lapack-netlib/SRC/zhetd2.f index 6c5b8aae3d..a6d900b7c7 100644 --- a/lapack-netlib/SRC/zhetd2.f +++ b/lapack-netlib/SRC/zhetd2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -175,10 +173,9 @@ * ===================================================================== SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -248,7 +245,7 @@ SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * ALPHA = A( I, I+1 ) CALL ZLARFG( I, ALPHA, A( 1, I+1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -276,10 +273,10 @@ SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) A( I, I ) = DBLE( A( I, I ) ) END IF A( I, I+1 ) = E( I ) - D( I+1 ) = A( I+1, I+1 ) + D( I+1 ) = DBLE( A( I+1, I+1 ) ) TAU( I ) = TAUI 10 CONTINUE - D( 1 ) = A( 1, 1 ) + D( 1 ) = DBLE( A( 1, 1 ) ) ELSE * * Reduce the lower triangle of A @@ -292,7 +289,7 @@ SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * ALPHA = A( I+1, I ) CALL ZLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -321,10 +318,10 @@ SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) A( I+1, I+1 ) = DBLE( A( I+1, I+1 ) ) END IF A( I+1, I ) = E( I ) - D( I ) = A( I, I ) + D( I ) = DBLE( A( I, I ) ) TAU( I ) = TAUI 20 CONTINUE - D( N ) = A( N, N ) + D( N ) = DBLE( A( N, N ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/zhetf2.f b/lapack-netlib/SRC/zhetf2.f index 612d9c5df0..7a64951c71 100644 --- a/lapack-netlib/SRC/zhetf2.f +++ b/lapack-netlib/SRC/zhetf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE ZHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetf2_rk.f b/lapack-netlib/SRC/zhetf2_rk.f index 6578214dfd..050c7993d0 100644 --- a/lapack-netlib/SRC/zhetf2_rk.f +++ b/lapack-netlib/SRC/zhetf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -420,7 +417,7 @@ SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) @@ -611,8 +608,8 @@ SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * D = |A12| D = DLAPY2( DBLE( A( K-1, K ) ), $ DIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = DBLE( A( K, K ) / D ) + D22 = DBLE( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * @@ -773,7 +770,7 @@ SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) diff --git a/lapack-netlib/SRC/zhetf2_rook.f b/lapack-netlib/SRC/zhetf2_rook.f index 7d524cdb00..94bb297367 100644 --- a/lapack-netlib/SRC/zhetf2_rook.f +++ b/lapack-netlib/SRC/zhetf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -360,7 +357,7 @@ SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) @@ -531,8 +528,8 @@ SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * D = |A12| D = DLAPY2( DBLE( A( K-1, K ) ), $ DIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = DBLE( A( K, K ) / D ) + D22 = DBLE( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * @@ -672,7 +669,7 @@ SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) diff --git a/lapack-netlib/SRC/zhetrd.f b/lapack-netlib/SRC/zhetrd.f index 51c9fc2ec9..5b7d6546cc 100644 --- a/lapack-netlib/SRC/zhetrd.f +++ b/lapack-netlib/SRC/zhetrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -328,7 +325,7 @@ SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * DO 10 J = I, I + NB - 1 A( J-1, J ) = E( J-1 ) - D( J ) = A( J, J ) + D( J ) = DBLE( A( J, J ) ) 10 CONTINUE 20 CONTINUE * @@ -360,7 +357,7 @@ SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * DO 30 J = I, I + NB - 1 A( J+1, J ) = E( J ) - D( J ) = A( J, J ) + D( J ) = DBLE( A( J, J ) ) 30 CONTINUE 40 CONTINUE * diff --git a/lapack-netlib/SRC/zhetrd_2stage.f b/lapack-netlib/SRC/zhetrd_2stage.f index 1a2c00a2fa..b9d2f0eb19 100644 --- a/lapack-netlib/SRC/zhetrd_2stage.f +++ b/lapack-netlib/SRC/zhetrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ SUBROUTINE ZHETRD_2STAGE( VECT, UPLO, N, A, LDA, D, E, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/zhetrd_hb2st.F b/lapack-netlib/SRC/zhetrd_hb2st.F index 4ba7bfc211..e839271a47 100644 --- a/lapack-netlib/SRC/zhetrd_hb2st.F +++ b/lapack-netlib/SRC/zhetrd_hb2st.F @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZHETRD_HB2ST + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -237,10 +235,9 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -395,7 +392,7 @@ SUBROUTINE ZHETRD_HB2ST( STAGE1, VECT, UPLO, N, KD, AB, LDAB, * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/zhetrd_he2hb.f b/lapack-netlib/SRC/zhetrd_he2hb.f index b85b3889ad..e1b2e17948 100644 --- a/lapack-netlib/SRC/zhetrd_he2hb.f +++ b/lapack-netlib/SRC/zhetrd_he2hb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download ZHETRD_HE2HB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE ZHETRD_HE2HB( UPLO, N, KD, A, LDA, AB, LDAB, TAU, * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf.f b/lapack-netlib/SRC/zhetrf.f index 3866abd73f..78d4f71b89 100644 --- a/lapack-netlib/SRC/zhetrf.f +++ b/lapack-netlib/SRC/zhetrf.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf_aa.f b/lapack-netlib/SRC/zhetrf_aa.f index b80a841183..56722e7e6b 100644 --- a/lapack-netlib/SRC/zhetrf_aa.f +++ b/lapack-netlib/SRC/zhetrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -462,6 +459,7 @@ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of ZHETRF_AA diff --git a/lapack-netlib/SRC/zhetrf_aa_2stage.f b/lapack-netlib/SRC/zhetrf_aa_2stage.f index f637136647..92f1c09b37 100644 --- a/lapack-netlib/SRC/zhetrf_aa_2stage.f +++ b/lapack-netlib/SRC/zhetrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZHETRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrf_rk.f b/lapack-netlib/SRC/zhetrf_rk.f index 42b829eaff..73dd9f9d07 100644 --- a/lapack-netlib/SRC/zhetrf_rk.f +++ b/lapack-netlib/SRC/zhetrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE ZHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf_rook.f b/lapack-netlib/SRC/zhetrf_rook.f index afbad21c3f..e9de472486 100644 --- a/lapack-netlib/SRC/zhetrf_rook.f +++ b/lapack-netlib/SRC/zhetrf_rook.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE ZHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.6.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri.f b/lapack-netlib/SRC/zhetri.f index 020fe65d96..284ba87380 100644 --- a/lapack-netlib/SRC/zhetri.f +++ b/lapack-netlib/SRC/zhetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri2.f b/lapack-netlib/SRC/zhetri2.f index ae43b14fed..384745c3af 100644 --- a/lapack-netlib/SRC/zhetri2.f +++ b/lapack-netlib/SRC/zhetri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri2x.f b/lapack-netlib/SRC/zhetri2x.f index ab35e700a6..c1a3908dcf 100644 --- a/lapack-netlib/SRC/zhetri2x.f +++ b/lapack-netlib/SRC/zhetri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -242,8 +239,8 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE * 2 x 2 diagonal NNB T = ABS ( WORK(K+1,1) ) - AK = REAL ( A( K, K ) ) / T - AKP1 = REAL ( A( K+1, K+1 ) ) / T + AK = DBLE ( A( K, K ) ) / T + AKP1 = DBLE ( A( K+1, K+1 ) ) / T AKKP1 = WORK(K+1,1) / T D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D @@ -419,8 +416,8 @@ SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) ELSE * 2 x 2 diagonal NNB T = ABS ( WORK(K-1,1) ) - AK = REAL ( A( K-1, K-1 ) ) / T - AKP1 = REAL ( A( K, K ) ) / T + AK = DBLE ( A( K-1, K-1 ) ) / T + AKP1 = DBLE ( A( K, K ) ) / T AKKP1 = WORK(K-1,1) / T D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D diff --git a/lapack-netlib/SRC/zhetri_3.f b/lapack-netlib/SRC/zhetri_3.f index 14be660ea5..c778f1b9ef 100644 --- a/lapack-netlib/SRC/zhetri_3.f +++ b/lapack-netlib/SRC/zhetri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE ZHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri_3x.f b/lapack-netlib/SRC/zhetri_3x.f index d7c00c81bf..941b7522f8 100644 --- a/lapack-netlib/SRC/zhetri_3x.f +++ b/lapack-netlib/SRC/zhetri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri_rook.f b/lapack-netlib/SRC/zhetri_rook.f index 68b88acbd0..f6ad6180dc 100644 --- a/lapack-netlib/SRC/zhetri_rook.f +++ b/lapack-netlib/SRC/zhetri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -128,10 +126,9 @@ * ===================================================================== SUBROUTINE ZHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs.f b/lapack-netlib/SRC/zhetrs.f index 5af9542d4a..b00821d7f2 100644 --- a/lapack-netlib/SRC/zhetrs.f +++ b/lapack-netlib/SRC/zhetrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs2.f b/lapack-netlib/SRC/zhetrs2.f index 77f60d4ba8..010568c421 100644 --- a/lapack-netlib/SRC/zhetrs2.f +++ b/lapack-netlib/SRC/zhetrs2.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs_3.f b/lapack-netlib/SRC/zhetrs_3.f index 937544e8f3..4de54bab48 100644 --- a/lapack-netlib/SRC/zhetrs_3.f +++ b/lapack-netlib/SRC/zhetrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE ZHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs_aa.f b/lapack-netlib/SRC/zhetrs_aa.f index 4b3253abc6..06ac1fd287 100644 --- a/lapack-netlib/SRC/zhetrs_aa.f +++ b/lapack-netlib/SRC/zhetrs_aa.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrs_aa_2stage.f b/lapack-netlib/SRC/zhetrs_aa_2stage.f index c621bd5713..74037f8a88 100644 --- a/lapack-netlib/SRC/zhetrs_aa_2stage.f +++ b/lapack-netlib/SRC/zhetrs_aa_2stage.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZHETRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrs_rook.f b/lapack-netlib/SRC/zhetrs_rook.f index f99697ca54..cb05538244 100644 --- a/lapack-netlib/SRC/zhetrs_rook.f +++ b/lapack-netlib/SRC/zhetrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE ZHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhfrk.f b/lapack-netlib/SRC/zhfrk.f index 6440542fee..2fd8fa04db 100644 --- a/lapack-netlib/SRC/zhfrk.f +++ b/lapack-netlib/SRC/zhfrk.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zhgeqz.f b/lapack-netlib/SRC/zhgeqz.f index 9602447272..302b69f347 100644 --- a/lapack-netlib/SRC/zhgeqz.f +++ b/lapack-netlib/SRC/zhgeqz.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -284,10 +282,9 @@ SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -519,13 +516,17 @@ SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( ILAST.EQ.ILO ) THEN GO TO 60 ELSE - IF( ABS1( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( ILAST, ILAST ) ) + ABS1( H( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN H( ILAST, ILAST-1 ) = CZERO GO TO 60 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = CZERO GO TO 50 END IF @@ -539,7 +540,9 @@ SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS1( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( J, J ) ) + ABS1( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = CZERO ILAZRO = .TRUE. ELSE @@ -549,7 +552,10 @@ SUBROUTINE ZHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, H, LDH, T, LDT, * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = CZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/zhpcon.f b/lapack-netlib/SRC/zhpcon.f index dcf3231411..c028529b18 100644 --- a/lapack-netlib/SRC/zhpcon.f +++ b/lapack-netlib/SRC/zhpcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpev.f b/lapack-netlib/SRC/zhpev.f index 2ac1c93736..bc43049d87 100644 --- a/lapack-netlib/SRC/zhpev.f +++ b/lapack-netlib/SRC/zhpev.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -206,7 +203,7 @@ SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) RWORK( 1 ) = 1 IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/zhpevd.f b/lapack-netlib/SRC/zhpevd.f index 83983ee853..7625c8fe81 100644 --- a/lapack-netlib/SRC/zhpevd.f +++ b/lapack-netlib/SRC/zhpevd.f @@ -192,18 +192,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -303,7 +300,7 @@ SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zhpevx.f b/lapack-netlib/SRC/zhpevx.f index 7e32a3728c..f22e84bd70 100644 --- a/lapack-netlib/SRC/zhpevx.f +++ b/lapack-netlib/SRC/zhpevx.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== @@ -240,10 +238,9 @@ SUBROUTINE ZHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -335,11 +332,11 @@ SUBROUTINE ZHPEVX( JOBZ, RANGE, UPLO, N, AP, VL, VU, IL, IU, IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) ELSE IF( VL.LT.DBLE( AP( 1 ) ) .AND. VU.GE.DBLE( AP( 1 ) ) ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/zhpgst.f b/lapack-netlib/SRC/zhpgst.f index cf2c51607e..49822e09d7 100644 --- a/lapack-netlib/SRC/zhpgst.f +++ b/lapack-netlib/SRC/zhpgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -185,7 +182,7 @@ SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * Compute the j-th column of the upper triangle of A * AP( JJ ) = DBLE( AP( JJ ) ) - BJJ = BP( JJ ) + BJJ = DBLE( BP( JJ ) ) CALL ZTPSV( UPLO, 'Conjugate transpose', 'Non-unit', J, $ BP, AP( J1 ), 1 ) CALL ZHPMV( UPLO, J-1, -CONE, AP, BP( J1 ), 1, CONE, @@ -206,8 +203,8 @@ SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Update the lower triangle of A(k:n,k:n) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = DBLE( AP( KK ) ) + BKK = DBLE( BP( KK ) ) AKK = AKK / BKK**2 AP( KK ) = AKK IF( K.LT.N ) THEN @@ -237,8 +234,8 @@ SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Update the upper triangle of A(1:k,1:k) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = DBLE( AP( KK ) ) + BKK = DBLE( BP( KK ) ) CALL ZTPMV( UPLO, 'No transpose', 'Non-unit', K-1, BP, $ AP( K1 ), 1 ) CT = HALF*AKK @@ -261,8 +258,8 @@ SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * * Compute the j-th column of the lower triangle of A * - AJJ = AP( JJ ) - BJJ = BP( JJ ) + AJJ = DBLE( AP( JJ ) ) + BJJ = DBLE( BP( JJ ) ) AP( JJ ) = AJJ*BJJ + ZDOTC( N-J, AP( JJ+1 ), 1, $ BP( JJ+1 ), 1 ) CALL ZDSCAL( N-J, BJJ, AP( JJ+1 ), 1 ) diff --git a/lapack-netlib/SRC/zhpgv.f b/lapack-netlib/SRC/zhpgv.f index c6a9a6a544..72876b6e44 100644 --- a/lapack-netlib/SRC/zhpgv.f +++ b/lapack-netlib/SRC/zhpgv.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhpgvd.f b/lapack-netlib/SRC/zhpgvd.f index f0fad9ebab..d27cdc761d 100644 --- a/lapack-netlib/SRC/zhpgvd.f +++ b/lapack-netlib/SRC/zhpgvd.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -231,10 +229,9 @@ SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhpgvx.f b/lapack-netlib/SRC/zhpgvx.f index 8e8ec13f4b..94d7f77331 100644 --- a/lapack-netlib/SRC/zhpgvx.f +++ b/lapack-netlib/SRC/zhpgvx.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -277,10 +275,9 @@ SUBROUTINE ZHPGVX( ITYPE, JOBZ, RANGE, UPLO, N, AP, BP, VL, VU, $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhprfs.f b/lapack-netlib/SRC/zhprfs.f index 277a6e7500..4aa91aa9d3 100644 --- a/lapack-netlib/SRC/zhprfs.f +++ b/lapack-netlib/SRC/zhprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpsv.f b/lapack-netlib/SRC/zhpsv.f index 37ca126d64..671eac6e60 100644 --- a/lapack-netlib/SRC/zhpsv.f +++ b/lapack-netlib/SRC/zhpsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpsvx.f b/lapack-netlib/SRC/zhpsvx.f index 5dcb9f4fab..5c7b2e6ce0 100644 --- a/lapack-netlib/SRC/zhpsvx.f +++ b/lapack-netlib/SRC/zhpsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zhptrd.f b/lapack-netlib/SRC/zhptrd.f index a230e3dadc..d933af8942 100644 --- a/lapack-netlib/SRC/zhptrd.f +++ b/lapack-netlib/SRC/zhptrd.f @@ -112,8 +112,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -224,7 +221,7 @@ SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * ALPHA = AP( I1+I-1 ) CALL ZLARFG( I, ALPHA, AP( I1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -249,11 +246,11 @@ SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * END IF AP( I1+I-1 ) = E( I ) - D( I+1 ) = AP( I1+I ) + D( I+1 ) = DBLE( AP( I1+I ) ) TAU( I ) = TAUI I1 = I1 - I 10 CONTINUE - D( 1 ) = AP( 1 ) + D( 1 ) = DBLE( AP( 1 ) ) ELSE * * Reduce the lower triangle of A. II is the index in AP of @@ -269,7 +266,7 @@ SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * ALPHA = AP( II+1 ) CALL ZLARFG( N-I, ALPHA, AP( II+2 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -296,11 +293,11 @@ SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * END IF AP( II+1 ) = E( I ) - D( I ) = AP( II ) + D( I ) = DBLE( AP( II ) ) TAU( I ) = TAUI II = I1I1 20 CONTINUE - D( N ) = AP( II ) + D( N ) = DBLE( AP( II ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/zhptrf.f b/lapack-netlib/SRC/zhptrf.f index 2fa2ee8ede..9c736f3352 100644 --- a/lapack-netlib/SRC/zhptrf.f +++ b/lapack-netlib/SRC/zhptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhptri.f b/lapack-netlib/SRC/zhptri.f index 4df455d223..61147cac2a 100644 --- a/lapack-netlib/SRC/zhptri.f +++ b/lapack-netlib/SRC/zhptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhptrs.f b/lapack-netlib/SRC/zhptrs.f index 71289d57c6..ddf8d8eb0c 100644 --- a/lapack-netlib/SRC/zhptrs.f +++ b/lapack-netlib/SRC/zhptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhsein.f b/lapack-netlib/SRC/zhsein.f index 652c7d7947..4d3594017e 100644 --- a/lapack-netlib/SRC/zhsein.f +++ b/lapack-netlib/SRC/zhsein.f @@ -226,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ SUBROUTINE ZHSEIN( SIDE, EIGSRC, INITV, SELECT, N, H, LDH, W, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/zhseqr.f b/lapack-netlib/SRC/zhseqr.f index e0fddd3a72..d483641c8f 100644 --- a/lapack-netlib/SRC/zhseqr.f +++ b/lapack-netlib/SRC/zhseqr.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zla_gbamv.f b/lapack-netlib/SRC/zla_gbamv.f index 6ffaf8f7d1..a4a9bc0a08 100644 --- a/lapack-netlib/SRC/zla_gbamv.f +++ b/lapack-netlib/SRC/zla_gbamv.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_gbrcond_c.f b/lapack-netlib/SRC/zla_gbrcond_c.f index 5b2dc46fc7..6515c383e4 100644 --- a/lapack-netlib/SRC/zla_gbrcond_c.f +++ b/lapack-netlib/SRC/zla_gbrcond_c.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -163,10 +161,9 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, $ C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -340,5 +337,7 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_C( TRANS, N, KL, KU, AB, $ ZLA_GBRCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GBRCOND_C * END diff --git a/lapack-netlib/SRC/zla_gbrcond_x.f b/lapack-netlib/SRC/zla_gbrcond_x.f index 17e9eede7f..a3e89f3283 100644 --- a/lapack-netlib/SRC/zla_gbrcond_x.f +++ b/lapack-netlib/SRC/zla_gbrcond_x.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -155,10 +153,9 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_X( TRANS, N, KL, KU, AB, $ LDAB, AFB, LDAFB, IPIV, $ X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -317,5 +314,7 @@ DOUBLE PRECISION FUNCTION ZLA_GBRCOND_X( TRANS, N, KL, KU, AB, $ ZLA_GBRCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GBRCOND_X * END diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.f b/lapack-netlib/SRC/zla_gbrfsx_extended.f index a22b5592e2..fe4d635b12 100644 --- a/lapack-netlib/SRC/zla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/zla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ SUBROUTINE ZLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -710,4 +707,7 @@ SUBROUTINE ZLA_GBRFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, KL, KU, END DO * RETURN +* +* End of ZLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_gbrpvgrw.f b/lapack-netlib/SRC/zla_gbrpvgrw.f index b2ae02bf66..7bf810169c 100644 --- a/lapack-netlib/SRC/zla_gbrpvgrw.f +++ b/lapack-netlib/SRC/zla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -164,4 +161,7 @@ DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, END IF END DO ZLA_GBRPVGRW = RPVGRW +* +* End of ZLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/zla_geamv.f b/lapack-netlib/SRC/zla_geamv.f index 221e0c3fdd..728b27a68d 100644 --- a/lapack-netlib/SRC/zla_geamv.f +++ b/lapack-netlib/SRC/zla_geamv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_gercond_c.f b/lapack-netlib/SRC/zla_gercond_c.f index a1c0df5886..8c8caca467 100644 --- a/lapack-netlib/SRC/zla_gercond_c.f +++ b/lapack-netlib/SRC/zla_gercond_c.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -143,10 +141,9 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -314,5 +311,7 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_C( TRANS, N, A, LDA, AF, $ ZLA_GERCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GERCOND_C * END diff --git a/lapack-netlib/SRC/zla_gercond_x.f b/lapack-netlib/SRC/zla_gercond_x.f index 3aa63ea845..9de53ec91b 100644 --- a/lapack-netlib/SRC/zla_gercond_x.f +++ b/lapack-netlib/SRC/zla_gercond_x.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -136,10 +134,9 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_X( TRANS, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -290,5 +287,7 @@ DOUBLE PRECISION FUNCTION ZLA_GERCOND_X( TRANS, N, A, LDA, AF, $ ZLA_GERCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GERCOND_X * END diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.f b/lapack-netlib/SRC/zla_gerfsx_extended.f index e42ffa8e29..9d618f2942 100644 --- a/lapack-netlib/SRC/zla_gerfsx_extended.f +++ b/lapack-netlib/SRC/zla_gerfsx_extended.f @@ -53,7 +53,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -355,7 +355,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -396,10 +394,9 @@ SUBROUTINE ZLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -694,4 +691,7 @@ SUBROUTINE ZLA_GERFSX_EXTENDED( PREC_TYPE, TRANS_TYPE, N, NRHS, A, END DO * RETURN +* +* End of ZLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_gerpvgrw.f b/lapack-netlib/SRC/zla_gerpvgrw.f index a5f5174677..e0d93486a1 100644 --- a/lapack-netlib/SRC/zla_gerpvgrw.f +++ b/lapack-netlib/SRC/zla_gerpvgrw.f @@ -92,18 +92,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -146,4 +143,7 @@ DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, END IF END DO ZLA_GERPVGRW = RPVGRW +* +* End of ZLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/zla_heamv.f b/lapack-netlib/SRC/zla_heamv.f index cd536efb2a..66cece241c 100644 --- a/lapack-netlib/SRC/zla_heamv.f +++ b/lapack-netlib/SRC/zla_heamv.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -178,10 +176,9 @@ SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_hercond_c.f b/lapack-netlib/SRC/zla_hercond_c.f index 7c933cc3c3..9de54ea524 100644 --- a/lapack-netlib/SRC/zla_hercond_c.f +++ b/lapack-netlib/SRC/zla_hercond_c.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -140,10 +138,9 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -325,5 +322,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_C( UPLO, N, A, LDA, AF, $ ZLA_HERCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_HERCOND_C * END diff --git a/lapack-netlib/SRC/zla_hercond_x.f b/lapack-netlib/SRC/zla_hercond_x.f index ee283c0b59..e1ffafd496 100644 --- a/lapack-netlib/SRC/zla_hercond_x.f +++ b/lapack-netlib/SRC/zla_hercond_x.f @@ -124,8 +124,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -133,10 +131,9 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_X( UPLO, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -295,5 +292,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERCOND_X( UPLO, N, A, LDA, AF, $ ZLA_HERCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_HERCOND_X * END diff --git a/lapack-netlib/SRC/zla_herfsx_extended.f b/lapack-netlib/SRC/zla_herfsx_extended.f index 8329080efe..a55dd94318 100644 --- a/lapack-netlib/SRC/zla_herfsx_extended.f +++ b/lapack-netlib/SRC/zla_herfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -395,10 +393,9 @@ SUBROUTINE ZLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -714,4 +711,7 @@ SUBROUTINE ZLA_HERFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of ZLA_HERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_herpvgrw.f b/lapack-netlib/SRC/zla_herpvgrw.f index d414c371f1..76571f6da5 100644 --- a/lapack-netlib/SRC/zla_herpvgrw.f +++ b/lapack-netlib/SRC/zla_herpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -327,4 +324,7 @@ DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, END IF ZLA_HERPVGRW = RPVGRW +* +* End of ZLA_HERPVGRW +* END diff --git a/lapack-netlib/SRC/zla_lin_berr.f b/lapack-netlib/SRC/zla_lin_berr.f index 91be519399..8da3550d9c 100644 --- a/lapack-netlib/SRC/zla_lin_berr.f +++ b/lapack-netlib/SRC/zla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -157,4 +154,7 @@ SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * END DO END DO +* +* End of ZLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/zla_porcond_c.f b/lapack-netlib/SRC/zla_porcond_c.f index 2e591dd09d..6133f43dfe 100644 --- a/lapack-netlib/SRC/zla_porcond_c.f +++ b/lapack-netlib/SRC/zla_porcond_c.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -132,10 +130,9 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -317,5 +314,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_C( UPLO, N, A, LDA, AF, $ ZLA_PORCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_PORCOND_C * END diff --git a/lapack-netlib/SRC/zla_porcond_x.f b/lapack-netlib/SRC/zla_porcond_x.f index 4f409544f1..e73718cfc5 100644 --- a/lapack-netlib/SRC/zla_porcond_x.f +++ b/lapack-netlib/SRC/zla_porcond_x.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -125,10 +123,9 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_X( UPLO, N, A, LDA, AF, $ LDAF, X, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -286,5 +283,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORCOND_X( UPLO, N, A, LDA, AF, $ ZLA_PORCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_PORCOND_X * END diff --git a/lapack-netlib/SRC/zla_porfsx_extended.f b/lapack-netlib/SRC/zla_porfsx_extended.f index 169a9a5d4c..12e05e049e 100644 --- a/lapack-netlib/SRC/zla_porfsx_extended.f +++ b/lapack-netlib/SRC/zla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -387,10 +385,9 @@ SUBROUTINE ZLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -685,4 +682,7 @@ SUBROUTINE ZLA_PORFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of ZLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_porpvgrw.f b/lapack-netlib/SRC/zla_porpvgrw.f index f669b2864f..9b381a0727 100644 --- a/lapack-netlib/SRC/zla_porpvgrw.f +++ b/lapack-netlib/SRC/zla_porpvgrw.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -215,4 +212,7 @@ DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, END IF ZLA_PORPVGRW = RPVGRW +* +* End of ZLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/zla_syamv.f b/lapack-netlib/SRC/zla_syamv.f index cfdb3cdc87..d00406fb57 100644 --- a/lapack-netlib/SRC/zla_syamv.f +++ b/lapack-netlib/SRC/zla_syamv.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -179,10 +177,9 @@ SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_syrcond_c.f b/lapack-netlib/SRC/zla_syrcond_c.f index ff44d6c3b4..fd7287373c 100644 --- a/lapack-netlib/SRC/zla_syrcond_c.f +++ b/lapack-netlib/SRC/zla_syrcond_c.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -140,10 +138,9 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_C( UPLO, N, A, LDA, AF, $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -326,5 +323,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_C( UPLO, N, A, LDA, AF, $ ZLA_SYRCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_SYRCOND_C * END diff --git a/lapack-netlib/SRC/zla_syrcond_x.f b/lapack-netlib/SRC/zla_syrcond_x.f index 53022bbfb2..85ef929bfa 100644 --- a/lapack-netlib/SRC/zla_syrcond_x.f +++ b/lapack-netlib/SRC/zla_syrcond_x.f @@ -124,8 +124,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -133,10 +131,9 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -296,5 +293,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRCOND_X( UPLO, N, A, LDA, AF, $ ZLA_SYRCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_SYRCOND_X * END diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.f b/lapack-netlib/SRC/zla_syrfsx_extended.f index 69844c94b4..d6c241499a 100644 --- a/lapack-netlib/SRC/zla_syrfsx_extended.f +++ b/lapack-netlib/SRC/zla_syrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -395,10 +393,9 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -714,4 +711,7 @@ SUBROUTINE ZLA_SYRFSX_EXTENDED( PREC_TYPE, UPLO, N, NRHS, A, LDA, END DO * RETURN +* +* End of ZLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_syrpvgrw.f b/lapack-netlib/SRC/zla_syrpvgrw.f index 82c9f52f88..d256eee304 100644 --- a/lapack-netlib/SRC/zla_syrpvgrw.f +++ b/lapack-netlib/SRC/zla_syrpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -328,4 +325,7 @@ DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, END IF ZLA_SYRPVGRW = RPVGRW +* +* End of ZLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/zla_wwaddw.f b/lapack-netlib/SRC/zla_wwaddw.f index f06113a95f..e9d8366463 100644 --- a/lapack-netlib/SRC/zla_wwaddw.f +++ b/lapack-netlib/SRC/zla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -107,4 +104,7 @@ SUBROUTINE ZLA_WWADDW( N, X, Y, W ) X(I) = S 10 CONTINUE RETURN +* +* End of ZLA_WWADDW +* END diff --git a/lapack-netlib/SRC/zlabrd.f b/lapack-netlib/SRC/zlabrd.f index 9078409671..ab3b3217fd 100644 --- a/lapack-netlib/SRC/zlabrd.f +++ b/lapack-netlib/SRC/zlabrd.f @@ -157,8 +157,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -212,10 +210,9 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB @@ -270,7 +267,7 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I ) CALL ZLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) IF( I.LT.N ) THEN A( I, I ) = ONE * @@ -310,7 +307,7 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I+1 ) CALL ZLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), LDA, $ TAUP( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I, I+1 ) = ONE * * Compute X(i+1:m,i) @@ -354,7 +351,7 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I, I ) CALL ZLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) IF( I.LT.M ) THEN A( I, I ) = ONE * @@ -388,7 +385,7 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, ALPHA = A( I+1, I ) CALL ZLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Compute Y(i+1:n,i) diff --git a/lapack-netlib/SRC/zlacgv.f b/lapack-netlib/SRC/zlacgv.f index 1e3ca6e73f..dc935e08f4 100644 --- a/lapack-netlib/SRC/zlacgv.f +++ b/lapack-netlib/SRC/zlacgv.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zlacn2.f b/lapack-netlib/SRC/zlacn2.f index 9d92773efc..d301d95f44 100644 --- a/lapack-netlib/SRC/zlacn2.f +++ b/lapack-netlib/SRC/zlacn2.f @@ -96,8 +96,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -133,10 +131,9 @@ * ===================================================================== SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/zlacon.f b/lapack-netlib/SRC/zlacon.f index c7c2f5f202..61f20d042a 100644 --- a/lapack-netlib/SRC/zlacon.f +++ b/lapack-netlib/SRC/zlacon.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE ZLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/zlacp2.f b/lapack-netlib/SRC/zlacp2.f index 647e82a3a1..001043a53d 100644 --- a/lapack-netlib/SRC/zlacp2.f +++ b/lapack-netlib/SRC/zlacp2.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlacpy.f b/lapack-netlib/SRC/zlacpy.f index 81932b8870..06017509e0 100644 --- a/lapack-netlib/SRC/zlacpy.f +++ b/lapack-netlib/SRC/zlacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlacrm.f b/lapack-netlib/SRC/zlacrm.f index a3f919d0e1..ce8b9b02c5 100644 --- a/lapack-netlib/SRC/zlacrm.f +++ b/lapack-netlib/SRC/zlacrm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/zlacrt.f b/lapack-netlib/SRC/zlacrt.f index 3e849986cc..b64ace8d2d 100644 --- a/lapack-netlib/SRC/zlacrt.f +++ b/lapack-netlib/SRC/zlacrt.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zladiv.f b/lapack-netlib/SRC/zladiv.f index 0bf6ea87d5..ae111d73d6 100644 --- a/lapack-netlib/SRC/zladiv.f +++ b/lapack-netlib/SRC/zladiv.f @@ -57,17 +57,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== COMPLEX*16 FUNCTION ZLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 X, Y diff --git a/lapack-netlib/SRC/zlaed0.f b/lapack-netlib/SRC/zlaed0.f index 92672456fa..c4deac037a 100644 --- a/lapack-netlib/SRC/zlaed0.f +++ b/lapack-netlib/SRC/zlaed0.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b ZLAED0 used by ZSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/zlaed7.f b/lapack-netlib/SRC/zlaed7.f index 90416af8e9..83f32d8b81 100644 --- a/lapack-netlib/SRC/zlaed7.f +++ b/lapack-netlib/SRC/zlaed7.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b ZLAED7 used by ZSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -249,10 +247,9 @@ SUBROUTINE ZLAED7( N, CUTPNT, QSIZ, TLVLS, CURLVL, CURPBM, D, Q, $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/lapack-netlib/SRC/zlaed8.f b/lapack-netlib/SRC/zlaed8.f index 48057270ee..995a673de9 100644 --- a/lapack-netlib/SRC/zlaed8.f +++ b/lapack-netlib/SRC/zlaed8.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b ZLAED8 used by ZSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -228,10 +226,9 @@ SUBROUTINE ZLAED8( K, N, QSIZ, Q, LDQ, D, RHO, CUTPNT, Z, DLAMDA, $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/lapack-netlib/SRC/zlaein.f b/lapack-netlib/SRC/zlaein.f index 0376e60b2c..7e0f6f1094 100644 --- a/lapack-netlib/SRC/zlaein.f +++ b/lapack-netlib/SRC/zlaein.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/zlaesy.f b/lapack-netlib/SRC/zlaesy.f index 2ff9b3530e..eddf453ecc 100644 --- a/lapack-netlib/SRC/zlaesy.f +++ b/lapack-netlib/SRC/zlaesy.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/zlaev2.f b/lapack-netlib/SRC/zlaev2.f index d93dd605af..de2d9cbb7b 100644 --- a/lapack-netlib/SRC/zlaev2.f +++ b/lapack-netlib/SRC/zlaev2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CS1, RT1, RT2 diff --git a/lapack-netlib/SRC/zlag2c.f b/lapack-netlib/SRC/zlag2c.f index f1fc59a5e1..ba141a98fe 100644 --- a/lapack-netlib/SRC/zlag2c.f +++ b/lapack-netlib/SRC/zlag2c.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/zlags2.f b/lapack-netlib/SRC/zlags2.f index d00cd4e950..1332b052f1 100644 --- a/lapack-netlib/SRC/zlags2.f +++ b/lapack-netlib/SRC/zlags2.f @@ -150,18 +150,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/zlagtm.f b/lapack-netlib/SRC/zlagtm.f index 5c3e99abe6..576490899d 100644 --- a/lapack-netlib/SRC/zlagtm.f +++ b/lapack-netlib/SRC/zlagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zlahef.f b/lapack-netlib/SRC/zlahef.f index 0c8484d8e2..22a638ba82 100644 --- a/lapack-netlib/SRC/zlahef.f +++ b/lapack-netlib/SRC/zlahef.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlahef_aa.f b/lapack-netlib/SRC/zlahef_aa.f index ddd1e9493e..37bd29f888 100644 --- a/lapack-netlib/SRC/zlahef_aa.f +++ b/lapack-netlib/SRC/zlahef_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zlahef_rk.f b/lapack-netlib/SRC/zlahef_rk.f index 6a8549cf5a..ed66e133da 100644 --- a/lapack-netlib/SRC/zlahef_rk.f +++ b/lapack-netlib/SRC/zlahef_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -463,7 +460,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) ) @@ -602,7 +599,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, * A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) IF( K.GT.1 ) THEN @@ -915,7 +912,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) ) @@ -1045,7 +1042,7 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, * A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) IF( K.LT.N ) THEN diff --git a/lapack-netlib/SRC/zlahef_rook.f b/lapack-netlib/SRC/zlahef_rook.f index 1a344a30f5..65f70a5978 100644 --- a/lapack-netlib/SRC/zlahef_rook.f +++ b/lapack-netlib/SRC/zlahef_rook.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -373,7 +370,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) ) @@ -512,7 +509,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, * A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) IF( K.GT.1 ) THEN @@ -836,7 +833,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) ) @@ -966,7 +963,7 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, * A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) IF( K.LT.N ) THEN diff --git a/lapack-netlib/SRC/zlahqr.f b/lapack-netlib/SRC/zlahqr.f index 0a83188742..9413f20cc8 100644 --- a/lapack-netlib/SRC/zlahqr.f +++ b/lapack-netlib/SRC/zlahqr.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -194,11 +192,11 @@ * ===================================================================== SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -218,6 +216,8 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, PARAMETER ( RZERO = 0.0d0, RONE = 1.0d0, HALF = 0.5d0 ) DOUBLE PRECISION DAT1 PARAMETER ( DAT1 = 3.0d0 / 4.0d0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. COMPLEX*16 CDUM, H11, H11S, H22, SC, SUM, T, T1, TEMP, U, @@ -225,7 +225,7 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, DOUBLE PRECISION AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, $ SAFMIN, SMLNUM, SX, T2, TST, ULP INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, - $ NH, NZ + $ NH, NZ, KDEFL * .. * .. Local Arrays .. COMPLEX*16 V( 2 ) @@ -315,6 +315,10 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -374,6 +378,7 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * IF( L.GE.I ) $ GO TO 140 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -384,18 +389,18 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( DBLE( H( L+1, L ) ) ) - T = S + H( L, L ) - ELSE IF( ITS.EQ.20 ) THEN + S = DAT1*ABS( DBLE( H( I, I-1 ) ) ) + T = S + H( I, I ) + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( DBLE( H( I, I-1 ) ) ) - T = S + H( I, I ) + S = DAT1*ABS( DBLE( H( L+1, L ) ) ) + T = S + H( L, L ) ELSE * * Wilkinson's shift. @@ -557,6 +562,8 @@ SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, * H(I,I-1) is negligible: one eigenvalue has converged. * W( I ) = H( I, I ) +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/zlahr2.f b/lapack-netlib/SRC/zlahr2.f index 063b515c46..60ba5f0310 100644 --- a/lapack-netlib/SRC/zlahr2.f +++ b/lapack-netlib/SRC/zlahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's ZLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's ZLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's ZLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/zlaic1.f b/lapack-netlib/SRC/zlaic1.f index 1000922201..72948cde9f 100644 --- a/lapack-netlib/SRC/zlaic1.f +++ b/lapack-netlib/SRC/zlaic1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB @@ -194,7 +191,7 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) ELSE S = ALPHA / S1 C = GAMMA / S1 - TMP = SQRT( S*DCONJG( S )+C*DCONJG( C ) ) + TMP = DBLE( SQRT( S*DCONJG( S )+C*DCONJG( C ) ) ) S = S / TMP C = C / TMP SESTPR = S1*TMP @@ -248,14 +245,16 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) B = ( ONE-ZETA1*ZETA1-ZETA2*ZETA2 )*HALF C = ZETA1*ZETA1 IF( B.GT.ZERO ) THEN - T = C / ( B+SQRT( B*B+C ) ) + T = DBLE( C / ( B+SQRT( B*B+C ) ) ) ELSE - T = SQRT( B*B+C ) - B + T = DBLE( SQRT( B*B+C ) - B ) END IF * SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) - TMP = SQRT( SINE*DCONJG( SINE )+COSINE*DCONJG( COSINE ) ) + TMP = DBLE( SQRT( SINE * DCONJG( SINE ) + $ + COSINE * DCONJG( COSINE ) ) ) + S = SINE / TMP C = COSINE / TMP SESTPR = SQRT( T+ONE )*ABSEST @@ -280,7 +279,7 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) S1 = MAX( ABS( SINE ), ABS( COSINE ) ) S = SINE / S1 C = COSINE / S1 - TMP = SQRT( S*DCONJG( S )+C*DCONJG( C ) ) + TMP = DBLE( SQRT( S*DCONJG( S )+C*DCONJG( C ) ) ) S = S / TMP C = C / TMP RETURN @@ -338,7 +337,7 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * B = ( ZETA1*ZETA1+ZETA2*ZETA2+ONE )*HALF C = ZETA2*ZETA2 - T = C / ( B+SQRT( ABS( B*B-C ) ) ) + T = DBLE( C / ( B+SQRT( ABS( B*B-C ) ) ) ) SINE = ( ALPHA / ABSEST ) / ( ONE-T ) COSINE = -( GAMMA / ABSEST ) / T SESTPR = SQRT( T+FOUR*EPS*EPS*NORMA )*ABSEST @@ -357,7 +356,8 @@ SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) SESTPR = SQRT( ONE+T+FOUR*EPS*EPS*NORMA )*ABSEST END IF - TMP = SQRT( SINE*DCONJG( SINE )+COSINE*DCONJG( COSINE ) ) + TMP = DBLE( SQRT( SINE * DCONJG( SINE ) + $ + COSINE * DCONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP RETURN diff --git a/lapack-netlib/SRC/zlals0.f b/lapack-netlib/SRC/zlals0.f index 1946ad9c00..7a7310042f 100644 --- a/lapack-netlib/SRC/zlals0.f +++ b/lapack-netlib/SRC/zlals0.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -270,10 +268,9 @@ SUBROUTINE ZLALS0( ICOMPQ, NL, NR, SQRE, NRHS, B, LDB, BX, LDBX, $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/zlalsa.f b/lapack-netlib/SRC/zlalsa.f index ed5845ba2a..73ccf3a8bf 100644 --- a/lapack-netlib/SRC/zlalsa.f +++ b/lapack-netlib/SRC/zlalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ SUBROUTINE ZLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/zlalsd.f b/lapack-netlib/SRC/zlalsd.f index 409ebe3ac4..dca308e561 100644 --- a/lapack-netlib/SRC/zlalsd.f +++ b/lapack-netlib/SRC/zlalsd.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlamswlq.f b/lapack-netlib/SRC/zlamswlq.f index f32f5667cb..4abefa4343 100644 --- a/lapack-netlib/SRC/zlamswlq.f +++ b/lapack-netlib/SRC/zlamswlq.f @@ -19,13 +19,13 @@ *> *> \verbatim *> -*> ZLAMQRTS overwrites the general real M-by-N matrix C with +*> ZLAMSWLQ overwrites the general complex M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product of blocked +*> where Q is a complex unitary matrix defined as the product of blocked *> elementary reflectors computed by short wide LQ *> factorization (ZLASWLQ) *> \endverbatim @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is COMPLEX*16 array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= MAX(1,K). *> \endverbatim *> *> \param[in] T @@ -171,8 +161,8 @@ * ===================== *> *> \verbatim -*> Short-Wide LQ (SWLQ) performs LQ by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Short-Wide LQ (SWLQ) performs LQ by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out upper diagonal entries of a block of NB rows of A: *> Q(1) zeros out the upper diagonal entries of rows 1:NB of A @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE ZLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ SUBROUTINE ZLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/zlamtsqr.f b/lapack-netlib/SRC/zlamtsqr.f index 034c455050..5030cb75fd 100644 --- a/lapack-netlib/SRC/zlamtsqr.f +++ b/lapack-netlib/SRC/zlamtsqr.f @@ -25,7 +25,7 @@ *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product +*> where Q is a complex unitary matrix defined as the product *> of blocked elementary reflectors computed by tall skinny *> QR factorization (ZLATSQR) *> \endverbatim @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as ZLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is COMPLEX*16 array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by ZLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -164,8 +163,8 @@ * ===================== *> *> \verbatim -*> Tall-Skinny QR (TSQR) performs QR by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Tall-Skinny QR (TSQR) performs QR by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out subdiagonal entries of a block of MB rows of A: *> Q(1) zeros out the subdiagonal entries of rows 1:MB of A @@ -196,10 +195,9 @@ SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = M * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/zlangb.f b/lapack-netlib/SRC/zlangb.f index e40a470fde..25089ee58b 100644 --- a/lapack-netlib/SRC/zlangb.f +++ b/lapack-netlib/SRC/zlangb.f @@ -117,20 +117,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -148,17 +144,14 @@ DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, K, L - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -211,22 +204,15 @@ DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANGB = VALUE diff --git a/lapack-netlib/SRC/zlange.f b/lapack-netlib/SRC/zlange.f index 8162786fb7..d68560e995 100644 --- a/lapack-netlib/SRC/zlange.f +++ b/lapack-netlib/SRC/zlange.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -138,17 +134,14 @@ DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -200,19 +193,13 @@ DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANGE = VALUE diff --git a/lapack-netlib/SRC/zlangt.f b/lapack-netlib/SRC/zlangt.f index f55904aab4..6ae1da31e9 100644 --- a/lapack-netlib/SRC/zlangt.f +++ b/lapack-netlib/SRC/zlangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zlanhb.f b/lapack-netlib/SRC/zlanhb.f index 16b5c117c5..52f46dbc6e 100644 --- a/lapack-netlib/SRC/zlanhb.f +++ b/lapack-netlib/SRC/zlanhb.f @@ -124,20 +124,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -155,17 +151,14 @@ DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SQRT @@ -237,57 +230,39 @@ DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 J = 1, N IF( DBLE( AB( L, J ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AB( L, J ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHB = VALUE diff --git a/lapack-netlib/SRC/zlanhe.f b/lapack-netlib/SRC/zlanhe.f index 5aef9a7569..bbb4843ffd 100644 --- a/lapack-netlib/SRC/zlanhe.f +++ b/lapack-netlib/SRC/zlanhe.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -147,17 +143,14 @@ DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SQRT @@ -227,48 +220,31 @@ DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, A( J+1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM DO 130 I = 1, N IF( DBLE( A( I, I ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( A( I, I ) ) ) - IF( SSQ( 1 ).LT.ABSA ) THEN - SSQ( 2 ) = ONE + SSQ( 2 )*( SSQ( 1 ) / ABSA )**2 - SSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - SSQ( 2 ) = SSQ( 2 ) + ( ABSA / SSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHE = VALUE diff --git a/lapack-netlib/SRC/zlanhf.f b/lapack-netlib/SRC/zlanhf.f index 0e73c861b1..331a92aac3 100644 --- a/lapack-netlib/SRC/zlanhf.f +++ b/lapack-netlib/SRC/zlanhf.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -246,10 +244,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/zlanhp.f b/lapack-netlib/SRC/zlanhp.f index d795aeca9d..ac45467d0e 100644 --- a/lapack-netlib/SRC/zlanhp.f +++ b/lapack-netlib/SRC/zlanhp.f @@ -110,19 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -140,17 +136,14 @@ DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SQRT @@ -229,48 +222,31 @@ DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( DBLE( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -279,8 +255,7 @@ DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHP = VALUE diff --git a/lapack-netlib/SRC/zlanhs.f b/lapack-netlib/SRC/zlanhs.f index bd8e86be9d..d6725804f7 100644 --- a/lapack-netlib/SRC/zlanhs.f +++ b/lapack-netlib/SRC/zlanhs.f @@ -102,19 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -132,17 +128,14 @@ DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -194,20 +187,13 @@ DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHS = VALUE diff --git a/lapack-netlib/SRC/zlanht.f b/lapack-netlib/SRC/zlanht.f index 70f9e3ce63..92254726c7 100644 --- a/lapack-netlib/SRC/zlanht.f +++ b/lapack-netlib/SRC/zlanht.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zlansb.f b/lapack-netlib/SRC/zlansb.f index 245dcaf4b7..ded6d2b7ea 100644 --- a/lapack-netlib/SRC/zlansb.f +++ b/lapack-netlib/SRC/zlansb.f @@ -122,20 +122,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -153,17 +149,14 @@ DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -231,47 +224,29 @@ DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL ZLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSB = VALUE diff --git a/lapack-netlib/SRC/zlansp.f b/lapack-netlib/SRC/zlansp.f index fa92204874..b565a1e1c0 100644 --- a/lapack-netlib/SRC/zlansp.f +++ b/lapack-netlib/SRC/zlansp.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -138,17 +134,14 @@ DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DIMAG, SQRT @@ -223,57 +216,40 @@ DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( DBLE( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( DIMAG( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DIMAG( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -282,8 +258,7 @@ DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSP = VALUE diff --git a/lapack-netlib/SRC/zlansy.f b/lapack-netlib/SRC/zlansy.f index e022f85e1e..fd28bda204 100644 --- a/lapack-netlib/SRC/zlansy.f +++ b/lapack-netlib/SRC/zlansy.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -146,17 +142,14 @@ DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -222,39 +215,21 @@ DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL ZLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSY = VALUE diff --git a/lapack-netlib/SRC/zlantb.f b/lapack-netlib/SRC/zlantb.f index f02509223d..13014ceaca 100644 --- a/lapack-netlib/SRC/zlantb.f +++ b/lapack-netlib/SRC/zlantb.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -165,17 +161,14 @@ DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -317,61 +310,46 @@ DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTB = VALUE diff --git a/lapack-netlib/SRC/zlantp.f b/lapack-netlib/SRC/zlantp.f index d32a00f138..af2b2cf75f 100644 --- a/lapack-netlib/SRC/zlantp.f +++ b/lapack-netlib/SRC/zlantp.f @@ -118,19 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -149,17 +145,14 @@ DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -312,64 +305,45 @@ DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTP = VALUE diff --git a/lapack-netlib/SRC/zlantr.f b/lapack-netlib/SRC/zlantr.f index 7d63c972ef..bd4b5da7c2 100644 --- a/lapack-netlib/SRC/zlantr.f +++ b/lapack-netlib/SRC/zlantr.f @@ -134,20 +134,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -166,17 +162,14 @@ DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -317,56 +310,38 @@ DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTR = VALUE diff --git a/lapack-netlib/SRC/zlapll.f b/lapack-netlib/SRC/zlapll.f index 2eebe88e4c..345e7f7709 100644 --- a/lapack-netlib/SRC/zlapll.f +++ b/lapack-netlib/SRC/zlapll.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zlapmr.f b/lapack-netlib/SRC/zlapmr.f index 757a9597d0..6a409d2c21 100644 --- a/lapack-netlib/SRC/zlapmr.f +++ b/lapack-netlib/SRC/zlapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) * RETURN * -* End of ZLAPMT +* End of ZLAPMR * END diff --git a/lapack-netlib/SRC/zlapmt.f b/lapack-netlib/SRC/zlapmt.f index 963ced2ed2..6c8e6fe7d1 100644 --- a/lapack-netlib/SRC/zlapmt.f +++ b/lapack-netlib/SRC/zlapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/zlaqgb.f b/lapack-netlib/SRC/zlaqgb.f index 9aaa941c93..f1480b67e5 100644 --- a/lapack-netlib/SRC/zlaqgb.f +++ b/lapack-netlib/SRC/zlaqgb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBauxiliary * * ===================================================================== SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/zlaqge.f b/lapack-netlib/SRC/zlaqge.f index c7e2cc17fb..5eae13dd50 100644 --- a/lapack-netlib/SRC/zlaqge.f +++ b/lapack-netlib/SRC/zlaqge.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEauxiliary * * ===================================================================== SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/zlaqhb.f b/lapack-netlib/SRC/zlaqhb.f index 8d2a53ce7b..3b90b59909 100644 --- a/lapack-netlib/SRC/zlaqhb.f +++ b/lapack-netlib/SRC/zlaqhb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqhe.f b/lapack-netlib/SRC/zlaqhe.f index 5e6520bd5b..afda051f15 100644 --- a/lapack-netlib/SRC/zlaqhe.f +++ b/lapack-netlib/SRC/zlaqhe.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqhp.f b/lapack-netlib/SRC/zlaqhp.f index 03f2ac2d1c..e5b2f213d3 100644 --- a/lapack-netlib/SRC/zlaqhp.f +++ b/lapack-netlib/SRC/zlaqhp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqp2.f b/lapack-netlib/SRC/zlaqp2.f index e7bb15f9b8..2354b67887 100644 --- a/lapack-netlib/SRC/zlaqp2.f +++ b/lapack-netlib/SRC/zlaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/zlaqps.f b/lapack-netlib/SRC/zlaqps.f index 66c7215175..c2387dba8c 100644 --- a/lapack-netlib/SRC/zlaqps.f +++ b/lapack-netlib/SRC/zlaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -177,10 +175,9 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/zlaqr0.f b/lapack-netlib/SRC/zlaqr0.f index edf01bc7c7..27ad09f5af 100644 --- a/lapack-netlib/SRC/zlaqr0.f +++ b/lapack-netlib/SRC/zlaqr0.f @@ -215,8 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -241,10 +239,9 @@ SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zlaqr1.f b/lapack-netlib/SRC/zlaqr1.f index fc2df3cb46..fdcb377680 100644 --- a/lapack-netlib/SRC/zlaqr1.f +++ b/lapack-netlib/SRC/zlaqr1.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. COMPLEX*16 S1, S2 diff --git a/lapack-netlib/SRC/zlaqr2.f b/lapack-netlib/SRC/zlaqr2.f index b5434e8997..f78ea206dd 100644 --- a/lapack-netlib/SRC/zlaqr2.f +++ b/lapack-netlib/SRC/zlaqr2.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -270,10 +268,9 @@ SUBROUTINE ZLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/zlaqr3.f b/lapack-netlib/SRC/zlaqr3.f index dfb798ca9c..c8e5fe9996 100644 --- a/lapack-netlib/SRC/zlaqr3.f +++ b/lapack-netlib/SRC/zlaqr3.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -267,10 +265,9 @@ SUBROUTINE ZLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ, $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/zlaqr4.f b/lapack-netlib/SRC/zlaqr4.f index 6d083fcda2..ee2ab611cd 100644 --- a/lapack-netlib/SRC/zlaqr4.f +++ b/lapack-netlib/SRC/zlaqr4.f @@ -221,8 +221,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -247,10 +245,9 @@ SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zlaqr5.f b/lapack-netlib/SRC/zlaqr5.f index c12f4b7808..3185508bc0 100644 --- a/lapack-netlib/SRC/zlaqr5.f +++ b/lapack-netlib/SRC/zlaqr5.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -258,10 +256,9 @@ SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S, $ WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/zlaqsb.f b/lapack-netlib/SRC/zlaqsb.f index 3d3912cf8e..2ea0b2f3cc 100644 --- a/lapack-netlib/SRC/zlaqsb.f +++ b/lapack-netlib/SRC/zlaqsb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqsp.f b/lapack-netlib/SRC/zlaqsp.f index 339408fb1a..263be6bd21 100644 --- a/lapack-netlib/SRC/zlaqsp.f +++ b/lapack-netlib/SRC/zlaqsp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqsy.f b/lapack-netlib/SRC/zlaqsy.f index 0118201063..37872b8b26 100644 --- a/lapack-netlib/SRC/zlaqsy.f +++ b/lapack-netlib/SRC/zlaqsy.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqz0.c b/lapack-netlib/SRC/zlaqz0.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/zlaqz0.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b ZLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* INTEGER, INTENT( OUT ) :: INFO +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) +* DOUBLE PRECISION, INTENT( OUT ) :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real matrix pair (A,B): +*> +*> A = Q1*H*Z1**H, B = Q1*T*Z1**H, +*> +*> as computed by ZGGHRD. +*> +*> If JOB='S', then the Hessenberg-triangular pair (H,T) is +*> also reduced to generalized Schur form, +*> +*> H = Q*S*Z**H, T = Q*P*Z**H, +*> +*> where Q and Z are unitary matrices, P and S are an upper triangular +*> matrices. +*> +*> Optionally, the unitary matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> unitary matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the unitary matrices from ZGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the unitary factors from the +*> generalized Schur factorization of (A,B): +*> +*> A = (Q1*Q)*S*(Z1*Z)**H, B = (Q1*Q)*P*(Z1*Z)**H. +*> +*> To avoid overflow, eigenvalues of the matrix pair (H,T) (equivalently, +*> of (A,B)) are computed as a pair of values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an unitary matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an unitary matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX*16 array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = ALPHA(j) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the unitary matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the unitary matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the unitary matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the unitary matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the unitary matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> unitary matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (N) +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHA(i) and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE ZLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHA, BETA, Q, LDQ, Z, + $ LDZ, WORK, LWORK, RWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + INTEGER, INTENT( OUT ) :: INFO + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) + DOUBLE PRECISION, INTENT( OUT ) :: RWORK( * ) + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + DOUBLE PRECISION :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX*16 :: ESHIFT, S1, TEMP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, ZHGEQZ, ZLAQZ2, ZLAQZ3, ZLASET, DLABAD, + $ ZLARTG, ZROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = DBLE( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( DBLE( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL ZHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to ZLAQZ2 + NW = MAX( NWR, NMIN ) + CALL ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHA, + $ BETA, WORK, NW, WORK, NW, WORK, -1, RWORK, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to ZLAQZ3 + CALL ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHA, + $ BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, NBR, + $ WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = DBLE( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL ZLASET( 'FULL', N, N, CZERO, CONE, Q, + $ LDQ ) + IF( IWANTZ.EQ.3 ) CALL ZLASET( 'FULL', N, N, CZERO, CONE, Z, + $ LDZ ) + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 30*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = CZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = CZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = CZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = CZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = CZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMPR = ZERO + IF( K .LT. ISTOP ) THEN + TEMPR = TEMPR+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMPR = TEMPR+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMPR ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL ZLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = CZERO + + CALL ZROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL ZROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL ZROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL ZLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = CZERO + + CALL ZROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL ZROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL ZROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, DCONJG( S1 ) ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL ZLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = CZERO + + CALL ZROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL ZROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL ZROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, DCONJG( S1 ) ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = CZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using qz_small because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHA, BETA, WORK, NW, WORK( NW**2+1 ), NW, + $ WORK( 2*NW**2+1 ), LWORK-2*NW**2, RWORK, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = CZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( DBLE( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+CONE/( SAFMIN*DBLE( MAXIT ) ) + END IF + ALPHA( SHIFTPOS ) = CONE + BETA( SHIFTPOS ) = ESHIFT + NS = 1 + END IF + +* +* Time for a QZ sweep +* + CALL ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHA( SHIFTPOS ), BETA( SHIFTPOS ), A, LDA, B, + $ LDB, Q, LDQ, Z, LDZ, WORK, NBLOCK, WORK( NBLOCK** + $ 2+1 ), NBLOCK, WORK( 2*NBLOCK**2+1 ), + $ LWORK-2*NBLOCK**2, SWEEP_INFO ) + + END DO + +* +* Call ZHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, ZHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL ZHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlaqz1.c b/lapack-netlib/SRC/zlaqz1.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/zlaqz1.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b ZLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* COMPLEX*16 :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ1 chases a 1x1 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1,k),B(k+1,k)). +*> On exit, the bulge is located in +*> (A(k+2,k+1),B(k+2,k+1)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+2,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+3-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+2-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + SUBROUTINE ZLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + COMPLEX*16 :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local variables + DOUBLE PRECISION :: C + COMPLEX*16 :: S, TEMP +* +* External Functions + EXTERNAL :: ZLARTG, ZROT +* + IF( K+1 .EQ. IHI ) THEN +* +* Shift is located on the edge of the matrix, remove it +* + CALL ZLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C, S, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = CZERO + CALL ZROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C, S ) + CALL ZROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C, S ) + IF ( ILZ ) THEN + CALL ZROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C, S ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* +* +* Apply transformation from the right +* + CALL ZLARTG( B( K+1, K+1 ), B( K+1, K ), C, S, TEMP ) + B( K+1, K+1 ) = TEMP + B( K+1, K ) = CZERO + CALL ZROT( K+2-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C, S ) + CALL ZROT( K-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, K ), + $ 1, C, S ) + IF ( ILZ ) THEN + CALL ZROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C, S ) + END IF +* +* Apply transformation from the left +* + CALL ZLARTG( A( K+1, K ), A( K+2, K ), C, S, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = CZERO + CALL ZROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, C, + $ S ) + CALL ZROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, C, + $ S ) + IF ( ILQ ) THEN + CALL ZROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C, DCONJG( S ) ) + END IF +* + END IF +* +* End of ZLAQZ1 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/zlaqz2.c b/lapack-netlib/SRC/zlaqz2.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/zlaqz2.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b ZLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, +* $ WORK, LWORK, RWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* COMPLEX*16 :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* DOUBLE PRECISION :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ2 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX*16 array, dimension (N) +*> The scalars beta that define the eigenvalues of GNEP. +*> Together, the quantities alpha = ALPHA(j) and +*> beta = BETA(j) represent the j-th eigenvalue of the matrix +*> pair (A,B), in one of the forms lambda = alpha/beta or +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX*16 array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX*16 array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, + $ WORK, LWORK, RWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + COMPLEX*16 :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + DOUBLE PRECISION :: RWORK( * ) + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local Scalars + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, ZTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + DOUBLE PRECISION ::SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX*16 :: S, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, ZLAQZ0, ZLAQZ1, DLABAD, ZLACPY, ZLASET, ZGEMM, + $ ZTGEXC, ZLARTG, ZROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = CZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL ZLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK, -1, RWORK, REC+1, QZ_SMALL_INFO ) + LWORKREQ = INT( WORK( 1 ) )+2*JW**2 + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ2', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHA( KWTOP ) = A( KWTOP, KWTOP ) + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = CZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) + CALL ZLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. CZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) +* Try to deflate eigenvalue + TEMPR = ABS( A( KWBOT, KWBOT ) ) + IF( TEMPR .EQ. ZERO ) THEN + TEMPR = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMPR, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL ZTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, ZTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + ALPHA( K ) = A( K, K ) + BETA( K ) = B( K, K ) + K = K+1 + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. CZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 ) *DCONJG( QC( 1, + $ 1:JW-ND ) ) + DO K = KWBOT-1, KWTOP, -1 + CALL ZLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = CZERO + K2 = MAX( KWTOP, K-1 ) + CALL ZROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL ZROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL ZROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, DCONJG( S1 ) ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + +* Move bulge down and remove it + DO K2 = K, KWBOT-1 + CALL ZLAQZ1( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, LDQC, + $ JW, KWTOP, ZC, LDZC ) + END DO + + K = K-1 + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL ZGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, CZERO, WORK, JW ) + CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL ZGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, CZERO, WORK, JW ) + CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, JW, JW, CONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL ZGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL ZLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL ZGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL ZLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, JW, JW, CONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlaqz3.c b/lapack-netlib/SRC/zlaqz3.c new file mode 100644 index 0000000000..d05923a46d --- /dev/null +++ b/lapack-netlib/SRC/zlaqz3.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i \brief \b ZLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), +* $ ALPHA( * ), BETA( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ3 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array. SR contains +*> the alpha parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] BETA +*> \verbatim +*> BETA is COMPLEX*16 array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX*16 array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX*16 array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> If LWORK = -1, then a workspace query is assumed; the routine +*> only calculates the optimal size of the WORK array, returns +*> this value as the first entry of the WORK array, and no error +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + SUBROUTINE ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, + $ LWORK, INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), + $ ALPHA( * ), BETA( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + DOUBLE PRECISION :: SAFMIN, SAFMAX, C, SCALE + COMPLEX*16 :: TEMP, TEMP2, TEMP3, S + +* External Functions + EXTERNAL :: XERBLA, DLABAD, ZLASET, ZLARTG, ZROT, ZLAQZ1, ZGEMM, + $ ZLACPY + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ3', -INFO ) + RETURN + END IF + +* +* Executable statements +* + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + NS = NSHIFTS + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL ZLASET( 'FULL', NS+1, NS+1, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS, NS, CZERO, CONE, ZC, LDZC ) + + DO I = 1, NS +* Introduce the shift + SCALE = SQRT( ABS( ALPHA( I ) ) ) * SQRT( ABS( BETA( I ) ) ) + IF( SCALE .GE. SAFMIN .AND. SCALE .LE. SAFMAX ) THEN + ALPHA( I ) = ALPHA( I )/SCALE + BETA( I ) = BETA( I )/SCALE + END IF + + TEMP2 = BETA( I )*A( ILO, ILO )-ALPHA( I )*B( ILO, ILO ) + TEMP3 = BETA( I )*A( ILO+1, ILO ) + + IF ( ABS( TEMP2 ) .GT. SAFMAX .OR. + $ ABS( TEMP3 ) .GT. SAFMAX ) THEN + TEMP2 = CONE + TEMP3 = CZERO + END IF + + CALL ZLARTG( TEMP2, TEMP3, C, S, TEMP ) + CALL ZROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C, + $ S ) + CALL ZROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C, + $ S ) + CALL ZROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C, + $ DCONJG( S ) ) + +* Chase the shift down + DO J = 1, NS-I + + CALL ZLAQZ1( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, CONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, ILO ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, ILO ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, SWIDTH, SWIDTH, CONE, Z( 1, ILO ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL ZLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -1 + DO J = 0, NP-1 +* Move down the block with index k+i+j, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL ZLAQZ1( .TRUE., .TRUE., K+I+J, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Z( 1, K ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL ZLASET( 'FULL', NS, NS, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS+1, NS+1, CZERO, CONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I, IHI-1 + CALL ZLAQZ1( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, NS, NS, CONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, IHI-NS ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, IHI-NS ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, NS+1, NS+1, CONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlar1v.f b/lapack-netlib/SRC/zlar1v.f index bb3a66eb8c..e272c33a51 100644 --- a/lapack-netlib/SRC/zlar1v.f +++ b/lapack-netlib/SRC/zlar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ SUBROUTINE ZLAR1V( N, B1, BN, LAMBDA, D, L, LD, LLD, $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/zlar2v.f b/lapack-netlib/SRC/zlar2v.f index 0f7fe63b02..3d767956c2 100644 --- a/lapack-netlib/SRC/zlar2v.f +++ b/lapack-netlib/SRC/zlar2v.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/zlarcm.f b/lapack-netlib/SRC/zlarcm.f index 77a709f474..4445d6d483 100644 --- a/lapack-netlib/SRC/zlarcm.f +++ b/lapack-netlib/SRC/zlarcm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/zlarf.f b/lapack-netlib/SRC/zlarf.f index f1be80d37b..e555d18ecd 100644 --- a/lapack-netlib/SRC/zlarf.f +++ b/lapack-netlib/SRC/zlarf.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarfb.f b/lapack-netlib/SRC/zlarfb.f index 3da49f2fce..c5f424db31 100644 --- a/lapack-netlib/SRC/zlarfb.f +++ b/lapack-netlib/SRC/zlarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/zlarfg.f b/lapack-netlib/SRC/zlarfg.f index 081d391d74..d69796cadc 100644 --- a/lapack-netlib/SRC/zlarfg.f +++ b/lapack-netlib/SRC/zlarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zlarfgp.f b/lapack-netlib/SRC/zlarfgp.f index c9e55a5a08..77eba8e869 100644 --- a/lapack-netlib/SRC/zlarfgp.f +++ b/lapack-netlib/SRC/zlarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N @@ -238,7 +235,7 @@ SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO - BETA = -SAVEALPHA + BETA = DBLE( -SAVEALPHA ) END IF ELSE XNORM = DLAPY2( ALPHR, ALPHI ) diff --git a/lapack-netlib/SRC/zlarft.f b/lapack-netlib/SRC/zlarft.f index 78ad2f1481..5ad0996fab 100644 --- a/lapack-netlib/SRC/zlarft.f +++ b/lapack-netlib/SRC/zlarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/zlarfx.f b/lapack-netlib/SRC/zlarfx.f index ba6d4ed74e..c617fe552b 100644 --- a/lapack-netlib/SRC/zlarfx.f +++ b/lapack-netlib/SRC/zlarfx.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarfy.f b/lapack-netlib/SRC/zlarfy.f index 4c9e08baca..23169e97d9 100644 --- a/lapack-netlib/SRC/zlarfy.f +++ b/lapack-netlib/SRC/zlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlargv.f b/lapack-netlib/SRC/zlargv.f index f83ca18512..1eef6b716c 100644 --- a/lapack-netlib/SRC/zlargv.f +++ b/lapack-netlib/SRC/zlargv.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -122,10 +120,9 @@ * ===================================================================== SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/zlarnv.f b/lapack-netlib/SRC/zlarnv.f index 7541652289..d82d404ded 100644 --- a/lapack-netlib/SRC/zlarnv.f +++ b/lapack-netlib/SRC/zlarnv.f @@ -81,8 +81,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -99,10 +97,9 @@ * ===================================================================== SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -120,7 +117,7 @@ SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) INTEGER LV PARAMETER ( LV = 128 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IV diff --git a/lapack-netlib/SRC/zlarrv.f b/lapack-netlib/SRC/zlarrv.f index 8d10e3c2e3..e4be63e0db 100644 --- a/lapack-netlib/SRC/zlarrv.f +++ b/lapack-netlib/SRC/zlarrv.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -286,10 +284,9 @@ SUBROUTINE ZLARRV( N, VL, VU, D, L, PIVMIN, $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/zlarscl2.f b/lapack-netlib/SRC/zlarscl2.f index 0d7cb1e887..4a1e1603a4 100644 --- a/lapack-netlib/SRC/zlarscl2.f +++ b/lapack-netlib/SRC/zlarscl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/zlartg.f b/lapack-netlib/SRC/zlartg.f deleted file mode 100644 index 894b4ded02..0000000000 --- a/lapack-netlib/SRC/zlartg.f +++ /dev/null @@ -1,250 +0,0 @@ -*> \brief \b ZLARTG generates a plane rotation with real cosine and complex sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download ZLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* DOUBLE PRECISION CS -* COMPLEX*16 F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> ZLARTG generates a plane rotation so that -*> -*> [ CS SN ] [ F ] [ R ] -*> [ __ ] . [ ] = [ ] where CS**2 + |SN|**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a faster version of the BLAS1 routine ZROTG, except for -*> the following differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0, then CS=0 and SN is chosen so that R is real. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is COMPLEX*16 -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is COMPLEX*16 -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is DOUBLE PRECISION -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is COMPLEX*16 -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is COMPLEX*16 -*> The nonzero component of the rotated vector. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complex16OTHERauxiliary -* -*> \par Further Details: -* ===================== -*> -*> \verbatim -*> -*> 3-5-96 - Modified with a new algorithm by W. Kahan and J. Demmel -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -*> -* ===================================================================== - SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - DOUBLE PRECISION CS - COMPLEX*16 F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION TWO, ONE, ZERO - PARAMETER ( TWO = 2.0D+0, ONE = 1.0D+0, ZERO = 0.0D+0 ) - COMPLEX*16 CZERO - PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - DOUBLE PRECISION D, DI, DR, EPS, F2, F2S, G2, G2S, SAFMIN, - $ SAFMN2, SAFMX2, SCALE - COMPLEX*16 FF, FS, GS -* .. -* .. External Functions .. - DOUBLE PRECISION DLAMCH, DLAPY2 - LOGICAL DISNAN - EXTERNAL DLAMCH, DLAPY2, DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DCMPLX, DCONJG, DIMAG, INT, LOG, - $ MAX, SQRT -* .. -* .. Statement Functions .. - DOUBLE PRECISION ABS1, ABSSQ -* .. -* .. Statement Function definitions .. - ABS1( FF ) = MAX( ABS( DBLE( FF ) ), ABS( DIMAG( FF ) ) ) - ABSSQ( FF ) = DBLE( FF )**2 + DIMAG( FF )**2 -* .. -* .. Executable Statements .. -* - SAFMIN = DLAMCH( 'S' ) - EPS = DLAMCH( 'E' ) - SAFMN2 = DLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( DLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 - SCALE = MAX( ABS1( F ), ABS1( G ) ) - FS = F - GS = G - COUNT = 0 - IF( SCALE.GE.SAFMX2 ) THEN - 10 CONTINUE - COUNT = COUNT + 1 - FS = FS*SAFMN2 - GS = GS*SAFMN2 - SCALE = SCALE*SAFMN2 - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 ) - $ GO TO 10 - ELSE IF( SCALE.LE.SAFMN2 ) THEN - IF( G.EQ.CZERO.OR.DISNAN( ABS( G ) ) ) THEN - CS = ONE - SN = CZERO - R = F - RETURN - END IF - 20 CONTINUE - COUNT = COUNT - 1 - FS = FS*SAFMX2 - GS = GS*SAFMX2 - SCALE = SCALE*SAFMX2 - IF( SCALE.LE.SAFMN2 ) - $ GO TO 20 - END IF - F2 = ABSSQ( FS ) - G2 = ABSSQ( GS ) - IF( F2.LE.MAX( G2, ONE )*SAFMIN ) THEN -* -* This is a rare case: F is very small. -* - IF( F.EQ.CZERO ) THEN - CS = ZERO - R = DLAPY2( DBLE( G ), DIMAG( G ) ) -* Do complex/real division explicitly with two real divisions - D = DLAPY2( DBLE( GS ), DIMAG( GS ) ) - SN = DCMPLX( DBLE( GS ) / D, -DIMAG( GS ) / D ) - RETURN - END IF - F2S = DLAPY2( DBLE( FS ), DIMAG( FS ) ) -* G2 and G2S are accurate -* G2 is at least SAFMIN, and G2S is at least SAFMN2 - G2S = SQRT( G2 ) -* Error in CS from underflow in F2S is at most -* UNFL / SAFMN2 .lt. sqrt(UNFL*EPS) .lt. EPS -* If MAX(G2,ONE)=G2, then F2 .lt. G2*SAFMIN, -* and so CS .lt. sqrt(SAFMIN) -* If MAX(G2,ONE)=ONE, then F2 .lt. SAFMIN -* and so CS .lt. sqrt(SAFMIN)/SAFMN2 = sqrt(EPS) -* Therefore, CS = F2S/G2S / sqrt( 1 + (F2S/G2S)**2 ) = F2S/G2S - CS = F2S / G2S -* Make sure abs(FF) = 1 -* Do complex/real division explicitly with 2 real divisions - IF( ABS1( F ).GT.ONE ) THEN - D = DLAPY2( DBLE( F ), DIMAG( F ) ) - FF = DCMPLX( DBLE( F ) / D, DIMAG( F ) / D ) - ELSE - DR = SAFMX2*DBLE( F ) - DI = SAFMX2*DIMAG( F ) - D = DLAPY2( DR, DI ) - FF = DCMPLX( DR / D, DI / D ) - END IF - SN = FF*DCMPLX( DBLE( GS ) / G2S, -DIMAG( GS ) / G2S ) - R = CS*F + SN*G - ELSE -* -* This is the most common case. -* Neither F2 nor F2/G2 are less than SAFMIN -* F2S cannot overflow, and it is accurate -* - F2S = SQRT( ONE+G2 / F2 ) -* Do the F2S(real)*FS(complex) multiply with two real multiplies - R = DCMPLX( F2S*DBLE( FS ), F2S*DIMAG( FS ) ) - CS = ONE / F2S - D = F2 + G2 -* Do complex/real division explicitly with two real divisions - SN = DCMPLX( DBLE( R ) / D, DIMAG( R ) / D ) - SN = SN*DCONJG( GS ) - IF( COUNT.NE.0 ) THEN - IF( COUNT.GT.0 ) THEN - DO 30 I = 1, COUNT - R = R*SAFMX2 - 30 CONTINUE - ELSE - DO 40 I = 1, -COUNT - R = R*SAFMN2 - 40 CONTINUE - END IF - END IF - END IF - RETURN -* -* End of ZLARTG -* - END diff --git a/lapack-netlib/SRC/zlartg.f90 b/lapack-netlib/SRC/zlartg.f90 new file mode 100644 index 0000000000..337a4dda85 --- /dev/null +++ b/lapack-netlib/SRC/zlartg.f90 @@ -0,0 +1,233 @@ +!> \brief \b ZLARTG generates a plane rotation with real cosine and complex sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE ZLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C +! COMPLEX(wp) F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> ZLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -conjg(S) C ] [ G ] [ 0 ] +!> +!> where C is real and C**2 + |S|**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> +!> sgn(x) = { x / |x|, x != 0 +!> { 1, x = 0 +!> +!> R = sgn(F) * sqrt(|F|**2 + |G|**2) +!> +!> C = |F| / sqrt(|F|**2 + |G|**2) +!> +!> S = sgn(F) * conjg(G) / sqrt(|F|**2 + |G|**2) +!> +!> When F and G are real, the formulas simplify to C = F/R and +!> S = G/R, and the returned values of C, S, and R should be +!> identical to those returned by DLARTG. +!> +!> The algorithm used to compute these quantities incorporates scaling +!> to avoid overflow or underflow in computing the square root of the +!> sum of squares. +!> +!> This is a faster version of the BLAS1 routine ZROTG, except for +!> the following differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0, then C=0 and S is chosen so that R is real. +!> +!> Below, wp=>dp stands for double precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is COMPLEX(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is COMPLEX(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is COMPLEX(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is COMPLEX(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date August 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine ZLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, two=>dtwo, czero=>zzero, & + rtmin=>drtmin, rtmax=>drtmax, safmin=>dsafmin, safmax=>dsafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) c + complex(wp) f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, f2, g1, g2, h2, p, u, uu, v, vv, w + complex(wp) :: fs, gs, t +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, aimag, conjg, max, min, real, sqrt +! .. +! .. Statement Functions .. + real(wp) :: ABSSQ +! .. +! .. Statement Function definitions .. + ABSSQ( t ) = real( t )**2 + aimag( t )**2 +! .. +! .. Executable Statements .. +! + if( g == czero ) then + c = one + s = czero + r = f + else if( f == czero ) then + c = zero + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + g2 = ABSSQ( g ) + d = sqrt( g2 ) + s = conjg( g ) / d + r = d + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + d = sqrt( g2 ) + s = conjg( gs ) / d + r = d*u + end if + else + f1 = max( abs(real(f)), abs(aimag(f)) ) + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + f2 = ABSSQ( f ) + g2 = ABSSQ( g ) + h2 = f2 + g2 + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = f2*p + s = conjg( g )*( f*p ) + r = f*( h2*p ) + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + if( f1*uu < rtmin ) then +! +! f is not well-scaled when scaled by g1. +! Use a different scaling for f. +! + v = min( safmax, max( safmin, f1 ) ) + vv = one / v + w = v * uu + fs = f*vv + f2 = ABSSQ( fs ) + h2 = f2*w**2 + g2 + else +! +! Otherwise use the same scaling for f and g. +! + w = one + fs = f*uu + f2 = ABSSQ( fs ) + h2 = f2 + g2 + end if + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = ( f2*p )*w + s = conjg( gs )*( fs*p ) + r = ( fs*( h2*p ) )*u + end if + end if + return +end subroutine diff --git a/lapack-netlib/SRC/zlartv.f b/lapack-netlib/SRC/zlartv.f index d6c7ee7422..02f5b0d76f 100644 --- a/lapack-netlib/SRC/zlartv.f +++ b/lapack-netlib/SRC/zlartv.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/zlarz.f b/lapack-netlib/SRC/zlarz.f index 5c28cee281..3cfcd66255 100644 --- a/lapack-netlib/SRC/zlarz.f +++ b/lapack-netlib/SRC/zlarz.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ * ===================================================================== SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarzb.f b/lapack-netlib/SRC/zlarzb.f index e27c7e0dfc..15c809d28b 100644 --- a/lapack-netlib/SRC/zlarzb.f +++ b/lapack-netlib/SRC/zlarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/zlarzt.f b/lapack-netlib/SRC/zlarzt.f index ccd8c4b841..25d1e96f06 100644 --- a/lapack-netlib/SRC/zlarzt.f +++ b/lapack-netlib/SRC/zlarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/zlascl.f b/lapack-netlib/SRC/zlascl.f index c53c6f5ad7..3d53f5ae60 100644 --- a/lapack-netlib/SRC/zlascl.f +++ b/lapack-netlib/SRC/zlascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/zlascl2.f b/lapack-netlib/SRC/zlascl2.f index e1a0f97b91..c4e6992fbe 100644 --- a/lapack-netlib/SRC/zlascl2.f +++ b/lapack-netlib/SRC/zlascl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/zlaset.f b/lapack-netlib/SRC/zlaset.f index 796678217b..00f5f595fc 100644 --- a/lapack-netlib/SRC/zlaset.f +++ b/lapack-netlib/SRC/zlaset.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasr.f b/lapack-netlib/SRC/zlasr.f index 69891ba522..07c91329c4 100644 --- a/lapack-netlib/SRC/zlasr.f +++ b/lapack-netlib/SRC/zlasr.f @@ -193,17 +193,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/zlassq.f b/lapack-netlib/SRC/zlassq.f deleted file mode 100644 index dccec988d0..0000000000 --- a/lapack-netlib/SRC/zlassq.f +++ /dev/null @@ -1,168 +0,0 @@ -*> \brief \b ZLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download ZLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. -* COMPLEX*16 X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> ZLASSQ returns the values scl and ssq such that -*> -*> ( scl**2 )*ssq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is -*> assumed to be at least unity and the value of ssq will then satisfy -*> -*> 1.0 <= ssq <= ( sumsq + 2*n ). -*> -*> scale is assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( real( x( i ) ) ), abs( aimag( x( i ) ) ) ), -*> i -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ respectively. -*> SCALE and SUMSQ are overwritten by scl and ssq respectively. -*> -*> The routine makes only one pass through the vector X. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is COMPLEX*16 array, dimension (1+(N-1)*INCX) -*> The vector x as described above. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is DOUBLE PRECISION -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with the value scl . -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is DOUBLE PRECISION -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with the value ssq . -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complex16OTHERauxiliary -* -* ===================================================================== - SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. - COMPLEX*16 X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - DOUBLE PRECISION TEMP1 -* .. -* .. External Functions .. - LOGICAL DISNAN - EXTERNAL DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DIMAG -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - TEMP1 = ABS( DBLE( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.DISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - TEMP1 = ABS( DIMAG( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.DISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF -* - RETURN -* -* End of ZLASSQ -* - END diff --git a/lapack-netlib/SRC/zlassq.f90 b/lapack-netlib/SRC/zlassq.f90 new file mode 100644 index 0000000000..9346dacac9 --- /dev/null +++ b/lapack-netlib/SRC/zlassq.f90 @@ -0,0 +1,262 @@ +!> \brief \b ZLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download ZLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! DOUBLE PRECISION SCALE, SUMSQ +! .. +! .. Array Arguments .. +! DOUBLE COMPLEX X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> ZLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is DOUBLE COMPLEX array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is DOUBLE PRECISION +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is DOUBLE PRECISION +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine ZLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, & + sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + complex(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(real(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ax = abs(aimag(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/zlaswlq.f b/lapack-netlib/SRC/zlaswlq.f index 9906309254..e4e7033430 100644 --- a/lapack-netlib/SRC/zlaswlq.f +++ b/lapack-netlib/SRC/zlaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/zlaswp.f b/lapack-netlib/SRC/zlaswp.f index 13c0f9b451..13fa864905 100644 --- a/lapack-netlib/SRC/zlaswp.f +++ b/lapack-netlib/SRC/zlaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/zlasyf.f b/lapack-netlib/SRC/zlasyf.f index b0f48fbbc9..57f236d1bd 100644 --- a/lapack-netlib/SRC/zlasyf.f +++ b/lapack-netlib/SRC/zlasyf.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasyf_aa.f b/lapack-netlib/SRC/zlasyf_aa.f index b1f1c27907..b8b5f27607 100644 --- a/lapack-netlib/SRC/zlasyf_aa.f +++ b/lapack-netlib/SRC/zlasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zlasyf_rk.f b/lapack-netlib/SRC/zlasyf_rk.f index b6c5a27c62..ead0ab0af7 100644 --- a/lapack-netlib/SRC/zlasyf_rk.f +++ b/lapack-netlib/SRC/zlasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE ZLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasyf_rook.f b/lapack-netlib/SRC/zlasyf_rook.f index 108c03e6bf..7a9872c7c6 100644 --- a/lapack-netlib/SRC/zlasyf_rook.f +++ b/lapack-netlib/SRC/zlasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE ZLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlat2c.f b/lapack-netlib/SRC/zlat2c.f index dad8fa8047..1d607dcea1 100644 --- a/lapack-netlib/SRC/zlat2c.f +++ b/lapack-netlib/SRC/zlat2c.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlatbs.f b/lapack-netlib/SRC/zlatbs.f index c9d672a348..b7b2cb8aec 100644 --- a/lapack-netlib/SRC/zlatbs.f +++ b/lapack-netlib/SRC/zlatbs.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -243,10 +241,9 @@ SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatdf.f b/lapack-netlib/SRC/zlatdf.f index 4b8b5e3304..25e71edced 100644 --- a/lapack-netlib/SRC/zlatdf.f +++ b/lapack-netlib/SRC/zlatdf.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -169,10 +167,9 @@ SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/zlatps.f b/lapack-netlib/SRC/zlatps.f index ac148cab00..b22e42f6c1 100644 --- a/lapack-netlib/SRC/zlatps.f +++ b/lapack-netlib/SRC/zlatps.f @@ -151,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -231,10 +229,9 @@ SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatrd.f b/lapack-netlib/SRC/zlatrd.f index ccc040993f..ee2a484723 100644 --- a/lapack-netlib/SRC/zlatrd.f +++ b/lapack-netlib/SRC/zlatrd.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -271,7 +268,7 @@ SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * ALPHA = A( I-1, I ) CALL ZLARFG( I-1, ALPHA, A( 1, I ), 1, TAU( I-1 ) ) - E( I-1 ) = ALPHA + E( I-1 ) = DBLE( ALPHA ) A( I-1, I ) = ONE * * Compute W(1:i-1,i) @@ -325,7 +322,7 @@ SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) ALPHA = A( I+1, I ) CALL ZLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, $ TAU( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Compute W(i+1:n,i) diff --git a/lapack-netlib/SRC/zlatrs.f b/lapack-netlib/SRC/zlatrs.f index f06ac4ad07..91bb688ece 100644 --- a/lapack-netlib/SRC/zlatrs.f +++ b/lapack-netlib/SRC/zlatrs.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -239,10 +237,9 @@ SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatrz.f b/lapack-netlib/SRC/zlatrz.f index 5d415fe76a..6fe2138170 100644 --- a/lapack-netlib/SRC/zlatrz.f +++ b/lapack-netlib/SRC/zlatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/zlatsqr.f b/lapack-netlib/SRC/zlatsqr.f index 0f98cae930..ffdbc68c0c 100644 --- a/lapack-netlib/SRC/zlatsqr.f +++ b/lapack-netlib/SRC/zlatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp.f b/lapack-netlib/SRC/zlaunhr_col_getrfnp.f index 0ab7f0349b..c40599a42e 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.f +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE ZLAUNHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f index 0057e430d1..fe67f1fc85 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> ZLAUNHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine ZLAUNHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, ZLAUNHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, ZLAUNHR_COL_GETRFNP2 *> is self-sufficient and can be used without ZLAUNHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE ZLAUNHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zlauu2.f b/lapack-netlib/SRC/zlauu2.f index 3e3623f2d3..7d7faebdf5 100644 --- a/lapack-netlib/SRC/zlauu2.f +++ b/lapack-netlib/SRC/zlauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -165,7 +162,7 @@ SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * Compute the product U * U**H. * DO 10 I = 1, N - AII = A( I, I ) + AII = DBLE( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + DBLE( ZDOTC( N-I, A( I, I+1 ), LDA, $ A( I, I+1 ), LDA ) ) @@ -184,7 +181,7 @@ SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * Compute the product L**H * L. * DO 20 I = 1, N - AII = A( I, I ) + AII = DBLE( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + DBLE( ZDOTC( N-I, A( I+1, I ), 1, $ A( I+1, I ), 1 ) ) diff --git a/lapack-netlib/SRC/zlauum.f b/lapack-netlib/SRC/zlauum.f index 5afadda098..af36aa92df 100644 --- a/lapack-netlib/SRC/zlauum.f +++ b/lapack-netlib/SRC/zlauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbcon.f b/lapack-netlib/SRC/zpbcon.f index debbcae6f2..35fa50aabc 100644 --- a/lapack-netlib/SRC/zpbcon.f +++ b/lapack-netlib/SRC/zpbcon.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbequ.f b/lapack-netlib/SRC/zpbequ.f index d05fd82d8f..3d4b84a96e 100644 --- a/lapack-netlib/SRC/zpbequ.f +++ b/lapack-netlib/SRC/zpbequ.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbrfs.f b/lapack-netlib/SRC/zpbrfs.f index 4e62245380..4c343ed3a6 100644 --- a/lapack-netlib/SRC/zpbrfs.f +++ b/lapack-netlib/SRC/zpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbstf.f b/lapack-netlib/SRC/zpbstf.f index b4482103e8..1b3bb147b8 100644 --- a/lapack-netlib/SRC/zpbstf.f +++ b/lapack-netlib/SRC/zpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE ZPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbsv.f b/lapack-netlib/SRC/zpbsv.f index 4daf6b3e40..fe6baf8b51 100644 --- a/lapack-netlib/SRC/zpbsv.f +++ b/lapack-netlib/SRC/zpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbsvx.f b/lapack-netlib/SRC/zpbsvx.f index bff6f3615f..1efd2fd1ec 100644 --- a/lapack-netlib/SRC/zpbsvx.f +++ b/lapack-netlib/SRC/zpbsvx.f @@ -301,8 +301,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -342,10 +340,9 @@ SUBROUTINE ZPBSVX( FACT, UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpbtf2.f b/lapack-netlib/SRC/zpbtf2.f index b39f1de81f..7b90af47e7 100644 --- a/lapack-netlib/SRC/zpbtf2.f +++ b/lapack-netlib/SRC/zpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbtrf.f b/lapack-netlib/SRC/zpbtrf.f index 0eee3b6bdf..61cd1d4345 100644 --- a/lapack-netlib/SRC/zpbtrf.f +++ b/lapack-netlib/SRC/zpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbtrs.f b/lapack-netlib/SRC/zpbtrs.f index a5a3db0846..d9d74b70d1 100644 --- a/lapack-netlib/SRC/zpbtrs.f +++ b/lapack-netlib/SRC/zpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpftrf.f b/lapack-netlib/SRC/zpftrf.f index fd303300f3..6d18f2cb32 100644 --- a/lapack-netlib/SRC/zpftrf.f +++ b/lapack-netlib/SRC/zpftrf.f @@ -204,17 +204,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpftri.f b/lapack-netlib/SRC/zpftri.f index e63846b00d..7ebf737694 100644 --- a/lapack-netlib/SRC/zpftri.f +++ b/lapack-netlib/SRC/zpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpftrs.f b/lapack-netlib/SRC/zpftrs.f index b045f89883..c63592f57a 100644 --- a/lapack-netlib/SRC/zpftrs.f +++ b/lapack-netlib/SRC/zpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -220,10 +218,9 @@ * ===================================================================== SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpocon.f b/lapack-netlib/SRC/zpocon.f index ba22de0955..dcfc6f64c7 100644 --- a/lapack-netlib/SRC/zpocon.f +++ b/lapack-netlib/SRC/zpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpoequ.f b/lapack-netlib/SRC/zpoequ.f index 99b94f3ba1..9435bd08f4 100644 --- a/lapack-netlib/SRC/zpoequ.f +++ b/lapack-netlib/SRC/zpoequ.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/zpoequb.f b/lapack-netlib/SRC/zpoequb.f index 6902bdb78d..fd8a000b2a 100644 --- a/lapack-netlib/SRC/zpoequb.f +++ b/lapack-netlib/SRC/zpoequb.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -183,11 +180,11 @@ SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * * Find the minimum and maximum diagonal elements. * - S( 1 ) = A( 1, 1 ) + S( 1 ) = DBLE( A( 1, 1 ) ) SMIN = S( 1 ) AMAX = S( 1 ) DO 10 I = 2, N - S( I ) = A( I, I ) + S( I ) = DBLE( A( I, I ) ) SMIN = MIN( SMIN, S( I ) ) AMAX = MAX( AMAX, S( I ) ) 10 CONTINUE diff --git a/lapack-netlib/SRC/zporfs.f b/lapack-netlib/SRC/zporfs.f index 3b9753e0fd..96c6546665 100644 --- a/lapack-netlib/SRC/zporfs.f +++ b/lapack-netlib/SRC/zporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zporfsx.f b/lapack-netlib/SRC/zporfsx.f index bbff4331e2..ce43103eb7 100644 --- a/lapack-netlib/SRC/zporfsx.f +++ b/lapack-netlib/SRC/zporfsx.f @@ -122,7 +122,7 @@ *> \verbatim *> AF is COMPLEX*16 array, dimension (LDAF,N) *> The triangular factor U or L from the Cholesky factorization -*> A = U**T*U or A = L*L**T, as computed by DPOTRF. +*> A = U**H*U or A = L*L**H, as computed by ZPOTRF. *> \endverbatim *> *> \param[in] LDAF @@ -162,7 +162,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -393,10 +391,9 @@ SUBROUTINE ZPORFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, S, B, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zposv.f b/lapack-netlib/SRC/zposv.f index 07ee5b14ea..3bb625876f 100644 --- a/lapack-netlib/SRC/zposv.f +++ b/lapack-netlib/SRC/zposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POsolve * * ===================================================================== SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zposvx.f b/lapack-netlib/SRC/zposvx.f index 5f67bb80a2..f9e9b1d5fd 100644 --- a/lapack-netlib/SRC/zposvx.f +++ b/lapack-netlib/SRC/zposvx.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POsolve * * ===================================================================== @@ -306,10 +304,9 @@ SUBROUTINE ZPOSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zposvxx.f b/lapack-netlib/SRC/zposvxx.f index 913d16cb2d..6735fab718 100644 --- a/lapack-netlib/SRC/zposvxx.f +++ b/lapack-netlib/SRC/zposvxx.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POsolve * * ===================================================================== @@ -493,10 +491,9 @@ SUBROUTINE ZPOSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, EQUED, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpotf2.f b/lapack-netlib/SRC/zpotf2.f index 0aa457fbfa..eb88d617cc 100644 --- a/lapack-netlib/SRC/zpotf2.f +++ b/lapack-netlib/SRC/zpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -177,8 +174,8 @@ SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( A( J, J ) ) - ZDOTC( J-1, A( 1, J ), 1, - $ A( 1, J ), 1 ) + AJJ = DBLE( A( J, J ) ) - DBLE( ZDOTC( J-1, A( 1, J ), 1, + $ A( 1, J ), 1 ) ) IF( AJJ.LE.ZERO.OR.DISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 @@ -204,8 +201,8 @@ SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * * Compute L(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( A( J, J ) ) - ZDOTC( J-1, A( J, 1 ), LDA, - $ A( J, 1 ), LDA ) + AJJ = DBLE( A( J, J ) ) - DBLE( ZDOTC( J-1, A( J, 1 ), LDA, + $ A( J, 1 ), LDA ) ) IF( AJJ.LE.ZERO.OR.DISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/zpotrf.f b/lapack-netlib/SRC/zpotrf.f index 044cb90d7e..3b7018276b 100644 --- a/lapack-netlib/SRC/zpotrf.f +++ b/lapack-netlib/SRC/zpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotrf2.f b/lapack-netlib/SRC/zpotrf2.f index 85c434d477..859ddc75f2 100644 --- a/lapack-netlib/SRC/zpotrf2.f +++ b/lapack-netlib/SRC/zpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotri.f b/lapack-netlib/SRC/zpotri.f index 68f61e87eb..8c94eadc2f 100644 --- a/lapack-netlib/SRC/zpotri.f +++ b/lapack-netlib/SRC/zpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotrs.f b/lapack-netlib/SRC/zpotrs.f index b476bcb9d3..78a1c32738 100644 --- a/lapack-netlib/SRC/zpotrs.f +++ b/lapack-netlib/SRC/zpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppcon.f b/lapack-netlib/SRC/zppcon.f index 44d32e044c..c569a497b9 100644 --- a/lapack-netlib/SRC/zppcon.f +++ b/lapack-netlib/SRC/zppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppequ.f b/lapack-netlib/SRC/zppequ.f index 424e338f6d..e2159e0f03 100644 --- a/lapack-netlib/SRC/zppequ.f +++ b/lapack-netlib/SRC/zppequ.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpprfs.f b/lapack-netlib/SRC/zpprfs.f index ae6a76ead8..769a6a0c08 100644 --- a/lapack-netlib/SRC/zpprfs.f +++ b/lapack-netlib/SRC/zpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppsv.f b/lapack-netlib/SRC/zppsv.f index 49b2e0be12..19536e204c 100644 --- a/lapack-netlib/SRC/zppsv.f +++ b/lapack-netlib/SRC/zppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppsvx.f b/lapack-netlib/SRC/zppsvx.f index d527748383..f94badf783 100644 --- a/lapack-netlib/SRC/zppsvx.f +++ b/lapack-netlib/SRC/zppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpptrf.f b/lapack-netlib/SRC/zpptrf.f index 6e50b46828..a34d639131 100644 --- a/lapack-netlib/SRC/zpptrf.f +++ b/lapack-netlib/SRC/zpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -192,8 +189,8 @@ SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( AP( JJ ) ) - ZDOTC( J-1, AP( JC ), 1, AP( JC ), - $ 1 ) + AJJ = DBLE( AP( JJ ) ) - DBLE( ZDOTC( J-1, + $ AP( JC ), 1, AP( JC ), 1 ) ) IF( AJJ.LE.ZERO ) THEN AP( JJ ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/zpptri.f b/lapack-netlib/SRC/zpptri.f index cde2f6dc72..a74466eb80 100644 --- a/lapack-netlib/SRC/zpptri.f +++ b/lapack-netlib/SRC/zpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -164,7 +161,7 @@ SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) JJ = JJ + J IF( J.GT.1 ) $ CALL ZHPR( 'Upper', J-1, ONE, AP( JC ), 1, AP ) - AJJ = AP( JJ ) + AJJ = DBLE( AP( JJ ) ) CALL ZDSCAL( J, AJJ, AP( JC ), 1 ) 10 CONTINUE * diff --git a/lapack-netlib/SRC/zpptrs.f b/lapack-netlib/SRC/zpptrs.f index 4856134907..433213d5ab 100644 --- a/lapack-netlib/SRC/zpptrs.f +++ b/lapack-netlib/SRC/zpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpstf2.f b/lapack-netlib/SRC/zpstf2.f index 696d83f293..ef2536bd6c 100644 --- a/lapack-netlib/SRC/zpstf2.f +++ b/lapack-netlib/SRC/zpstf2.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/zpstrf.f b/lapack-netlib/SRC/zpstrf.f index 2a2937c5d8..577934d2c8 100644 --- a/lapack-netlib/SRC/zpstrf.f +++ b/lapack-netlib/SRC/zpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/zptcon.f b/lapack-netlib/SRC/zptcon.f index d2b560f91d..122a091983 100644 --- a/lapack-netlib/SRC/zptcon.f +++ b/lapack-netlib/SRC/zptcon.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zpteqr.f b/lapack-netlib/SRC/zpteqr.f index 0b443e18f7..a81a6ad942 100644 --- a/lapack-netlib/SRC/zpteqr.f +++ b/lapack-netlib/SRC/zpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zptrfs.f b/lapack-netlib/SRC/zptrfs.f index f12ac3150a..43e14d585b 100644 --- a/lapack-netlib/SRC/zptrfs.f +++ b/lapack-netlib/SRC/zptrfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zptsv.f b/lapack-netlib/SRC/zptsv.f index 4ae2fcfbd5..d53e17a340 100644 --- a/lapack-netlib/SRC/zptsv.f +++ b/lapack-netlib/SRC/zptsv.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTsolve * * ===================================================================== SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zptsvx.f b/lapack-netlib/SRC/zptsvx.f index 085fb2e571..4a40768f1a 100644 --- a/lapack-netlib/SRC/zptsvx.f +++ b/lapack-netlib/SRC/zptsvx.f @@ -226,18 +226,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTsolve * * ===================================================================== SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/zpttrf.f b/lapack-netlib/SRC/zpttrf.f index d46a1c3b32..a106ec4193 100644 --- a/lapack-netlib/SRC/zpttrf.f +++ b/lapack-netlib/SRC/zpttrf.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zpttrs.f b/lapack-netlib/SRC/zpttrs.f index 146a8e222d..41c7c9ba7c 100644 --- a/lapack-netlib/SRC/zpttrs.f +++ b/lapack-netlib/SRC/zpttrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zptts2.f b/lapack-netlib/SRC/zptts2.f index 0d40d03d3c..8ff6b1fe75 100644 --- a/lapack-netlib/SRC/zptts2.f +++ b/lapack-netlib/SRC/zptts2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zrot.f b/lapack-netlib/SRC/zrot.f index f372df0880..28fc8ec1de 100644 --- a/lapack-netlib/SRC/zrot.f +++ b/lapack-netlib/SRC/zrot.f @@ -58,7 +58,7 @@ *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of CY. INCX <> 0. +*> The increment between successive values of CX. INCX <> 0. *> \endverbatim *> *> \param[in,out] CY @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zspcon.f b/lapack-netlib/SRC/zspcon.f index eae8f9eb99..fa497bd05d 100644 --- a/lapack-netlib/SRC/zspcon.f +++ b/lapack-netlib/SRC/zspcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspmv.f b/lapack-netlib/SRC/zspmv.f index 94428010fd..8a8d3a9d0f 100644 --- a/lapack-netlib/SRC/zspmv.f +++ b/lapack-netlib/SRC/zspmv.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspr.f b/lapack-netlib/SRC/zspr.f index f91a99a32d..549415fa3b 100644 --- a/lapack-netlib/SRC/zspr.f +++ b/lapack-netlib/SRC/zspr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsprfs.f b/lapack-netlib/SRC/zsprfs.f index 3474d75037..9985b5749f 100644 --- a/lapack-netlib/SRC/zsprfs.f +++ b/lapack-netlib/SRC/zsprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspsv.f b/lapack-netlib/SRC/zspsv.f index f4c79db3f4..a1c13024bb 100644 --- a/lapack-netlib/SRC/zspsv.f +++ b/lapack-netlib/SRC/zspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspsvx.f b/lapack-netlib/SRC/zspsvx.f index 8c4dc105c7..2cd0975651 100644 --- a/lapack-netlib/SRC/zspsvx.f +++ b/lapack-netlib/SRC/zspsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zsptrf.f b/lapack-netlib/SRC/zsptrf.f index 07c6eec4dc..bad30b7a42 100644 --- a/lapack-netlib/SRC/zsptrf.f +++ b/lapack-netlib/SRC/zsptrf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -158,10 +156,9 @@ * ===================================================================== SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsptri.f b/lapack-netlib/SRC/zsptri.f index cb9efc8398..ba590f661c 100644 --- a/lapack-netlib/SRC/zsptri.f +++ b/lapack-netlib/SRC/zsptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsptrs.f b/lapack-netlib/SRC/zsptrs.f index feb29bcee0..2a16cb22ac 100644 --- a/lapack-netlib/SRC/zsptrs.f +++ b/lapack-netlib/SRC/zsptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zstedc.f b/lapack-netlib/SRC/zstedc.f index b6be431b0d..74d390af7e 100644 --- a/lapack-netlib/SRC/zstedc.f +++ b/lapack-netlib/SRC/zstedc.f @@ -198,8 +198,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE ZSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zstegr.f b/lapack-netlib/SRC/zstegr.f index 5ad981096f..ee43a0d214 100644 --- a/lapack-netlib/SRC/zstegr.f +++ b/lapack-netlib/SRC/zstegr.f @@ -49,7 +49,7 @@ *> eigenvalues. *> *> ZSTEGR is a compatibility wrapper around the improved ZSTEMR routine. -*> See DSTEMR for further details. +*> See ZSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any *> benefit and hence is no longer used. @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE ZSTEGR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/zstein.f b/lapack-netlib/SRC/zstein.f index ff8384ad4b..9be9d981c1 100644 --- a/lapack-netlib/SRC/zstein.f +++ b/lapack-netlib/SRC/zstein.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/zstemr.f b/lapack-netlib/SRC/zstemr.f index 8685542ded..b034198de0 100644 --- a/lapack-netlib/SRC/zstemr.f +++ b/lapack-netlib/SRC/zstemr.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -338,10 +336,9 @@ SUBROUTINE ZSTEMR( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/zsteqr.f b/lapack-netlib/SRC/zsteqr.f index ac47890685..47f4004e8d 100644 --- a/lapack-netlib/SRC/zsteqr.f +++ b/lapack-netlib/SRC/zsteqr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zsycon.f b/lapack-netlib/SRC/zsycon.f index 98ec83e374..5b3fef621e 100644 --- a/lapack-netlib/SRC/zsycon.f +++ b/lapack-netlib/SRC/zsycon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsycon_3.f b/lapack-netlib/SRC/zsycon_3.f index 33bd238490..25c8b5e089 100644 --- a/lapack-netlib/SRC/zsycon_3.f +++ b/lapack-netlib/SRC/zsycon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE ZSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsycon_rook.f b/lapack-netlib/SRC/zsycon_rook.f index c7c0c43850..1346f8b860 100644 --- a/lapack-netlib/SRC/zsycon_rook.f +++ b/lapack-netlib/SRC/zsycon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE ZSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyconv.f b/lapack-netlib/SRC/zsyconv.f index 94235ef575..e6a1d006c1 100644 --- a/lapack-netlib/SRC/zsyconv.f +++ b/lapack-netlib/SRC/zsyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyconvf.f b/lapack-netlib/SRC/zsyconvf.f index 2d5ce882ef..eb49b0f3d8 100644 --- a/lapack-netlib/SRC/zsyconvf.f +++ b/lapack-netlib/SRC/zsyconvf.f @@ -38,7 +38,7 @@ *> ZSYCONVF converts the factorization output format used in *> ZSYTRF provided on entry in parameter A into the factorization *> output format used in ZSYTRF_RK (or ZSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in ZSYTRF into *> the format used in ZSYTRF_RK (or ZSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in ZSYTRF_RK *> (or ZSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in ZSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in ZSYTRF_RK *> (or ZSYTRF_BK) into the format used in ZSYTRF. *> @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -209,10 +207,9 @@ * ===================================================================== SUBROUTINE ZSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyconvf_rook.f b/lapack-netlib/SRC/zsyconvf_rook.f index 410d2eb34d..3cfa694c39 100644 --- a/lapack-netlib/SRC/zsyconvf_rook.f +++ b/lapack-netlib/SRC/zsyconvf_rook.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ * ===================================================================== SUBROUTINE ZSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyequb.f b/lapack-netlib/SRC/zsyequb.f index 1cf4119684..84d5330ad3 100644 --- a/lapack-netlib/SRC/zsyequb.f +++ b/lapack-netlib/SRC/zsyequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * avg = s^T beta / n AVG = 0.0D0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + S( I ) * DBLE( WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = ( N-2 ) * ( DBLE( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * DBLE( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + DBLE( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/zsymv.f b/lapack-netlib/SRC/zsymv.f index 926a05f258..d54620e26f 100644 --- a/lapack-netlib/SRC/zsymv.f +++ b/lapack-netlib/SRC/zsymv.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyr.f b/lapack-netlib/SRC/zsyr.f index 2bed66371d..27b559c90b 100644 --- a/lapack-netlib/SRC/zsyr.f +++ b/lapack-netlib/SRC/zsyr.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyrfs.f b/lapack-netlib/SRC/zsyrfs.f index c114f40c09..e62d7f8a7a 100644 --- a/lapack-netlib/SRC/zsyrfs.f +++ b/lapack-netlib/SRC/zsyrfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyrfsx.f b/lapack-netlib/SRC/zsyrfsx.f index d086510d8b..b938ef0ead 100644 --- a/lapack-netlib/SRC/zsyrfsx.f +++ b/lapack-netlib/SRC/zsyrfsx.f @@ -124,7 +124,7 @@ *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the *> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by DSYTRF. +*> L*D*L**T as computed by ZSYTRF. *> \endverbatim *> *> \param[in] LDAF @@ -137,7 +137,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by DSYTRF. +*> as determined by ZSYTRF. *> \endverbatim *> *> \param[in,out] S @@ -171,7 +171,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ SUBROUTINE ZSYRFSX( UPLO, EQUED, N, NRHS, A, LDA, AF, LDAF, IPIV, $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zsysv.f b/lapack-netlib/SRC/zsysv.f index 2ff196ca8c..ed173dadca 100644 --- a/lapack-netlib/SRC/zsysv.f +++ b/lapack-netlib/SRC/zsysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * * ===================================================================== SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -226,7 +223,7 @@ SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysv_aa.f b/lapack-netlib/SRC/zsysv_aa.f index 4e87bd105c..3a3af5009f 100644 --- a/lapack-netlib/SRC/zsysv_aa.f +++ b/lapack-netlib/SRC/zsysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYsolve * * ===================================================================== SUBROUTINE ZSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsysv_aa_2stage.f b/lapack-netlib/SRC/zsysv_aa_2stage.f index 923eaaec08..4f19630a97 100644 --- a/lapack-netlib/SRC/zsysv_aa_2stage.f +++ b/lapack-netlib/SRC/zsysv_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZSYSV_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ SUBROUTINE ZSYSV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsysv_rk.f b/lapack-netlib/SRC/zsysv_rk.f index 8cc79a728a..df828ee337 100644 --- a/lapack-netlib/SRC/zsysv_rk.f +++ b/lapack-netlib/SRC/zsysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE ZSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ SUBROUTINE ZSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL ZSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysv_rook.f b/lapack-netlib/SRC/zsysv_rook.f index f1448e9dce..7c9fb4bf64 100644 --- a/lapack-netlib/SRC/zsysv_rook.f +++ b/lapack-netlib/SRC/zsysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -259,7 +256,7 @@ SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWKOPT = 1 ELSE CALL ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysvx.f b/lapack-netlib/SRC/zsysvx.f index ebebe2e463..91c6adb79b 100644 --- a/lapack-netlib/SRC/zsysvx.f +++ b/lapack-netlib/SRC/zsysvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYsolve * * ===================================================================== @@ -285,10 +283,9 @@ SUBROUTINE ZSYSVX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zsysvxx.f b/lapack-netlib/SRC/zsysvxx.f index e294393852..5cbc15d9e1 100644 --- a/lapack-netlib/SRC/zsysvxx.f +++ b/lapack-netlib/SRC/zsysvxx.f @@ -185,7 +185,7 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by DSYTRF. +*> U*D*U**T or A = L*D*L**T as computed by ZSYTRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers @@ -204,7 +204,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains details of the interchanges and the block -*> structure of D, as determined by DSYTRF. If IPIV(k) > 0, +*> structure of D, as determined by ZSYTRF. If IPIV(k) > 0, *> then rows and columns k and IPIV(k) were interchanged and *> D(k,k) is a 1-by-1 diagonal block. If UPLO = 'U' and *> IPIV(k) = IPIV(k-1) < 0, then rows and columns k-1 and @@ -215,7 +215,7 @@ *> *> If FACT = 'N', then IPIV is an output argument and on exit *> contains details of the interchanges and the block -*> structure of D, as determined by DSYTRF. +*> structure of D, as determined by ZSYTRF. *> \endverbatim *> *> \param[in,out] EQUED @@ -496,8 +496,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYsolve * * ===================================================================== @@ -506,10 +504,9 @@ SUBROUTINE ZSYSVXX( FACT, UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zsyswapr.f b/lapack-netlib/SRC/zsyswapr.f index ea79c8fc05..1f1a878574 100644 --- a/lapack-netlib/SRC/zsyswapr.f +++ b/lapack-netlib/SRC/zsyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2.f b/lapack-netlib/SRC/zsytf2.f index 766d61c835..7542a0de16 100644 --- a/lapack-netlib/SRC/zsytf2.f +++ b/lapack-netlib/SRC/zsytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2_rk.f b/lapack-netlib/SRC/zsytf2_rk.f index 4ae1a4a228..d0dd3a278d 100644 --- a/lapack-netlib/SRC/zsytf2_rk.f +++ b/lapack-netlib/SRC/zsytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE ZSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2_rook.f b/lapack-netlib/SRC/zsytf2_rook.f index cf964ae8b4..cbfb57e266 100644 --- a/lapack-netlib/SRC/zsytf2_rook.f +++ b/lapack-netlib/SRC/zsytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE ZSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf.f b/lapack-netlib/SRC/zsytrf.f index 54e22cca15..a775a87587 100644 --- a/lapack-netlib/SRC/zsytrf.f +++ b/lapack-netlib/SRC/zsytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf_aa.f b/lapack-netlib/SRC/zsytrf_aa.f index e547c6a607..73d257cfe5 100644 --- a/lapack-netlib/SRC/zsytrf_aa.f +++ b/lapack-netlib/SRC/zsytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of ZSYTRF_AA diff --git a/lapack-netlib/SRC/zsytrf_aa_2stage.f b/lapack-netlib/SRC/zsytrf_aa_2stage.f index 67a1c1f6f6..b731cb7a22 100644 --- a/lapack-netlib/SRC/zsytrf_aa_2stage.f +++ b/lapack-netlib/SRC/zsytrf_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZSYTRF_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrf_rk.f b/lapack-netlib/SRC/zsytrf_rk.f index 2fabf9d1a3..3b398ce6ca 100644 --- a/lapack-netlib/SRC/zsytrf_rk.f +++ b/lapack-netlib/SRC/zsytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE ZSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf_rook.f b/lapack-netlib/SRC/zsytrf_rook.f index 3fe69b334a..84a654fb89 100644 --- a/lapack-netlib/SRC/zsytrf_rook.f +++ b/lapack-netlib/SRC/zsytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri.f b/lapack-netlib/SRC/zsytri.f index 233026a122..32c7bf5cb7 100644 --- a/lapack-netlib/SRC/zsytri.f +++ b/lapack-netlib/SRC/zsytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri2.f b/lapack-netlib/SRC/zsytri2.f index 9929eb2c64..5417377f01 100644 --- a/lapack-netlib/SRC/zsytri2.f +++ b/lapack-netlib/SRC/zsytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri2x.f b/lapack-netlib/SRC/zsytri2x.f index 4feb4d563b..61814ae6d8 100644 --- a/lapack-netlib/SRC/zsytri2x.f +++ b/lapack-netlib/SRC/zsytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -234,7 +231,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN * 1 x 1 diagonal NNB - WORK(K,INVD) = 1/ A( K, K ) + WORK(K,INVD) = ONE / A( K, K ) WORK(K,INVD+1) = 0 K=K+1 ELSE @@ -411,7 +408,7 @@ SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN * 1 x 1 diagonal NNB - WORK(K,INVD) = 1/ A( K, K ) + WORK(K,INVD) = ONE / A( K, K ) WORK(K,INVD+1) = 0 K=K-1 ELSE diff --git a/lapack-netlib/SRC/zsytri_3.f b/lapack-netlib/SRC/zsytri_3.f index dc38e8547d..4503703d3f 100644 --- a/lapack-netlib/SRC/zsytri_3.f +++ b/lapack-netlib/SRC/zsytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE ZSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri_3x.f b/lapack-netlib/SRC/zsytri_3x.f index a943929234..5bbd8e3090 100644 --- a/lapack-netlib/SRC/zsytri_3x.f +++ b/lapack-netlib/SRC/zsytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri_rook.f b/lapack-netlib/SRC/zsytri_rook.f index 77aba25409..41a2f040f3 100644 --- a/lapack-netlib/SRC/zsytri_rook.f +++ b/lapack-netlib/SRC/zsytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs.f b/lapack-netlib/SRC/zsytrs.f index c9fcb4afca..81c27f72ee 100644 --- a/lapack-netlib/SRC/zsytrs.f +++ b/lapack-netlib/SRC/zsytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs2.f b/lapack-netlib/SRC/zsytrs2.f index 6e9cca425c..38986f80a1 100644 --- a/lapack-netlib/SRC/zsytrs2.f +++ b/lapack-netlib/SRC/zsytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs_3.f b/lapack-netlib/SRC/zsytrs_3.f index 673687532f..b9e5cbac15 100644 --- a/lapack-netlib/SRC/zsytrs_3.f +++ b/lapack-netlib/SRC/zsytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE ZSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs_aa.f b/lapack-netlib/SRC/zsytrs_aa.f index 0f06640093..4dbd067761 100644 --- a/lapack-netlib/SRC/zsytrs_aa.f +++ b/lapack-netlib/SRC/zsytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrs_aa_2stage.f b/lapack-netlib/SRC/zsytrs_aa_2stage.f index bf060b2d31..d43f0fa123 100644 --- a/lapack-netlib/SRC/zsytrs_aa_2stage.f +++ b/lapack-netlib/SRC/zsytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrs_rook.f b/lapack-netlib/SRC/zsytrs_rook.f index 0934336361..c66a723794 100644 --- a/lapack-netlib/SRC/zsytrs_rook.f +++ b/lapack-netlib/SRC/zsytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE ZSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztbcon.f b/lapack-netlib/SRC/ztbcon.f index ceff2b9147..ed1f3df9fd 100644 --- a/lapack-netlib/SRC/ztbcon.f +++ b/lapack-netlib/SRC/ztbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztbrfs.f b/lapack-netlib/SRC/ztbrfs.f index 50d9a57be2..0bd1865667 100644 --- a/lapack-netlib/SRC/ztbrfs.f +++ b/lapack-netlib/SRC/ztbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztbtrs.f b/lapack-netlib/SRC/ztbtrs.f index 06de7d788a..e12a7e798e 100644 --- a/lapack-netlib/SRC/ztbtrs.f +++ b/lapack-netlib/SRC/ztbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztfsm.f b/lapack-netlib/SRC/ztfsm.f index 8d4af937a4..538da4f071 100644 --- a/lapack-netlib/SRC/ztfsm.f +++ b/lapack-netlib/SRC/ztfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -298,10 +296,9 @@ SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztftri.f b/lapack-netlib/SRC/ztftri.f index 4bc5cfec1d..7fbd81cdd6 100644 --- a/lapack-netlib/SRC/ztftri.f +++ b/lapack-netlib/SRC/ztftri.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -221,10 +219,9 @@ * ===================================================================== SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/ztfttp.f b/lapack-netlib/SRC/ztfttp.f index f402ca1659..9f5c4866a8 100644 --- a/lapack-netlib/SRC/ztfttp.f +++ b/lapack-netlib/SRC/ztfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztfttr.f b/lapack-netlib/SRC/ztfttr.f index 39c7e54c64..511aca3360 100644 --- a/lapack-netlib/SRC/ztfttr.f +++ b/lapack-netlib/SRC/ztfttr.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztgevc.f b/lapack-netlib/SRC/ztgevc.f index 447fc1aef3..23bd36ddb1 100644 --- a/lapack-netlib/SRC/ztgevc.f +++ b/lapack-netlib/SRC/ztgevc.f @@ -211,18 +211,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ztgex2.f b/lapack-netlib/SRC/ztgex2.f index ba80d7162f..3c3705c66c 100644 --- a/lapack-netlib/SRC/ztgex2.f +++ b/lapack-netlib/SRC/ztgex2.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEauxiliary * *> \par Further Details: @@ -190,10 +188,9 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -218,10 +215,10 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, PARAMETER ( WANDS = .TRUE. ) * .. * .. Local Scalars .. - LOGICAL DTRONG, WEAK + LOGICAL STRONG, WEAK INTEGER I, M - DOUBLE PRECISION CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM, - $ THRESH, WS + DOUBLE PRECISION CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM, + $ THRESHA, THRESHB COMPLEX*16 CDUM, F, G, SQ, SZ * .. * .. Local Arrays .. @@ -248,7 +245,7 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * M = LDST WEAK = .FALSE. - DTRONG = .FALSE. + STRONG = .FALSE. * * Make a local copy of selected block in (A, B) * @@ -263,8 +260,12 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, SUM = DBLE( CONE ) CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) - CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) + CALL ZLASSQ( M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL ZLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -274,15 +275,16 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*SB, SMLNUM ) * * Compute unitary QL and RQ that swap 1-by-1 and 1-by-1 blocks * using Givens rotations and perform the swap tentatively. * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SA = ABS( S( 2, 2 ) ) - SB = ABS( T( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL ZLARTG( G, F, CZ, SZ, CDUM ) SZ = -SZ CALL ZROT( 2, S( 1, 1 ), 1, S( 1, 2 ), 1, CZ, DCONJG( SZ ) ) @@ -295,17 +297,20 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, CALL ZROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) CALL ZROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) * -* Weak stability test: |S21| + |T21| <= O(EPS F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ).LE.THRESHA .AND. + $ ABS( T( 2, 1 ) ).LE.THRESHB IF( .NOT.WEAK ) $ GO TO 20 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**H*S*QR, B-QL**H*T*QR)) <= O(EPS*F-norm((A, B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) @@ -321,10 +326,14 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, 10 CONTINUE SCALE = DBLE( CZERO ) SUM = DBLE( CONE ) - CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) - SS = SCALE*SQRT( SUM ) - DTRONG = SS.LE.THRESH - IF( .NOT.DTRONG ) + CALL ZLASSQ( M*M, WORK, 1, SCALE, SUM ) + SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL ZLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 20 END IF * diff --git a/lapack-netlib/SRC/ztgexc.f b/lapack-netlib/SRC/ztgexc.f index 7eac54cabd..55677317ca 100644 --- a/lapack-netlib/SRC/ztgexc.f +++ b/lapack-netlib/SRC/ztgexc.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ztgsen.f b/lapack-netlib/SRC/ztgsen.f index cb4afd5e88..25a5c6f4ed 100644 --- a/lapack-netlib/SRC/ztgsen.f +++ b/lapack-netlib/SRC/ztgsen.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -433,10 +431,9 @@ SUBROUTINE ZTGSEN( IJOB, WANTQ, WANTZ, SELECT, N, A, LDA, B, LDB, $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ztgsja.f b/lapack-netlib/SRC/ztgsja.f index c80e331582..c1c5abdb18 100644 --- a/lapack-netlib/SRC/ztgsja.f +++ b/lapack-netlib/SRC/ztgsja.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -379,10 +377,9 @@ SUBROUTINE ZTGSJA( JOBU, JOBV, JOBQ, M, P, N, K, L, A, LDA, B, $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/ztgsna.f b/lapack-netlib/SRC/ztgsna.f index 77cbdcda06..11743eb2df 100644 --- a/lapack-netlib/SRC/ztgsna.f +++ b/lapack-netlib/SRC/ztgsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE ZTGSNA( JOB, HOWMNY, SELECT, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ztgsy2.f b/lapack-netlib/SRC/ztgsy2.f index 028ddfd3d9..ee26b5e7b0 100644 --- a/lapack-netlib/SRC/ztgsy2.f +++ b/lapack-netlib/SRC/ztgsy2.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * *> \par Contributors: @@ -259,10 +257,9 @@ SUBROUTINE ZTGSY2( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ztgsyl.f b/lapack-netlib/SRC/ztgsyl.f index 2122a09ca4..f613671c9c 100644 --- a/lapack-netlib/SRC/ztgsyl.f +++ b/lapack-netlib/SRC/ztgsyl.f @@ -217,7 +217,7 @@ *> If 0 < SCALE < 1, C and F hold the solutions R and L, resp., *> to a slightly perturbed system but the input matrices A, B, *> D and E have not been changed. If SCALE = 0, R and L will -*> hold the solutions to the homogenious system with C = F = 0. +*> hold the solutions to the homogeneous system with C = F = 0. *> \endverbatim *> *> \param[out] WORK @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -295,10 +293,9 @@ SUBROUTINE ZTGSYL( TRANS, IJOB, M, N, A, LDA, B, LDB, C, LDC, D, $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ztpcon.f b/lapack-netlib/SRC/ztpcon.f index 41f1ae42cd..e5d0b071db 100644 --- a/lapack-netlib/SRC/ztpcon.f +++ b/lapack-netlib/SRC/ztpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztplqt.f b/lapack-netlib/SRC/ztplqt.f index bbf001044e..a27d5e13a4 100644 --- a/lapack-netlib/SRC/ztplqt.f +++ b/lapack-netlib/SRC/ztplqt.f @@ -6,12 +6,12 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies -*> +*> Download ZTPLQT + dependencies +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -34,7 +34,7 @@ *> *> \verbatim *> -*> DTPLQT computes a blocked LQ factorization of a complex +*> ZTPLQT computes a blocked LQ factorization of a complex *> "triangular-pentagonal" matrix C, which is composed of a *> triangular block A and pentagonal block B, using the compact *> WY representation for Q. @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE ZTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/ztplqt2.f b/lapack-netlib/SRC/ztplqt2.f index 9fecfddfd3..777e5f57e4 100644 --- a/lapack-netlib/SRC/ztplqt2.f +++ b/lapack-netlib/SRC/ztplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ztpmlqt.f b/lapack-netlib/SRC/ztpmlqt.f index cc333f5a2b..c63c05bf8e 100644 --- a/lapack-netlib/SRC/ztpmlqt.f +++ b/lapack-netlib/SRC/ztpmlqt.f @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> ZTPMLQT applies a complex orthogonal matrix Q obtained from a +*> ZTPMLQT applies a complex unitary matrix Q obtained from a *> "triangular-pentagonal" complex block reflector H to a general *> complex matrix C, which consists of two blocks A and B. *> \endverbatim @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -89,7 +89,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in ZTPLQT. *> \endverbatim *> *> \param[in] V @@ -97,22 +97,20 @@ *> V is COMPLEX*16 array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> ZTPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by ZTPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,7 +197,7 @@ *> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is K-by-N. *> -*> The real orthogonal matrix Q is formed from V and T. +*> The complex unitary matrix Q is formed from V and T. *> *> If TRANS='N' and SIDE='L', C is on exit replaced with Q * C. *> @@ -216,10 +212,9 @@ SUBROUTINE ZTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ztpmqrt.f b/lapack-netlib/SRC/ztpmqrt.f index 530dca458f..a31bca76fa 100644 --- a/lapack-netlib/SRC/ztpmqrt.f +++ b/lapack-netlib/SRC/ztpmqrt.f @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ztpqrt.f b/lapack-netlib/SRC/ztpqrt.f index c6f186bd02..83ff7409cd 100644 --- a/lapack-netlib/SRC/ztpqrt.f +++ b/lapack-netlib/SRC/ztpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/ztpqrt2.f b/lapack-netlib/SRC/ztpqrt2.f index 2d9300b609..651ac45337 100644 --- a/lapack-netlib/SRC/ztpqrt2.f +++ b/lapack-netlib/SRC/ztpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ztprfb.f b/lapack-netlib/SRC/ztprfb.f index f96c237eed..2edbd05666 100644 --- a/lapack-netlib/SRC/ztprfb.f +++ b/lapack-netlib/SRC/ztprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ SUBROUTINE ZTPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, $ V, LDV, T, LDT, A, LDA, B, LDB, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/ztprfs.f b/lapack-netlib/SRC/ztprfs.f index d6a29d40c7..485694a565 100644 --- a/lapack-netlib/SRC/ztprfs.f +++ b/lapack-netlib/SRC/ztprfs.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztptri.f b/lapack-netlib/SRC/ztptri.f index 35388194c3..31284ad637 100644 --- a/lapack-netlib/SRC/ztptri.f +++ b/lapack-netlib/SRC/ztptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE ZTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztptrs.f b/lapack-netlib/SRC/ztptrs.f index c1a852c7b7..2d7093313a 100644 --- a/lapack-netlib/SRC/ztptrs.f +++ b/lapack-netlib/SRC/ztptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztpttf.f b/lapack-netlib/SRC/ztpttf.f index 9dfc795eea..bdd107d4d7 100644 --- a/lapack-netlib/SRC/ztpttf.f +++ b/lapack-netlib/SRC/ztpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ * ===================================================================== SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztpttr.f b/lapack-netlib/SRC/ztpttr.f index 17ebc0a25e..1529e0251a 100644 --- a/lapack-netlib/SRC/ztpttr.f +++ b/lapack-netlib/SRC/ztpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztrcon.f b/lapack-netlib/SRC/ztrcon.f index e7cc1968d1..051ab1b7c6 100644 --- a/lapack-netlib/SRC/ztrcon.f +++ b/lapack-netlib/SRC/ztrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztrevc.f b/lapack-netlib/SRC/ztrevc.f index ea925dda8c..38411757dc 100644 --- a/lapack-netlib/SRC/ztrevc.f +++ b/lapack-netlib/SRC/ztrevc.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ztrevc3.f b/lapack-netlib/SRC/ztrevc3.f index 36f7d8274e..6300e80aec 100644 --- a/lapack-netlib/SRC/ztrevc3.f +++ b/lapack-netlib/SRC/ztrevc3.f @@ -222,10 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran z -> c -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -247,10 +243,9 @@ SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE @@ -291,13 +286,13 @@ SUBROUTINE ZTREVC3( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ ZGEMM, DLABAD, ZLASET, ZLACPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX + INTRINSIC ABS, DBLE, DCMPLX, CONJG, DIMAG, MAX * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 * .. * .. Statement Function definitions .. - CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( AIMAG( CDUM ) ) + CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) ) * .. * .. Executable Statements .. * diff --git a/lapack-netlib/SRC/ztrexc.f b/lapack-netlib/SRC/ztrexc.f index 4cf352e647..b92e63efa9 100644 --- a/lapack-netlib/SRC/ztrexc.f +++ b/lapack-netlib/SRC/ztrexc.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/ztrrfs.f b/lapack-netlib/SRC/ztrrfs.f index 42c2592e44..8c1a4c0695 100644 --- a/lapack-netlib/SRC/ztrrfs.f +++ b/lapack-netlib/SRC/ztrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztrsen.f b/lapack-netlib/SRC/ztrsen.f index e033ca5235..33f7e5b95d 100644 --- a/lapack-netlib/SRC/ztrsen.f +++ b/lapack-netlib/SRC/ztrsen.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -264,10 +262,9 @@ SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/ztrsna.f b/lapack-netlib/SRC/ztrsna.f index 97a42a516f..eaa2ef7175 100644 --- a/lapack-netlib/SRC/ztrsna.f +++ b/lapack-netlib/SRC/ztrsna.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE ZTRSNA( JOB, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ztrsyl.f b/lapack-netlib/SRC/ztrsyl.f index 6fd0354a81..27e21dd9d6 100644 --- a/lapack-netlib/SRC/ztrsyl.f +++ b/lapack-netlib/SRC/ztrsyl.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/ztrti2.f b/lapack-netlib/SRC/ztrti2.f index 87b871793a..d9249d21c2 100644 --- a/lapack-netlib/SRC/ztrti2.f +++ b/lapack-netlib/SRC/ztrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztrtri.f b/lapack-netlib/SRC/ztrtri.f index cb5bd450d7..6b9134dfb0 100644 --- a/lapack-netlib/SRC/ztrtri.f +++ b/lapack-netlib/SRC/ztrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztrtrs.f b/lapack-netlib/SRC/ztrtrs.f index a5c36bc64b..ad7f965e2f 100644 --- a/lapack-netlib/SRC/ztrtrs.f +++ b/lapack-netlib/SRC/ztrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztrttf.f b/lapack-netlib/SRC/ztrttf.f index f18312b081..277d72456e 100644 --- a/lapack-netlib/SRC/ztrttf.f +++ b/lapack-netlib/SRC/ztrttf.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztrttp.f b/lapack-netlib/SRC/ztrttp.f index 52663b5820..ba9e8ce916 100644 --- a/lapack-netlib/SRC/ztrttp.f +++ b/lapack-netlib/SRC/ztrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztzrzf.f b/lapack-netlib/SRC/ztzrzf.f index d806dc073b..46d39e749f 100644 --- a/lapack-netlib/SRC/ztzrzf.f +++ b/lapack-netlib/SRC/ztzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I A(:,M+1:N) ) *> *> I is the M-by-M identity matrix, A(:,M+1:N) -*> is the output stored in A on exit from DTZRZF, +*> is the output stored in A on exit from ZTZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zunbdb.f b/lapack-netlib/SRC/zunbdb.f index d06dacd861..281ec6e45f 100644 --- a/lapack-netlib/SRC/zunbdb.f +++ b/lapack-netlib/SRC/zunbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ SUBROUTINE ZUNBDB( TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/zunbdb1.f b/lapack-netlib/SRC/zunbdb1.f index 039d160c11..767788a74d 100644 --- a/lapack-netlib/SRC/zunbdb1.f +++ b/lapack-netlib/SRC/zunbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb2.f b/lapack-netlib/SRC/zunbdb2.f index 8bfca46f64..412d8d8d08 100644 --- a/lapack-netlib/SRC/zunbdb2.f +++ b/lapack-netlib/SRC/zunbdb2.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb3.f b/lapack-netlib/SRC/zunbdb3.f index 523aee55de..74083e41a9 100644 --- a/lapack-netlib/SRC/zunbdb3.f +++ b/lapack-netlib/SRC/zunbdb3.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb4.f b/lapack-netlib/SRC/zunbdb4.f index 026f5a5585..b1fcd8bd03 100644 --- a/lapack-netlib/SRC/zunbdb4.f +++ b/lapack-netlib/SRC/zunbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ SUBROUTINE ZUNBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb5.f b/lapack-netlib/SRC/zunbdb5.f index be708b7948..23174fe502 100644 --- a/lapack-netlib/SRC/zunbdb5.f +++ b/lapack-netlib/SRC/zunbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/zunbdb6.f b/lapack-netlib/SRC/zunbdb6.f index c4ccbfb10c..ec681b597a 100644 --- a/lapack-netlib/SRC/zunbdb6.f +++ b/lapack-netlib/SRC/zunbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/zuncsd.f b/lapack-netlib/SRC/zuncsd.f index db53f93d81..cc45bbc70b 100644 --- a/lapack-netlib/SRC/zuncsd.f +++ b/lapack-netlib/SRC/zuncsd.f @@ -308,8 +308,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -320,10 +318,9 @@ RECURSIVE SUBROUTINE ZUNCSD( JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/zuncsd2by1.f b/lapack-netlib/SRC/zuncsd2by1.f index 56285a1919..2d861c2cc8 100644 --- a/lapack-netlib/SRC/zuncsd2by1.f +++ b/lapack-netlib/SRC/zuncsd2by1.f @@ -189,9 +189,10 @@ *> The dimension of the array WORK. *> *> If LWORK = -1, then a workspace query is assumed; the routine -*> only calculates the optimal size of the WORK array, returns -*> this value as the first entry of the work array, and no error -*> message related to LWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim *> *> \param[out] RWORK @@ -211,9 +212,10 @@ *> The dimension of the array RWORK. *> *> If LRWORK = -1, then a workspace query is assumed; the routine -*> only calculates the optimal size of the RWORK array, returns -*> this value as the first entry of the work array, and no error -*> message related to LRWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim * *> \param[out] IWORK @@ -244,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -254,10 +254,9 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -312,7 +311,7 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, WANTU1 = LSAME( JOBU1, 'Y' ) WANTU2 = LSAME( JOBU2, 'Y' ) WANTV1T = LSAME( JOBV1T, 'Y' ) - LQUERY = LWORK .EQ. -1 + LQUERY = ( LWORK.EQ.-1 ) .OR. ( LRWORK.EQ.-1 ) * IF( M .LT. 0 ) THEN INFO = -4 @@ -511,6 +510,9 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN INFO = -19 END IF + IF( LRWORK .LT. LRWORKMIN .AND. .NOT.LQUERY ) THEN + INFO = -21 + END IF END IF IF( INFO .NE. 0 ) THEN CALL XERBLA( 'ZUNCSD2BY1', -INFO ) @@ -564,8 +566,8 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), - $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, - $ CHILDINFO ) + $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), + $ LRWORK-IBBCSD+1, CHILDINFO ) * * Permute rows and columns to place zero submatrices in * preferred positions @@ -706,6 +708,9 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL ZCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL ZCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -717,7 +722,6 @@ SUBROUTINE ZUNCSD2BY1( JOBU1, JOBU2, JOBV1T, M, P, Q, X11, LDX11, $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL ZCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/zung2l.f b/lapack-netlib/SRC/zung2l.f index 1a48c4d6bc..add5cb946b 100644 --- a/lapack-netlib/SRC/zung2l.f +++ b/lapack-netlib/SRC/zung2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zung2r.f b/lapack-netlib/SRC/zung2r.f index 4a3fed0f0d..2823b7ebdd 100644 --- a/lapack-netlib/SRC/zung2r.f +++ b/lapack-netlib/SRC/zung2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zungbr.f b/lapack-netlib/SRC/zungbr.f index c1c35822c1..3dfca43be2 100644 --- a/lapack-netlib/SRC/zungbr.f +++ b/lapack-netlib/SRC/zungbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT @@ -236,7 +233,7 @@ SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) END IF END IF END IF - LWKOPT = WORK( 1 ) + LWKOPT = DBLE( WORK( 1 ) ) LWKOPT = MAX (LWKOPT, MN) END IF * diff --git a/lapack-netlib/SRC/zunghr.f b/lapack-netlib/SRC/zunghr.f index 084ecebcd1..c112db1930 100644 --- a/lapack-netlib/SRC/zunghr.f +++ b/lapack-netlib/SRC/zunghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zungl2.f b/lapack-netlib/SRC/zungl2.f index 0774cc4405..e7a0b59603 100644 --- a/lapack-netlib/SRC/zungl2.f +++ b/lapack-netlib/SRC/zungl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zunglq.f b/lapack-netlib/SRC/zunglq.f index b0e5028322..aca6bc6e72 100644 --- a/lapack-netlib/SRC/zunglq.f +++ b/lapack-netlib/SRC/zunglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungql.f b/lapack-netlib/SRC/zungql.f index c63a47db56..1804ca65ff 100644 --- a/lapack-netlib/SRC/zungql.f +++ b/lapack-netlib/SRC/zungql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungqr.f b/lapack-netlib/SRC/zungqr.f index 5f95b64e88..b3f2c4507f 100644 --- a/lapack-netlib/SRC/zungqr.f +++ b/lapack-netlib/SRC/zungqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungr2.f b/lapack-netlib/SRC/zungr2.f index c65149dd6b..034ff4fe41 100644 --- a/lapack-netlib/SRC/zungr2.f +++ b/lapack-netlib/SRC/zungr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zungrq.f b/lapack-netlib/SRC/zungrq.f index 56cd3271fb..40b3b2392e 100644 --- a/lapack-netlib/SRC/zungrq.f +++ b/lapack-netlib/SRC/zungrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungtr.f b/lapack-netlib/SRC/zungtr.f index 728854332f..01e100a8cd 100644 --- a/lapack-netlib/SRC/zungtr.f +++ b/lapack-netlib/SRC/zungtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zungtsqr.f b/lapack-netlib/SRC/zungtsqr.f index 7b04e9a29b..4f2d7dfdd0 100644 --- a/lapack-netlib/SRC/zungtsqr.f +++ b/lapack-netlib/SRC/zungtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -59,7 +60,7 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size used by DLATSQR to return +*> The row block size used by ZLATSQR to return *> arrays A and T. MB > N. *> (Note that if MB > M, then M is used instead of MB *> as the row block size). @@ -155,9 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* -*> \ingroup comlex16OTHERcomputational +*> \ingroup complex16OTHERcomputational * *> \par Contributors: * ================== @@ -175,10 +174,9 @@ SUBROUTINE ZUNGTSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/zunhr_col.f b/lapack-netlib/SRC/zunhr_col.f index 71039fddbe..3c7b2deb18 100644 --- a/lapack-netlib/SRC/zunhr_col.f +++ b/lapack-netlib/SRC/zunhr_col.f @@ -12,8 +12,9 @@ *> *> [ZIP] *> -*> [TXT] -*> +*> [TXT] \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in ZGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE ZUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/zunm22.f b/lapack-netlib/SRC/zunm22.f index f612e8facc..cedcea73af 100644 --- a/lapack-netlib/SRC/zunm22.f +++ b/lapack-netlib/SRC/zunm22.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE ZUNM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zunm2l.f b/lapack-netlib/SRC/zunm2l.f index 7e9a5cb710..48c2dbfc0c 100644 --- a/lapack-netlib/SRC/zunm2l.f +++ b/lapack-netlib/SRC/zunm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunm2r.f b/lapack-netlib/SRC/zunm2r.f index e59caf9653..aec5a8bcae 100644 --- a/lapack-netlib/SRC/zunm2r.f +++ b/lapack-netlib/SRC/zunm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmbr.f b/lapack-netlib/SRC/zunmbr.f index 727aaeba17..b43e881b29 100644 --- a/lapack-netlib/SRC/zunmbr.f +++ b/lapack-netlib/SRC/zunmbr.f @@ -188,18 +188,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -241,13 +238,10 @@ SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M - END IF - IF( M.EQ.0 .OR. N.EQ.0 ) THEN - NW = 0 + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -267,12 +261,12 @@ SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * IF( INFO.EQ.0 ) THEN - IF( NW.GT.0 ) THEN + IF( M.GT.0 .AND. N.GT.0 ) THEN IF( APPLYQ ) THEN IF( LEFT ) THEN NB = ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M-1, N, M-1, @@ -290,7 +284,7 @@ SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW*NB ) + LWKOPT = NW*NB ELSE LWKOPT = 1 END IF diff --git a/lapack-netlib/SRC/zunmhr.f b/lapack-netlib/SRC/zunmhr.f index 49b7943e84..9ece71c5e7 100644 --- a/lapack-netlib/SRC/zunmhr.f +++ b/lapack-netlib/SRC/zunmhr.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -221,10 +218,10 @@ SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -243,7 +240,7 @@ SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -253,7 +250,7 @@ SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, ELSE NB = ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/zunml2.f b/lapack-netlib/SRC/zunml2.f index cb1eaf229c..f47f768b08 100644 --- a/lapack-netlib/SRC/zunml2.f +++ b/lapack-netlib/SRC/zunml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmlq.f b/lapack-netlib/SRC/zunmlq.f index c12c06312a..f2fb315440 100644 --- a/lapack-netlib/SRC/zunmlq.f +++ b/lapack-netlib/SRC/zunmlq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -217,10 +214,10 @@ SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -246,7 +243,7 @@ SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'ZUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -267,7 +264,7 @@ SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmql.f b/lapack-netlib/SRC/zunmql.f index abdc0e5db4..06353a0c75 100644 --- a/lapack-netlib/SRC/zunmql.f +++ b/lapack-netlib/SRC/zunmql.f @@ -64,7 +64,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -136,7 +136,7 @@ *> The dimension of the array WORK. *> If SIDE = 'L', LWORK >= max(1,N); *> if SIDE = 'R', LWORK >= max(1,M). -*> For good performance, LWORK should genreally be larger. +*> For good performance, LWORK should generally be larger. *> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -269,7 +266,7 @@ SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmqr.f b/lapack-netlib/SRC/zunmqr.f index e60f10a822..2ae205f4fd 100644 --- a/lapack-netlib/SRC/zunmqr.f +++ b/lapack-netlib/SRC/zunmqr.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -216,10 +213,10 @@ SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -235,7 +232,7 @@ SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -245,7 +242,7 @@ SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, * NB = MIN( NBMAX, ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -266,7 +263,7 @@ SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmr2.f b/lapack-netlib/SRC/zunmr2.f index 0a77773e31..3685e9c7c6 100644 --- a/lapack-netlib/SRC/zunmr2.f +++ b/lapack-netlib/SRC/zunmr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmr3.f b/lapack-netlib/SRC/zunmr3.f index 138a3c0540..72d23fa434 100644 --- a/lapack-netlib/SRC/zunmr3.f +++ b/lapack-netlib/SRC/zunmr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmrq.f b/lapack-netlib/SRC/zunmrq.f index 0d246de214..e14e93bf2e 100644 --- a/lapack-netlib/SRC/zunmrq.f +++ b/lapack-netlib/SRC/zunmrq.f @@ -64,7 +64,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -270,7 +267,7 @@ SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmrz.f b/lapack-netlib/SRC/zunmrz.f index 71609f3e65..1ec5532846 100644 --- a/lapack-netlib/SRC/zunmrz.f +++ b/lapack-netlib/SRC/zunmrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -298,7 +295,7 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmtr.f b/lapack-netlib/SRC/zunmtr.f index 1c857030f1..441a7c2bcc 100644 --- a/lapack-netlib/SRC/zunmtr.f +++ b/lapack-netlib/SRC/zunmtr.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -214,10 +211,10 @@ SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -234,7 +231,7 @@ SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -256,7 +253,7 @@ SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/zupgtr.f b/lapack-netlib/SRC/zupgtr.f index eeff364180..38fca71516 100644 --- a/lapack-netlib/SRC/zupgtr.f +++ b/lapack-netlib/SRC/zupgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zupmtr.f b/lapack-netlib/SRC/zupmtr.f index a2efa6e66e..c195800261 100644 --- a/lapack-netlib/SRC/zupmtr.f +++ b/lapack-netlib/SRC/zupmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/TESTING/EIG/CMakeLists.txt b/lapack-netlib/TESTING/EIG/CMakeLists.txt index 10c25a4464..226004a90a 100644 --- a/lapack-netlib/TESTING/EIG/CMakeLists.txt +++ b/lapack-netlib/TESTING/EIG/CMakeLists.txt @@ -36,7 +36,7 @@ set(SEIGTST schkee.F serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f sget32.f sget33.f sget34.f sget35.f sget36.f - sget37.f sget38.f sget39.f sget51.f sget52.f sget53.f + sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.f shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f @@ -73,7 +73,7 @@ set(DEIGTST dchkee.F derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f dget32.f dget33.f dget34.f dget35.f dget36.f - dget37.f dget38.f dget39.f dget51.f dget52.f dget53.f + dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.f dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f @@ -99,6 +99,7 @@ set(ZEIGTST zchkee.F macro(add_eig_executable name) add_executable(${name} ${ARGN}) target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE}) +#${TMGLIB} ../${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) endmacro() if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/EIG/Makefile b/lapack-netlib/TESTING/EIG/Makefile index a292e4496c..bccfccf95c 100644 --- a/lapack-netlib/TESTING/EIG/Makefile +++ b/lapack-netlib/TESTING/EIG/Makefile @@ -58,7 +58,7 @@ SEIGTST = schkee.o \ serrbd.o serrec.o serred.o serrgg.o serrhs.o serrst.o \ sget02.o sget10.o sget22.o sget23.o sget24.o sget31.o \ sget32.o sget33.o sget34.o sget35.o sget36.o \ - sget37.o sget38.o sget39.o sget51.o sget52.o sget53.o \ + sget37.o sget38.o sget39.o sget40.o sget51.o sget52.o sget53.o \ sget54.o sglmts.o sgqrts.o sgrqts.o sgsvts3.o \ shst01.o slarfy.o slarhs.o slatm4.o slctes.o slctsx.o slsets.o sort01.o \ sort03.o ssbt21.o ssgt01.o sslect.o sspt21.o sstt21.o \ @@ -95,7 +95,7 @@ DEIGTST = dchkee.o \ derrbd.o derrec.o derred.o derrgg.o derrhs.o derrst.o \ dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \ dget32.o dget33.o dget34.o dget35.o dget36.o \ - dget37.o dget38.o dget39.o dget51.o dget52.o dget53.o \ + dget37.o dget38.o dget39.o dget40.o dget51.o dget52.o dget53.o \ dget54.o dglmts.o dgqrts.o dgrqts.o dgsvts3.o \ dhst01.o dlarfy.o dlarhs.o dlatm4.o dlctes.o dlctsx.o dlsets.o dort01.o \ dort03.o dsbt21.o dsgt01.o dslect.o dspt21.o dstt21.o \ diff --git a/lapack-netlib/TESTING/EIG/alahdg.f b/lapack-netlib/TESTING/EIG/alahdg.f index aec76fd91a..597ee4b7aa 100644 --- a/lapack-netlib/TESTING/EIG/alahdg.f +++ b/lapack-netlib/TESTING/EIG/alahdg.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALAHDG( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alareq.f b/lapack-netlib/TESTING/EIG/alareq.f index a65e4d05e5..2585a686a0 100644 --- a/lapack-netlib/TESTING/EIG/alareq.f +++ b/lapack-netlib/TESTING/EIG/alareq.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alarqg.f b/lapack-netlib/TESTING/EIG/alarqg.f index e9f9e832d3..6e2e6e7ecf 100644 --- a/lapack-netlib/TESTING/EIG/alarqg.f +++ b/lapack-netlib/TESTING/EIG/alarqg.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alasmg.f b/lapack-netlib/TESTING/EIG/alasmg.f index d01f326bac..ba586d7032 100644 --- a/lapack-netlib/TESTING/EIG/alasmg.f +++ b/lapack-netlib/TESTING/EIG/alasmg.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/alasum.f b/lapack-netlib/TESTING/EIG/alasum.f index d527082c50..9144a9c087 100644 --- a/lapack-netlib/TESTING/EIG/alasum.f +++ b/lapack-netlib/TESTING/EIG/alasum.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/alasvm.f b/lapack-netlib/TESTING/EIG/alasvm.f index 54d67e4cc0..118315d1d6 100644 --- a/lapack-netlib/TESTING/EIG/alasvm.f +++ b/lapack-netlib/TESTING/EIG/alasvm.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/cbdt01.f b/lapack-netlib/TESTING/EIG/cbdt01.f index e7d08d8744..f5633bdc31 100644 --- a/lapack-netlib/TESTING/EIG/cbdt01.f +++ b/lapack-netlib/TESTING/EIG/cbdt01.f @@ -28,13 +28,13 @@ *> \verbatim *> *> CBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary +*> A = Q * B * P**H +*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -49,7 +49,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**H. *> \endverbatim *> *> \param[in] KD @@ -78,7 +78,7 @@ *> \verbatim *> Q is COMPLEX array, dimension (LDQ,N) *> The m by min(m,n) unitary matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDQ @@ -103,8 +103,8 @@ *> \param[in] PT *> \verbatim *> PT is COMPLEX array, dimension (LDPT,N) -*> The min(m,n) by n unitary matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n unitary matrix P**H in the reduction +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDPT @@ -127,7 +127,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -138,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -190,7 +188,7 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**H one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -268,7 +266,7 @@ SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) * ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) EPS = SLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/cbdt02.f b/lapack-netlib/TESTING/EIG/cbdt02.f index c2d6bd7d7f..8aafefd227 100644 --- a/lapack-netlib/TESTING/EIG/cbdt02.f +++ b/lapack-netlib/TESTING/EIG/cbdt02.f @@ -27,7 +27,8 @@ *> *> \verbatim *> -*> CBDT02 tests the change of basis C = U' * B by computing the residual +*> CBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -66,7 +67,7 @@ *> \param[in] C *> \verbatim *> C is COMPLEX array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -111,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/cbdt03.f b/lapack-netlib/TESTING/EIG/cbdt03.f index d4f7d7a5d6..631929b346 100644 --- a/lapack-netlib/TESTING/EIG/cbdt03.f +++ b/lapack-netlib/TESTING/EIG/cbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/cbdt05.f b/lapack-netlib/TESTING/EIG/cbdt05.f index 4ed1574311..9b711fe01b 100644 --- a/lapack-netlib/TESTING/EIG/cbdt05.f +++ b/lapack-netlib/TESTING/EIG/cbdt05.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/cchkbb.f b/lapack-netlib/TESTING/EIG/cchkbb.f index f4a95fa65c..d48d6c780d 100644 --- a/lapack-netlib/TESTING/EIG/cchkbb.f +++ b/lapack-netlib/TESTING/EIG/cchkbb.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -364,7 +362,6 @@ SUBROUTINE CCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cchkbd.f b/lapack-netlib/TESTING/EIG/cchkbd.f index a3c5b60275..12fc0d3329 100644 --- a/lapack-netlib/TESTING/EIG/cchkbd.f +++ b/lapack-netlib/TESTING/EIG/cchkbd.f @@ -405,8 +405,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -415,10 +413,9 @@ SUBROUTINE CCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/cchkbk.f b/lapack-netlib/TESTING/EIG/cchkbk.f index 58e1209423..6b9b0e24c2 100644 --- a/lapack-netlib/TESTING/EIG/cchkbk.f +++ b/lapack-netlib/TESTING/EIG/cchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkbl.f b/lapack-netlib/TESTING/EIG/cchkbl.f index 02671ffe4c..894abd4906 100644 --- a/lapack-netlib/TESTING/EIG/cchkbl.f +++ b/lapack-netlib/TESTING/EIG/cchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkec.f b/lapack-netlib/TESTING/EIG/cchkec.f index 4f6fbc3cdd..6727a0954b 100644 --- a/lapack-netlib/TESTING/EIG/cchkec.f +++ b/lapack-netlib/TESTING/EIG/cchkec.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F index ef9f71ec9a..7c6f580870 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.F +++ b/lapack-netlib/TESTING/EIG/cchkee.F @@ -1027,8 +1027,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -1038,10 +1036,9 @@ PROGRAM CCHKEE use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/cchkgg.f b/lapack-netlib/TESTING/EIG/cchkgg.f index fb9c2bcdf2..8938bb6579 100644 --- a/lapack-netlib/TESTING/EIG/cchkgg.f +++ b/lapack-netlib/TESTING/EIG/cchkgg.f @@ -492,8 +492,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -503,10 +501,9 @@ SUBROUTINE CCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/cchkgk.f b/lapack-netlib/TESTING/EIG/cchkgk.f index 34035e1847..39228d35ee 100644 --- a/lapack-netlib/TESTING/EIG/cchkgk.f +++ b/lapack-netlib/TESTING/EIG/cchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkgl.f b/lapack-netlib/TESTING/EIG/cchkgl.f index 73aceed271..a442548352 100644 --- a/lapack-netlib/TESTING/EIG/cchkgl.f +++ b/lapack-netlib/TESTING/EIG/cchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkhb.f b/lapack-netlib/TESTING/EIG/cchkhb.f index eb6cb7da56..4c12df9f27 100644 --- a/lapack-netlib/TESTING/EIG/cchkhb.f +++ b/lapack-netlib/TESTING/EIG/cchkhb.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -298,10 +296,9 @@ SUBROUTINE CCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/cchkhb2stg.f b/lapack-netlib/TESTING/EIG/cchkhb2stg.f index 100f133abd..1a11ac5eaf 100644 --- a/lapack-netlib/TESTING/EIG/cchkhb2stg.f +++ b/lapack-netlib/TESTING/EIG/cchkhb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b CCHKHBSTG +*> \brief \b CCHKHB2STG * * =========== DOCUMENTATION =========== * @@ -8,7 +8,7 @@ * Definition: * =========== * -* SUBROUTINE CCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, +* SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, * D2, D3, U, LDU, WORK, LWORK, RWORK RESULT, * INFO ) @@ -21,7 +21,8 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) -* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ) +* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. * @@ -31,18 +32,18 @@ *> *> \verbatim *> -*> CCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal +*> CCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal *> from, used with the Hermitian eigenvalue problem. *> *> CHBTRD factors a Hermitian band matrix A as U S U* , where * means *> conjugate transpose, S is symmetric tridiagonal, and U is unitary. *> CHBTRD can use either just the lower or just the upper triangle -*> of A; CCHKHBSTG checks both cases. +*> of A; CCHKHB2STG checks both cases. *> *> CHETRD_HB2ST factors a Hermitian band matrix A as U S U* , *> where * means conjugate transpose, S is symmetric tridiagonal, and U is *> unitary. CHETRD_HB2ST can use either just the lower or just -*> the upper triangle of A; CCHKHBSTG checks both cases. +*> the upper triangle of A; CCHKHB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -52,7 +53,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When CCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When CCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -126,7 +127,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> CCHKHBSTG does nothing. It must be at least zero. +*> CCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -141,7 +142,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> CCHKHBSTG does nothing. It must be at least zero. +*> CCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -154,7 +155,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, CCHKHBSTG +*> The number of elements in DOTYPE. If it is zero, CCHKHB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -184,7 +185,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to CCHKHBSTG to continue the same random number +*> next call to CCHKHB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -235,6 +236,23 @@ *> computed by CHBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is REAL array, dimension (max(NN)) +*> Used store eigenvalues resulting from the tridiagonal +*> form using the DSBTRD. +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is REAL array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is COMPLEX array, dimension (LDU, max(NN)) @@ -313,8 +331,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== @@ -323,10 +339,9 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -432,7 +447,7 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'CCHKHBSTG', -INFO ) + CALL XERBLA( 'CCHKHB2STG', -INFO ) RETURN END IF * @@ -837,7 +852,7 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, CALL SLASUM( 'CHB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' CCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' CCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) 9998 FORMAT( / 1X, A3, $ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines' @@ -873,6 +888,6 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of CCHKHBSTG +* End of CCHKHB2STG * END diff --git a/lapack-netlib/TESTING/EIG/cchkhs.f b/lapack-netlib/TESTING/EIG/cchkhs.f index 4469389934..65f1fc82d4 100644 --- a/lapack-netlib/TESTING/EIG/cchkhs.f +++ b/lapack-netlib/TESTING/EIG/cchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -412,10 +410,9 @@ SUBROUTINE CCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/cchkst.f b/lapack-netlib/TESTING/EIG/cchkst.f index 2d25f3fb1d..95747d0519 100644 --- a/lapack-netlib/TESTING/EIG/cchkst.f +++ b/lapack-netlib/TESTING/EIG/cchkst.f @@ -593,8 +593,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -604,10 +602,9 @@ SUBROUTINE CCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cchkst2stg.f b/lapack-netlib/TESTING/EIG/cchkst2stg.f index 8c7f962b74..e4deb8ac85 100644 --- a/lapack-netlib/TESTING/EIG/cchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/cchkst2stg.f @@ -614,8 +614,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -625,10 +623,9 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, @@ -690,7 +687,7 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD, $ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC, $ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR, - $ CUPGTR, CHETRD_2STAGE + $ CUPGTR, CHETRD_2STAGE, SLASET * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, CONJG, INT, LOG, MAX, MIN, SQRT @@ -1014,8 +1011,8 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL CLACPY( 'U', N, N, A, LDA, V, LDU ) LH = MAX(1, 4*N) LW = LWORK - LH @@ -1048,8 +1045,8 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL CLACPY( 'L', N, N, A, LDA, V, LDU ) CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, $ WORK, LH, WORK( LH+1 ), LW, IINFO ) @@ -1075,7 +1072,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1738,7 +1734,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1795,7 +1790,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * Do Tests 29 and 30 * -* * Call CSTEMR to compute D2, do tests. * * Compute D2 @@ -1835,7 +1829,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call CSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1937,7 +1930,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 34 ) = ZERO END IF * -* * Call CSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1994,7 +1986,7 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -2013,7 +2005,6 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2088,6 +2079,7 @@ SUBROUTINE CCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ 4( I4, ',' ), ' result ', I3, ' is', 1P, E10.3 ) * 9987 FORMAT( / 'Test performed: see CCHKST2STG for details.', / ) +* * End of CCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/cckcsd.f b/lapack-netlib/TESTING/EIG/cckcsd.f index 9524cb30bb..3c19827b2a 100644 --- a/lapack-netlib/TESTING/EIG/cckcsd.f +++ b/lapack-netlib/TESTING/EIG/cckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -184,10 +182,9 @@ SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,13 +205,14 @@ SUBROUTINE CCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - REAL GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN + REAL GAPDIGIT, ORTH, REALONE, REALZERO, TEN PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4, - $ PIOVER2 = 1.57079632679489662E0, $ REALONE = 1.0E0, REALZERO = 0.0E0, $ TEN = 10.0E0 ) COMPLEX ONE, ZERO PARAMETER ( ONE = (1.0E0,0.0E0), ZERO = (0.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/cckglm.f b/lapack-netlib/TESTING/EIG/cckglm.f index 33d55123a6..badddb63b4 100644 --- a/lapack-netlib/TESTING/EIG/cckglm.f +++ b/lapack-netlib/TESTING/EIG/cckglm.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE CCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cckgqr.f b/lapack-netlib/TESTING/EIG/cckgqr.f index 05b5f4a603..574d07181d 100644 --- a/lapack-netlib/TESTING/EIG/cckgqr.f +++ b/lapack-netlib/TESTING/EIG/cckgqr.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -211,10 +209,9 @@ SUBROUTINE CCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/cckgsv.f b/lapack-netlib/TESTING/EIG/cckgsv.f index 93e11ecaa8..f3204e2940 100644 --- a/lapack-netlib/TESTING/EIG/cckgsv.f +++ b/lapack-netlib/TESTING/EIG/cckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -198,10 +196,9 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT @@ -229,7 +226,7 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, CHARACTER*3 PATH INTEGER I, IINFO, IM, IMAT, KLA, KLB, KUA, KUB, LDA, $ LDB, LDQ, LDR, LDU, LDV, LWORK, M, MODEA, - $ MODEB, N, NFAIL, NRUN, NT, P + $ MODEB, N, NFAIL, NRUN, NT, P, K, L REAL ANORM, BNORM, CNDNMA, CNDNMB * .. * .. Local Arrays .. @@ -260,6 +257,43 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, LDR = NMAX LWORK = NMAX*NMAX * +* Specific cases +* +* Test: https://github.com/Reference-LAPACK/lapack/issues/411#issue-608776973 +* + M = 6 + P = 6 + N = 6 + A(1:M*N) = CMPLX(1.E0, 0.E0) + B(1:M*N) = CMPLX(0.E0, 0.E0) + B(1+0*M) = CMPLX(9.E19, 0.E0) + B(2+1*M) = CMPLX(9.E18, 0.E0) + B(3+2*M) = CMPLX(9.E17, 0.E0) + B(4+3*M) = CMPLX(9.E16, 0.E0) + B(5+4*M) = CMPLX(9.E15, 0.E0) + B(6+5*M) = CMPLX(9.E14, 0.E0) + CALL CGGSVD3('N','N','N', M, P, N, K, L, A, M, B, M, + $ ALPHA, BETA, U, 1, V, 1, Q, 1, + $ WORK, M*N, RWORK, IWORK, INFO) +* +* Print information there is a NAN in BETA + DO 40 I = 1, L + IF( BETA(I).NE.BETA(I) ) THEN + INFO = -I + EXIT + END IF + 40 CONTINUE + IF( INFO.LT.0 ) THEN + IF( NFAIL.EQ.0 .AND. FIRSTT ) THEN + FIRSTT = .FALSE. + CALL ALAHDG( NOUT, PATH ) + END IF + WRITE( NOUT, FMT = 9997 ) -INFO + NFAIL = NFAIL + 1 + END IF + NRUN = NRUN + 1 + INFO = 0 +* * Do for each value of M in MVAL. * DO 30 IM = 1, NM @@ -335,6 +369,7 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, 9999 FORMAT( ' CLATMS in CCKGSV INFO = ', I5 ) 9998 FORMAT( ' M=', I4, ' P=', I4, ', N=', I4, ', type ', I2, $ ', test ', I2, ', ratio=', G13.6 ) + 9997 FORMAT( ' FOUND NaN in BETA(', I4,')' ) RETURN * * End of CCKGSV diff --git a/lapack-netlib/TESTING/EIG/ccklse.f b/lapack-netlib/TESTING/EIG/ccklse.f index 13e85e1174..d9cff9bcbc 100644 --- a/lapack-netlib/TESTING/EIG/ccklse.f +++ b/lapack-netlib/TESTING/EIG/ccklse.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE CCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/ccsdts.f b/lapack-netlib/TESTING/EIG/ccsdts.f index e2dd218120..9a2aa91e6c 100644 --- a/lapack-netlib/TESTING/EIG/ccsdts.f +++ b/lapack-netlib/TESTING/EIG/ccsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -229,10 +227,9 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ SUBROUTINE CCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * ===================================================================== * * .. Parameters .. - REAL PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662E0, - $ REALONE = 1.0E0, REALZERO = 0.0E0 ) + REAL REALONE, REALZERO + PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 ) COMPLEX ZERO, ONE PARAMETER ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/cdrges.f b/lapack-netlib/TESTING/EIG/cdrges.f index d6e28f2840..b28b190f5f 100644 --- a/lapack-netlib/TESTING/EIG/cdrges.f +++ b/lapack-netlib/TESTING/EIG/cdrges.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -381,10 +379,9 @@ SUBROUTINE CDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/cdrges3.f b/lapack-netlib/TESTING/EIG/cdrges3.f index cea7f8b755..dd1d9ed5c2 100644 --- a/lapack-netlib/TESTING/EIG/cdrges3.f +++ b/lapack-netlib/TESTING/EIG/cdrges3.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -382,10 +380,9 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -744,6 +741,14 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RSUB = 5 END IF * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call CGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL CLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/cdrgev.f b/lapack-netlib/TESTING/EIG/cdrgev.f index 2a8ce8f708..0e4d131c8a 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev.f +++ b/lapack-netlib/TESTING/EIG/cdrgev.f @@ -69,7 +69,7 @@ *> *> VL(i) denotes the i-th column of VL. *> -*> (3) max over all left eigenvalue/-vector pairs (alpha/beta,r) of +*> (3) max over all right eigenvalue/-vector pairs (alpha/beta,r) of *> *> | (beta A - alpha B) * VR | / ( ulp max(|beta A|, |alpha B|) ) *> @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -399,10 +397,9 @@ SUBROUTINE CDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrgev3.f b/lapack-netlib/TESTING/EIG/cdrgev3.f index 13fb366e49..fbb74cf70c 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev3.f +++ b/lapack-netlib/TESTING/EIG/cdrgev3.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -399,10 +397,9 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -736,6 +733,14 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call CGGEV3 to compute eigenvalues and eigenvectors. * CALL CLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/cdrgsx.f b/lapack-netlib/TESTING/EIG/cdrgsx.f index 746946d075..c5baeef5ee 100644 --- a/lapack-netlib/TESTING/EIG/cdrgsx.f +++ b/lapack-netlib/TESTING/EIG/cdrgsx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -349,10 +347,9 @@ SUBROUTINE CDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, $ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, $ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/cdrgvx.f b/lapack-netlib/TESTING/EIG/cdrgvx.f index bed8e472f3..830a39d869 100644 --- a/lapack-netlib/TESTING/EIG/cdrgvx.f +++ b/lapack-netlib/TESTING/EIG/cdrgvx.f @@ -288,8 +288,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -298,10 +296,9 @@ SUBROUTINE CDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/cdrvbd.f b/lapack-netlib/TESTING/EIG/cdrvbd.f index 7b7b01b475..97ee21728d 100644 --- a/lapack-netlib/TESTING/EIG/cdrvbd.f +++ b/lapack-netlib/TESTING/EIG/cdrvbd.f @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -401,10 +399,9 @@ SUBROUTINE CDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/cdrves.f b/lapack-netlib/TESTING/EIG/cdrves.f index 3e4a7ff3f5..81a44a5836 100644 --- a/lapack-netlib/TESTING/EIG/cdrves.f +++ b/lapack-netlib/TESTING/EIG/cdrves.f @@ -369,8 +369,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE CDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/cdrvev.f b/lapack-netlib/TESTING/EIG/cdrvev.f index d1e289bf40..6a834b6d92 100644 --- a/lapack-netlib/TESTING/EIG/cdrvev.f +++ b/lapack-netlib/TESTING/EIG/cdrvev.f @@ -381,8 +381,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -391,10 +389,9 @@ SUBROUTINE CDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrvsg.f b/lapack-netlib/TESTING/EIG/cdrvsg.f index 7e34ad0db0..a93933a278 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -370,10 +368,9 @@ SUBROUTINE CDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f index 3b7156b424..8b85537739 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f @@ -366,8 +366,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE CDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvst.f b/lapack-netlib/TESTING/EIG/cdrvst.f index dbf1e011a2..9c129c0e88 100644 --- a/lapack-netlib/TESTING/EIG/cdrvst.f +++ b/lapack-netlib/TESTING/EIG/cdrvst.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -338,10 +336,9 @@ SUBROUTINE CDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvst2stg.f b/lapack-netlib/TESTING/EIG/cdrvst2stg.f index 095bd7885a..954c7fb87a 100644 --- a/lapack-netlib/TESTING/EIG/cdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/cdrvst2stg.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== @@ -338,10 +336,9 @@ SUBROUTINE CDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvsx.f b/lapack-netlib/TESTING/EIG/cdrvsx.f index 9def66306b..0265ff2715 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsx.f +++ b/lapack-netlib/TESTING/EIG/cdrvsx.f @@ -425,8 +425,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -435,10 +433,9 @@ SUBROUTINE CDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrvvx.f b/lapack-netlib/TESTING/EIG/cdrvvx.f index 37a29ec4ee..f1f5a0bace 100644 --- a/lapack-netlib/TESTING/EIG/cdrvvx.f +++ b/lapack-netlib/TESTING/EIG/cdrvvx.f @@ -485,8 +485,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -496,10 +494,9 @@ SUBROUTINE CDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cerrbd.f b/lapack-netlib/TESTING/EIG/cerrbd.f index 6cb7f65529..76503ae090 100644 --- a/lapack-netlib/TESTING/EIG/cerrbd.f +++ b/lapack-netlib/TESTING/EIG/cerrbd.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrec.f b/lapack-netlib/TESTING/EIG/cerrec.f index 13176fecfa..650ab2b6e6 100644 --- a/lapack-netlib/TESTING/EIG/cerrec.f +++ b/lapack-netlib/TESTING/EIG/cerrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerred.f b/lapack-netlib/TESTING/EIG/cerred.f index a0ceff76e7..98d1570805 100644 --- a/lapack-netlib/TESTING/EIG/cerred.f +++ b/lapack-netlib/TESTING/EIG/cerred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrgg.f b/lapack-netlib/TESTING/EIG/cerrgg.f index 5a53d23431..3839b5f2c3 100644 --- a/lapack-netlib/TESTING/EIG/cerrgg.f +++ b/lapack-netlib/TESTING/EIG/cerrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -100,7 +97,7 @@ SUBROUTINE CERRGG( PATH, NUNIT ) $ CGGLSE, CGGQRF, CGGRQF, CHGEQZ, $ CHKXER, CTGEVC, CTGEXC, CTGSEN, CTGSJA, CTGSNA, $ CTGSYL, CUNCSD, CGGES3, CGGEV3, CGGHD3, - $ CGGSVD3, CGGSVP3 + $ CGGSVD3, CGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -138,6 +135,14 @@ SUBROUTINE CERRGG( PATH, NUNIT ) NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/cerrhs.f b/lapack-netlib/TESTING/EIG/cerrhs.f index ccd47a3bfb..0568a6d786 100644 --- a/lapack-netlib/TESTING/EIG/cerrhs.f +++ b/lapack-netlib/TESTING/EIG/cerrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrst.f b/lapack-netlib/TESTING/EIG/cerrst.f index 4aa5aebe3f..eef34b44bb 100644 --- a/lapack-netlib/TESTING/EIG/cerrst.f +++ b/lapack-netlib/TESTING/EIG/cerrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cget02.f b/lapack-netlib/TESTING/EIG/cget02.f index 1b7f6b384a..ac5fedaeab 100644 --- a/lapack-netlib/TESTING/EIG/cget02.f +++ b/lapack-netlib/TESTING/EIG/cget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> CGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +115,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = CLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/cget10.f b/lapack-netlib/TESTING/EIG/cget10.f index 0b8186454b..9e6b34ba8a 100644 --- a/lapack-netlib/TESTING/EIG/cget10.f +++ b/lapack-netlib/TESTING/EIG/cget10.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/cget22.f b/lapack-netlib/TESTING/EIG/cget22.f index 91aec3a3f1..2f0896741b 100644 --- a/lapack-netlib/TESTING/EIG/cget22.f +++ b/lapack-netlib/TESTING/EIG/cget22.f @@ -125,6 +125,7 @@ *> RESULT is REAL array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -135,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -299,7 +297,7 @@ SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/cget23.f b/lapack-netlib/TESTING/EIG/cget23.f index 1a2d4fb486..b4a8c4631c 100644 --- a/lapack-netlib/TESTING/EIG/cget23.f +++ b/lapack-netlib/TESTING/EIG/cget23.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -368,10 +366,9 @@ SUBROUTINE CGET23( COMP, ISRT, BALANC, JTYPE, THRESH, ISEED, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/cget24.f b/lapack-netlib/TESTING/EIG/cget24.f index e97003a2f5..4674b62265 100644 --- a/lapack-netlib/TESTING/EIG/cget24.f +++ b/lapack-netlib/TESTING/EIG/cget24.f @@ -325,8 +325,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -335,10 +333,9 @@ SUBROUTINE CGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/cget35.f b/lapack-netlib/TESTING/EIG/cget35.f index 241f3ea302..4f03ab9eee 100644 --- a/lapack-netlib/TESTING/EIG/cget35.f +++ b/lapack-netlib/TESTING/EIG/cget35.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/cget36.f b/lapack-netlib/TESTING/EIG/cget36.f index 4b46f3bc3b..7f943f2564 100644 --- a/lapack-netlib/TESTING/EIG/cget36.f +++ b/lapack-netlib/TESTING/EIG/cget36.f @@ -78,17 +78,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/cget37.f b/lapack-netlib/TESTING/EIG/cget37.f index 536e4ca3e3..c2a6589f32 100644 --- a/lapack-netlib/TESTING/EIG/cget37.f +++ b/lapack-netlib/TESTING/EIG/cget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/cget38.f b/lapack-netlib/TESTING/EIG/cget38.f index bbf9209346..9925f3fd70 100644 --- a/lapack-netlib/TESTING/EIG/cget38.f +++ b/lapack-netlib/TESTING/EIG/cget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/cget51.f b/lapack-netlib/TESTING/EIG/cget51.f index ec58086d4d..3781c6a88b 100644 --- a/lapack-netlib/TESTING/EIG/cget51.f +++ b/lapack-netlib/TESTING/EIG/cget51.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/cget52.f b/lapack-netlib/TESTING/EIG/cget52.f index d0debc5351..30bf6ba394 100644 --- a/lapack-netlib/TESTING/EIG/cget52.f +++ b/lapack-netlib/TESTING/EIG/cget52.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -237,7 +234,7 @@ SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * DO 10 JVEC = 1, N ALPHAI = ALPHA( JVEC ) @@ -277,7 +274,7 @@ SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) 30 CONTINUE * * Compute RESULT(2) : the normalization error in E. diff --git a/lapack-netlib/TESTING/EIG/cget54.f b/lapack-netlib/TESTING/EIG/cget54.f index 955a234004..ce8376fc6d 100644 --- a/lapack-netlib/TESTING/EIG/cget54.f +++ b/lapack-netlib/TESTING/EIG/cget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/cglmts.f b/lapack-netlib/TESTING/EIG/cglmts.f index 101c07601f..ecf8699f27 100644 --- a/lapack-netlib/TESTING/EIG/cglmts.f +++ b/lapack-netlib/TESTING/EIG/cglmts.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgqrts.f b/lapack-netlib/TESTING/EIG/cgqrts.f index a1d8b807c7..6a5bcc2d4e 100644 --- a/lapack-netlib/TESTING/EIG/cgqrts.f +++ b/lapack-netlib/TESTING/EIG/cgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgrqts.f b/lapack-netlib/TESTING/EIG/cgrqts.f index e024c78a0a..103820ec11 100644 --- a/lapack-netlib/TESTING/EIG/cgrqts.f +++ b/lapack-netlib/TESTING/EIG/cgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgsvts3.f b/lapack-netlib/TESTING/EIG/cgsvts3.f index 7e6e4352a2..699f14b1cb 100644 --- a/lapack-netlib/TESTING/EIG/cgsvts3.f +++ b/lapack-netlib/TESTING/EIG/cgsvts3.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -209,10 +207,9 @@ SUBROUTINE CGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/chbt21.f b/lapack-netlib/TESTING/EIG/chbt21.f index 76eb7d115a..b41936aa59 100644 --- a/lapack-netlib/TESTING/EIG/chbt21.f +++ b/lapack-netlib/TESTING/EIG/chbt21.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chet21.f b/lapack-netlib/TESTING/EIG/chet21.f index d5c4f13481..a274681c98 100644 --- a/lapack-netlib/TESTING/EIG/chet21.f +++ b/lapack-netlib/TESTING/EIG/chet21.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chet22.f b/lapack-netlib/TESTING/EIG/chet22.f index 354387f2a4..27f22e9a42 100644 --- a/lapack-netlib/TESTING/EIG/chet22.f +++ b/lapack-netlib/TESTING/EIG/chet22.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chkxer.f b/lapack-netlib/TESTING/EIG/chkxer.f index 26d6e46886..fd00bb65a7 100644 --- a/lapack-netlib/TESTING/EIG/chkxer.f +++ b/lapack-netlib/TESTING/EIG/chkxer.f @@ -34,17 +34,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LERR, OK @@ -66,6 +63,6 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) 9999 FORMAT( ' *** Illegal value of parameter number ', I2, $ ' not detected by ', A6, ' ***' ) * -* End of CHKXER. +* End of CHKXER * END diff --git a/lapack-netlib/TESTING/EIG/chpt21.f b/lapack-netlib/TESTING/EIG/chpt21.f index f20921bd94..bc342ca357 100644 --- a/lapack-netlib/TESTING/EIG/chpt21.f +++ b/lapack-netlib/TESTING/EIG/chpt21.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chst01.f b/lapack-netlib/TESTING/EIG/chst01.f index f0c428c88c..286daee2c9 100644 --- a/lapack-netlib/TESTING/EIG/chst01.f +++ b/lapack-netlib/TESTING/EIG/chst01.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/clarfy.f b/lapack-netlib/TESTING/EIG/clarfy.f index a5743858c4..80329cab43 100644 --- a/lapack-netlib/TESTING/EIG/clarfy.f +++ b/lapack-netlib/TESTING/EIG/clarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/clarhs.f b/lapack-netlib/TESTING/EIG/clarhs.f index 1143be85db..2d70abe211 100644 --- a/lapack-netlib/TESTING/EIG/clarhs.f +++ b/lapack-netlib/TESTING/EIG/clarhs.f @@ -30,8 +30,7 @@ *> CLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/clatm4.f b/lapack-netlib/TESTING/EIG/clatm4.f index 833234f99c..12d0c63182 100644 --- a/lapack-netlib/TESTING/EIG/clatm4.f +++ b/lapack-netlib/TESTING/EIG/clatm4.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL RSIGN diff --git a/lapack-netlib/TESTING/EIG/clctes.f b/lapack-netlib/TESTING/EIG/clctes.f index 6a7e71c4d4..9bf95cbc4a 100644 --- a/lapack-netlib/TESTING/EIG/clctes.f +++ b/lapack-netlib/TESTING/EIG/clctes.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CLCTES( Z, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX D, Z diff --git a/lapack-netlib/TESTING/EIG/clctsx.f b/lapack-netlib/TESTING/EIG/clctsx.f index fbf19e40b5..39c5cf321a 100644 --- a/lapack-netlib/TESTING/EIG/clctsx.f +++ b/lapack-netlib/TESTING/EIG/clctsx.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX ALPHA, BETA diff --git a/lapack-netlib/TESTING/EIG/clsets.f b/lapack-netlib/TESTING/EIG/clsets.f index 13e037df6d..2124a9e091 100644 --- a/lapack-netlib/TESTING/EIG/clsets.f +++ b/lapack-netlib/TESTING/EIG/clsets.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/csbmv.f b/lapack-netlib/TESTING/EIG/csbmv.f index dc1b2330d3..567ea45178 100644 --- a/lapack-netlib/TESTING/EIG/csbmv.f +++ b/lapack-netlib/TESTING/EIG/csbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/csgt01.f b/lapack-netlib/TESTING/EIG/csgt01.f index e6d6bb3e22..828669d48d 100644 --- a/lapack-netlib/TESTING/EIG/csgt01.f +++ b/lapack-netlib/TESTING/EIG/csgt01.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/cslect.f b/lapack-netlib/TESTING/EIG/cslect.f index 1092b630ad..be324ec3c2 100644 --- a/lapack-netlib/TESTING/EIG/cslect.f +++ b/lapack-netlib/TESTING/EIG/cslect.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CSLECT( Z ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX Z diff --git a/lapack-netlib/TESTING/EIG/cstt21.f b/lapack-netlib/TESTING/EIG/cstt21.f index 3fdfa16751..58f426961f 100644 --- a/lapack-netlib/TESTING/EIG/cstt21.f +++ b/lapack-netlib/TESTING/EIG/cstt21.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/cstt22.f b/lapack-netlib/TESTING/EIG/cstt22.f index 2db3736e81..bd09f63020 100644 --- a/lapack-netlib/TESTING/EIG/cstt22.f +++ b/lapack-netlib/TESTING/EIG/cstt22.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/cunt01.f b/lapack-netlib/TESTING/EIG/cunt01.f index 20c5682184..d8928954f7 100644 --- a/lapack-netlib/TESTING/EIG/cunt01.f +++ b/lapack-netlib/TESTING/EIG/cunt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/cunt03.f b/lapack-netlib/TESTING/EIG/cunt03.f index 8e1fd207fa..56165f9543 100644 --- a/lapack-netlib/TESTING/EIG/cunt03.f +++ b/lapack-netlib/TESTING/EIG/cunt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/dbdt01.f b/lapack-netlib/TESTING/EIG/dbdt01.f index 4b2219e5d7..69e0b5ffc2 100644 --- a/lapack-netlib/TESTING/EIG/dbdt01.f +++ b/lapack-netlib/TESTING/EIG/dbdt01.f @@ -27,13 +27,13 @@ *> \verbatim *> *> DBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal +*> A = Q * B * P**T +*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -48,7 +48,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**T. *> \endverbatim *> *> \param[in] KD @@ -77,7 +77,7 @@ *> \verbatim *> Q is DOUBLE PRECISION array, dimension (LDQ,N) *> The m by min(m,n) orthogonal matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDQ @@ -102,8 +102,8 @@ *> \param[in] PT *> \verbatim *> PT is DOUBLE PRECISION array, dimension (LDPT,N) -*> The min(m,n) by n orthogonal matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n orthogonal matrix P**T in the reduction +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDPT @@ -121,7 +121,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -132,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -183,7 +181,7 @@ SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**T one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -261,7 +259,7 @@ SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) * ANORM = DLANGE( '1', M, N, A, LDA, WORK ) EPS = DLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/dbdt02.f b/lapack-netlib/TESTING/EIG/dbdt02.f index 2f7c8c1f91..76e3ff713d 100644 --- a/lapack-netlib/TESTING/EIG/dbdt02.f +++ b/lapack-netlib/TESTING/EIG/dbdt02.f @@ -25,7 +25,8 @@ *> *> \verbatim *> -*> DBDT02 tests the change of basis C = U' * B by computing the residual +*> DBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -64,7 +65,7 @@ *> \param[in] C *> \verbatim *> C is DOUBLE PRECISION array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -104,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/dbdt03.f b/lapack-netlib/TESTING/EIG/dbdt03.f index 80c0473311..8af6162c96 100644 --- a/lapack-netlib/TESTING/EIG/dbdt03.f +++ b/lapack-netlib/TESTING/EIG/dbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dbdt04.f b/lapack-netlib/TESTING/EIG/dbdt04.f index 494442cc9a..1c07135552 100644 --- a/lapack-netlib/TESTING/EIG/dbdt04.f +++ b/lapack-netlib/TESTING/EIG/dbdt04.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dbdt05.f b/lapack-netlib/TESTING/EIG/dbdt05.f index 356bb5fc83..e4e6fcac68 100644 --- a/lapack-netlib/TESTING/EIG/dbdt05.f +++ b/lapack-netlib/TESTING/EIG/dbdt05.f @@ -1,3 +1,5 @@ +*> \brief \b DBDT05 +* * =========== DOCUMENTATION =========== * * Online html documentation available at @@ -117,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/dchkbb.f b/lapack-netlib/TESTING/EIG/dchkbb.f index 51a29585bd..9fec997288 100644 --- a/lapack-netlib/TESTING/EIG/dchkbb.f +++ b/lapack-netlib/TESTING/EIG/dchkbb.f @@ -345,8 +345,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -358,7 +356,6 @@ SUBROUTINE DCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/dchkbd.f b/lapack-netlib/TESTING/EIG/dchkbd.f index 0557574d35..a24acfab2b 100644 --- a/lapack-netlib/TESTING/EIG/dchkbd.f +++ b/lapack-netlib/TESTING/EIG/dchkbd.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -493,10 +491,9 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/dchkbk.f b/lapack-netlib/TESTING/EIG/dchkbk.f index 2accd4bfd9..364b8f6b1f 100644 --- a/lapack-netlib/TESTING/EIG/dchkbk.f +++ b/lapack-netlib/TESTING/EIG/dchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkbl.f b/lapack-netlib/TESTING/EIG/dchkbl.f index 403d4edc54..7237dacf29 100644 --- a/lapack-netlib/TESTING/EIG/dchkbl.f +++ b/lapack-netlib/TESTING/EIG/dchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkec.f b/lapack-netlib/TESTING/EIG/dchkec.f index 0b0f7c1e38..8549618842 100644 --- a/lapack-netlib/TESTING/EIG/dchkec.f +++ b/lapack-netlib/TESTING/EIG/dchkec.f @@ -24,7 +24,7 @@ *> *> DCHKEC tests eigen- condition estimation routines *> DLALN2, DLASY2, DLANV2, DLAQTR, DLAEXC, -*> DTRSYL, DTREXC, DTRSNA, DTRSEN +*> DTRSYL, DTREXC, DTRSNA, DTRSEN, DTGEXC *> *> In all cases, the routine runs through a fixed set of numerical *> examples, subjects them to various tests, and compares the test @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -95,9 +92,9 @@ SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC, $ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2, $ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR, - $ NLASY2, NTESTS, NTRSYL + $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC DOUBLE PRECISION EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2, - $ RTREXC, RTRSYL, SFMIN + $ RTREXC, RTRSYL, SFMIN, RTGEXC * .. * .. Local Arrays .. INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ), @@ -107,7 +104,7 @@ SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) * .. * .. External Subroutines .. EXTERNAL DERREC, DGET31, DGET32, DGET33, DGET34, DGET35, - $ DGET36, DGET37, DGET38, DGET39 + $ DGET36, DGET37, DGET38, DGET39, DGET40 * .. * .. External Functions .. DOUBLE PRECISION DLAMCH @@ -189,9 +186,15 @@ SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) OK = .FALSE. WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR END IF +* + CALL DGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN ) + IF( RTGEXC.GT.THRESH ) THEN + OK = .FALSE. + WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC + END IF * NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC + - $ KTRSNA + KTRSEN + KLAQTR + $ KTRSNA + KTRSEN + KLAQTR + KTGEXC IF( OK ) $ WRITE( NOUT, FMT = 9990 )PATH, NTESTS * @@ -218,11 +221,13 @@ SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) $ 'old ( ', I6, ' tests run)' ) 9989 FORMAT( ' Tests of the Nonsymmetric eigenproblem condition estim', $ 'ation routines', / ' DLALN2, DLASY2, DLANV2, DLAEXC, DTRS', - $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR', / ) + $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR, DTGEXC', / ) 9988 FORMAT( ' Relative machine precision (EPS) = ', D16.6, / ' Safe ', $ 'minimum (SFMIN) = ', D16.6, / ) 9987 FORMAT( ' Routines pass computational tests if test ratio is les', $ 's than', F8.2, / / ) + 9986 FORMAT( ' Error in DTGEXC: RMAX =', D12.3, / ' LMAX = ', I8, ' N', + $ 'INFO=', I8, ' KNT=', I8 ) * * End of DCHKEC * diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F index 89b6958fea..2b8e0b371d 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.F +++ b/lapack-netlib/TESTING/EIG/dchkee.F @@ -1033,8 +1033,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -1044,10 +1042,9 @@ PROGRAM DCHKEE use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/dchkgg.f b/lapack-netlib/TESTING/EIG/dchkgg.f index 912ca4ae07..15e1360ea3 100644 --- a/lapack-netlib/TESTING/EIG/dchkgg.f +++ b/lapack-netlib/TESTING/EIG/dchkgg.f @@ -500,8 +500,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -511,10 +509,9 @@ SUBROUTINE DCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/dchkgk.f b/lapack-netlib/TESTING/EIG/dchkgk.f index 85c7325d49..9ba567d743 100644 --- a/lapack-netlib/TESTING/EIG/dchkgk.f +++ b/lapack-netlib/TESTING/EIG/dchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkgl.f b/lapack-netlib/TESTING/EIG/dchkgl.f index d7fd0cadc0..60fee9870a 100644 --- a/lapack-netlib/TESTING/EIG/dchkgl.f +++ b/lapack-netlib/TESTING/EIG/dchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkhs.f b/lapack-netlib/TESTING/EIG/dchkhs.f index 375a70e9a4..2e57498965 100644 --- a/lapack-netlib/TESTING/EIG/dchkhs.f +++ b/lapack-netlib/TESTING/EIG/dchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -412,10 +410,9 @@ SUBROUTINE DCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/dchksb.f b/lapack-netlib/TESTING/EIG/dchksb.f index b95e595de2..86f849b77c 100644 --- a/lapack-netlib/TESTING/EIG/dchksb.f +++ b/lapack-netlib/TESTING/EIG/dchksb.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -293,10 +291,9 @@ SUBROUTINE DCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/dchksb2stg.f b/lapack-netlib/TESTING/EIG/dchksb2stg.f index 88f6e18d36..878da8b6f0 100644 --- a/lapack-netlib/TESTING/EIG/dchksb2stg.f +++ b/lapack-netlib/TESTING/EIG/dchksb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b DCHKSBSTG +*> \brief \b DCHKSB2STG * * =========== DOCUMENTATION =========== * @@ -21,6 +21,7 @@ * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) * DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ), * $ U( LDU, * ), WORK( * ) * .. * @@ -30,18 +31,18 @@ *> *> \verbatim *> -*> DCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal +*> DCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal *> form, used with the symmetric eigenvalue problem. *> *> DSBTRD factors a symmetric band matrix A as U S U' , where ' means *> transpose, S is symmetric tridiagonal, and U is orthogonal. *> DSBTRD can use either just the lower or just the upper triangle -*> of A; DCHKSBSTG checks both cases. +*> of A; DCHKSB2STG checks both cases. *> *> DSYTRD_SB2ST factors a symmetric band matrix A as U S U' , *> where ' means transpose, S is symmetric tridiagonal, and U is *> orthogonal. DSYTRD_SB2ST can use either just the lower or just -*> the upper triangle of A; DCHKSBSTG checks both cases. +*> the upper triangle of A; DCHKSB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -51,7 +52,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When DCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When DCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -125,7 +126,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> DCHKSBSTG does nothing. It must be at least zero. +*> DCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -140,7 +141,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> DCHKSBSTG does nothing. It must be at least zero. +*> DCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -153,7 +154,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, DCHKSBSTG +*> The number of elements in DOTYPE. If it is zero, DCHKSB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -183,7 +184,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to DCHKSBSTG to continue the same random number +*> next call to DCHKSB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -234,6 +235,21 @@ *> computed by DSBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is DOUBLE PRECISION array, dimension (LDU, max(NN)) @@ -307,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== @@ -316,10 +330,9 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -422,7 +435,7 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'DCHKSBSTG', -INFO ) + CALL XERBLA( 'DCHKSB2STG', -INFO ) RETURN END IF * @@ -827,12 +840,12 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, CALL DLASUM( 'DSB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' DCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' DCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * 9998 FORMAT( / 1X, A3, $ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' ) - 9997 FORMAT( ' Matrix types (see DCHKSBSTG for details): ' ) + 9997 FORMAT( ' Matrix types (see DCHKSB2STG for details): ' ) * 9996 FORMAT( / ' Special Matrices:', $ / ' 1=Zero matrix. ', @@ -863,6 +876,6 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of DCHKSBSTG +* End of DCHKSB2STG * END diff --git a/lapack-netlib/TESTING/EIG/dchkst.f b/lapack-netlib/TESTING/EIG/dchkst.f index 1b4d85f79b..2e04f68c53 100644 --- a/lapack-netlib/TESTING/EIG/dchkst.f +++ b/lapack-netlib/TESTING/EIG/dchkst.f @@ -581,8 +581,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -591,10 +589,9 @@ SUBROUTINE DCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/dchkst2stg.f b/lapack-netlib/TESTING/EIG/dchkst2stg.f index 7115175c29..2c98b802d3 100644 --- a/lapack-netlib/TESTING/EIG/dchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/dchkst2stg.f @@ -602,8 +602,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -612,10 +610,9 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -1058,7 +1055,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1718,7 +1714,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1817,7 +1812,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call DSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1919,7 +1913,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 34 ) = ZERO END IF * -* * Call DSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1976,7 +1969,7 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -1995,7 +1988,6 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2063,6 +2055,7 @@ SUBROUTINE DCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ', test(', I2, ')=', G10.3 ) * 9988 FORMAT( / 'Test performed: see DCHKST2STG for details.', / ) +* * End of DCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/dckcsd.f b/lapack-netlib/TESTING/EIG/dckcsd.f index 063a5ef5cc..90ba75b4ce 100644 --- a/lapack-netlib/TESTING/EIG/dckcsd.f +++ b/lapack-netlib/TESTING/EIG/dckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -184,10 +182,9 @@ SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,11 +205,12 @@ SUBROUTINE DCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - DOUBLE PRECISION GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO + DOUBLE PRECISION GAPDIGIT, ONE, ORTH, TEN, ZERO PARAMETER ( GAPDIGIT = 18.0D0, ONE = 1.0D0, $ ORTH = 1.0D-12, - $ PIOVER2 = 1.57079632679489662D0, $ TEN = 10.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/dckglm.f b/lapack-netlib/TESTING/EIG/dckglm.f index a47e9dbe1f..389ba49328 100644 --- a/lapack-netlib/TESTING/EIG/dckglm.f +++ b/lapack-netlib/TESTING/EIG/dckglm.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dckgqr.f b/lapack-netlib/TESTING/EIG/dckgqr.f index eb86643fc3..a810facc0e 100644 --- a/lapack-netlib/TESTING/EIG/dckgqr.f +++ b/lapack-netlib/TESTING/EIG/dckgqr.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE DCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/dckgsv.f b/lapack-netlib/TESTING/EIG/dckgsv.f index bc57ff8416..3b60dde6b7 100644 --- a/lapack-netlib/TESTING/EIG/dckgsv.f +++ b/lapack-netlib/TESTING/EIG/dckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -198,10 +196,9 @@ SUBROUTINE DCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/dcklse.f b/lapack-netlib/TESTING/EIG/dcklse.f index 7d9b3f594d..b2dbbf1e52 100644 --- a/lapack-netlib/TESTING/EIG/dcklse.f +++ b/lapack-netlib/TESTING/EIG/dcklse.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dcsdts.f b/lapack-netlib/TESTING/EIG/dcsdts.f index 14ffc7814a..a671a8a258 100644 --- a/lapack-netlib/TESTING/EIG/dcsdts.f +++ b/lapack-netlib/TESTING/EIG/dcsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -229,10 +227,9 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ SUBROUTINE DCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662D0, - $ REALONE = 1.0D0, REALZERO = 0.0D0 ) + DOUBLE PRECISION REALONE, REALZERO + PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 ) DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/ddrges.f b/lapack-netlib/TESTING/EIG/ddrges.f index 035ba04d0b..abb10547a0 100644 --- a/lapack-netlib/TESTING/EIG/ddrges.f +++ b/lapack-netlib/TESTING/EIG/ddrges.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -403,10 +401,9 @@ SUBROUTINE DDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/ddrges3.f b/lapack-netlib/TESTING/EIG/ddrges3.f index 3b23deebef..770ae09c07 100644 --- a/lapack-netlib/TESTING/EIG/ddrges3.f +++ b/lapack-netlib/TESTING/EIG/ddrges3.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -403,10 +401,9 @@ SUBROUTINE DDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -749,6 +746,14 @@ SUBROUTINE DDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RSUB = 5 END IF * +* Call XLAENV to set the parameters used in DLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call DGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL DLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/ddrgev.f b/lapack-netlib/TESTING/EIG/ddrgev.f index c587e66aba..536ab36e1d 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev.f +++ b/lapack-netlib/TESTING/EIG/ddrgev.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -408,10 +406,9 @@ SUBROUTINE DDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrgev3.f b/lapack-netlib/TESTING/EIG/ddrgev3.f index 1c60e44347..20a64361cc 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev3.f +++ b/lapack-netlib/TESTING/EIG/ddrgev3.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -408,10 +406,9 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -434,7 +431,7 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) INTEGER MAXTYP - PARAMETER ( MAXTYP = 26 ) + PARAMETER ( MAXTYP = 27 ) * .. * .. Local Scalars .. LOGICAL BADNN @@ -465,26 +462,26 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, INTRINSIC ABS, DBLE, MAX, MIN, SIGN * .. * .. Data statements .. - DATA KCLASS / 15*1, 10*2, 1*3 / + DATA KCLASS / 15*1, 10*2, 1*3, 1*4 / DATA KZ1 / 0, 1, 2, 1, 3, 3 / DATA KZ2 / 0, 0, 1, 2, 1, 1 / DATA KADD / 0, 0, 0, 0, 3, 2 / DATA KATYPE / 0, 1, 0, 1, 2, 3, 4, 1, 4, 4, 1, 1, 4, - $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0 / + $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0, 0 / DATA KBTYPE / 0, 0, 1, 1, 2, -3, 1, 4, 1, 1, 4, 4, - $ 1, 1, -4, 2, -4, 8*8, 0 / + $ 1, 1, -4, 2, -4, 8*8, 0, 0 / DATA KAZERO / 6*1, 2, 1, 2*2, 2*1, 2*2, 3, 1, 3, - $ 4*5, 4*3, 1 / + $ 4*5, 4*3, 1, 1 / DATA KBZERO / 6*1, 1, 2, 2*1, 2*2, 2*1, 4, 1, 4, - $ 4*6, 4*4, 1 / + $ 4*6, 4*4, 1, 1 / DATA KAMAGN / 8*1, 2, 3, 2, 3, 2, 3, 7*1, 2, 3, 3, - $ 2, 1 / + $ 2, 1, 3 / DATA KBMAGN / 8*1, 3, 2, 3, 2, 2, 3, 7*1, 3, 2, 3, - $ 2, 1 / - DATA KTRIAN / 16*0, 10*1 / + $ 2, 1, 3 / + DATA KTRIAN / 16*0, 11*1 / DATA IASIGN / 6*0, 2, 0, 2*2, 2*0, 3*2, 0, 2, 3*0, - $ 5*2, 0 / - DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 9*0 / + $ 5*2, 2*0 / + DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 10*0 / * .. * .. Executable Statements .. * @@ -591,7 +588,8 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * Description of control parameters: * * KZLASS: =1 means w/o rotation, =2 means w/ rotation, -* =3 means random. +* =3 means random, =4 means random generalized +* upper Hessenberg. * KATYPE: the "type" to be passed to DLATM4 for computing A. * KAZERO: the pattern of zeros on the diagonal for A: * =1: ( xxx ), =2: (0, xxx ) =3: ( 0, 0, xxx, 0 ), @@ -705,7 +703,7 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, IF( IERR.NE.0 ) $ GO TO 90 END IF - ELSE + ELSE IF (KCLASS( JTYPE ).EQ.3) THEN * * Random matrices * @@ -717,6 +715,32 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ DLARND( 2, ISEED ) 70 CONTINUE 80 CONTINUE + ELSE +* +* Random upper Hessenberg pencil with singular B +* + DO 81 JC = 1, N + DO 71 JR = 1, min( JC + 1, N) + A( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )* + $ DLARND( 2, ISEED ) + 71 CONTINUE + DO 72 JR = JC + 2, N + A( JR, JC ) = ZERO + 72 CONTINUE + 81 CONTINUE + DO 82 JC = 1, N + DO 73 JR = 1, JC + B( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )* + $ DLARND( 2, ISEED ) + 73 CONTINUE + DO 74 JR = JC + 1, N + B( JR, JC ) = ZERO + 74 CONTINUE + 82 CONTINUE + DO 83 JC = 1, N, 4 + B( JC, JC ) = ZERO + 83 CONTINUE + END IF * 90 CONTINUE @@ -734,6 +758,14 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in DLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call DGGEV3 to compute eigenvalues and eigenvectors. * CALL DLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/ddrgsx.f b/lapack-netlib/TESTING/EIG/ddrgsx.f index 7fe9dfc14f..b3f5e23f4a 100644 --- a/lapack-netlib/TESTING/EIG/ddrgsx.f +++ b/lapack-netlib/TESTING/EIG/ddrgsx.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -359,10 +357,9 @@ SUBROUTINE DDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, $ BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/ddrgvx.f b/lapack-netlib/TESTING/EIG/ddrgvx.f index 32d08b5d77..c637621348 100644 --- a/lapack-netlib/TESTING/EIG/ddrgvx.f +++ b/lapack-netlib/TESTING/EIG/ddrgvx.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_eig * * ===================================================================== @@ -300,10 +298,9 @@ SUBROUTINE DDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/ddrvbd.f b/lapack-netlib/TESTING/EIG/ddrvbd.f index bd4ae60da2..ce83234bff 100644 --- a/lapack-netlib/TESTING/EIG/ddrvbd.f +++ b/lapack-netlib/TESTING/EIG/ddrvbd.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -368,10 +366,9 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrves.f b/lapack-netlib/TESTING/EIG/ddrves.f index 2904b633af..d2c2218b0b 100644 --- a/lapack-netlib/TESTING/EIG/ddrves.f +++ b/lapack-netlib/TESTING/EIG/ddrves.f @@ -379,8 +379,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -388,10 +386,9 @@ SUBROUTINE DDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/ddrvev.f b/lapack-netlib/TESTING/EIG/ddrvev.f index a3e6a2023a..3b39fa977c 100644 --- a/lapack-netlib/TESTING/EIG/ddrvev.f +++ b/lapack-netlib/TESTING/EIG/ddrvev.f @@ -396,8 +396,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -406,10 +404,9 @@ SUBROUTINE DDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvsg.f b/lapack-netlib/TESTING/EIG/ddrvsg.f index de094fcd8b..0b49c8404a 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg.f @@ -346,8 +346,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -355,10 +353,9 @@ SUBROUTINE DDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f index 700e4f74d5..196c6b48e6 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -364,10 +362,9 @@ SUBROUTINE DDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f index efa75406f2..a25077018b 100644 --- a/lapack-netlib/TESTING/EIG/ddrvst.f +++ b/lapack-netlib/TESTING/EIG/ddrvst.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -453,10 +451,9 @@ SUBROUTINE DDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvst2stg.f b/lapack-netlib/TESTING/EIG/ddrvst2stg.f index 489c385a16..c9a2632bbf 100644 --- a/lapack-netlib/TESTING/EIG/ddrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/ddrvst2stg.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -453,10 +451,9 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -2796,7 +2793,7 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( NTEST ) = ULPINV RESULT( NTEST+1 ) = ULPINV RESULT( NTEST+2 ) = ULPINV - GO TO 700 + GO TO 1720 END IF END IF * @@ -2823,13 +2820,13 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RETURN ELSE RESULT( NTEST ) = ULPINV - GO TO 700 + GO TO 1720 END IF END IF * IF( M3.EQ.0 .AND. N.GT.0 ) THEN RESULT( NTEST ) = ULPINV - GO TO 700 + GO TO 1720 END IF * * Do test 78 (or +54) diff --git a/lapack-netlib/TESTING/EIG/ddrvsx.f b/lapack-netlib/TESTING/EIG/ddrvsx.f index 9006f1a929..c032a4a0c8 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsx.f +++ b/lapack-netlib/TESTING/EIG/ddrvsx.f @@ -444,8 +444,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -454,10 +452,9 @@ SUBROUTINE DDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvvx.f b/lapack-netlib/TESTING/EIG/ddrvvx.f index b088f6cc33..cbb78d2b6e 100644 --- a/lapack-netlib/TESTING/EIG/ddrvvx.f +++ b/lapack-netlib/TESTING/EIG/ddrvvx.f @@ -510,8 +510,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -521,10 +519,9 @@ SUBROUTINE DDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/derrbd.f b/lapack-netlib/TESTING/EIG/derrbd.f index 934eb2066c..914274ff25 100644 --- a/lapack-netlib/TESTING/EIG/derrbd.f +++ b/lapack-netlib/TESTING/EIG/derrbd.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrec.f b/lapack-netlib/TESTING/EIG/derrec.f index dc0828e0c9..d5863ad426 100644 --- a/lapack-netlib/TESTING/EIG/derrec.f +++ b/lapack-netlib/TESTING/EIG/derrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f index 94264e2566..6df5178253 100644 --- a/lapack-netlib/TESTING/EIG/derred.f +++ b/lapack-netlib/TESTING/EIG/derred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrgg.f b/lapack-netlib/TESTING/EIG/derrgg.f index 5671e94478..6fc61b8727 100644 --- a/lapack-netlib/TESTING/EIG/derrgg.f +++ b/lapack-netlib/TESTING/EIG/derrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -99,7 +96,7 @@ SUBROUTINE DERRGG( PATH, NUNIT ) $ DGGHRD, DGGLSE, DGGQRF, DGGRQF, $ DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA, $ DTGSNA, DTGSYL, DGGHD3, DGGES3, DGGEV3, - $ DGGSVD3, DGGSVP3 + $ DGGSVD3, DGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -137,6 +134,14 @@ SUBROUTINE DERRGG( PATH, NUNIT ) NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN @@ -872,6 +877,11 @@ SUBROUTINE DERRGG( PATH, NUNIT ) * * DGGEV3 * + CALL XLAENV( 12, 20 ) + CALL XLAENV( 13, 4 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) SRNAMT = 'DGGEV3 ' INFOT = 1 CALL DGGEV3( '/', 'N', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1, diff --git a/lapack-netlib/TESTING/EIG/derrhs.f b/lapack-netlib/TESTING/EIG/derrhs.f index a8a2b865e8..fec41c0f0f 100644 --- a/lapack-netlib/TESTING/EIG/derrhs.f +++ b/lapack-netlib/TESTING/EIG/derrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrst.f b/lapack-netlib/TESTING/EIG/derrst.f index a544cfbfb7..f297e5a7d8 100644 --- a/lapack-netlib/TESTING/EIG/derrst.f +++ b/lapack-netlib/TESTING/EIG/derrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/dget02.f b/lapack-netlib/TESTING/EIG/dget02.f index a0337eeeca..d286029a03 100644 --- a/lapack-netlib/TESTING/EIG/dget02.f +++ b/lapack-netlib/TESTING/EIG/dget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> DGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +116,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = DLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/dget10.f b/lapack-netlib/TESTING/EIG/dget10.f index e0b3577d6d..684172f6b8 100644 --- a/lapack-netlib/TESTING/EIG/dget10.f +++ b/lapack-netlib/TESTING/EIG/dget10.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/dget22.f b/lapack-netlib/TESTING/EIG/dget22.f index ff7ba15aa5..e19552ff78 100644 --- a/lapack-netlib/TESTING/EIG/dget22.f +++ b/lapack-netlib/TESTING/EIG/dget22.f @@ -149,6 +149,7 @@ *> RESULT is DOUBLE PRECISION array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -159,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -366,7 +364,7 @@ SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/dget23.f b/lapack-netlib/TESTING/EIG/dget23.f index 8c801aeeed..2151669046 100644 --- a/lapack-netlib/TESTING/EIG/dget23.f +++ b/lapack-netlib/TESTING/EIG/dget23.f @@ -367,8 +367,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE DGET23( COMP, BALANC, JTYPE, THRESH, ISEED, NOUNIT, N, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/dget24.f b/lapack-netlib/TESTING/EIG/dget24.f index a3c01756cf..eeb9109e9c 100644 --- a/lapack-netlib/TESTING/EIG/dget24.f +++ b/lapack-netlib/TESTING/EIG/dget24.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -343,10 +341,9 @@ SUBROUTINE DGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/dget31.f b/lapack-netlib/TESTING/EIG/dget31.f index 267ed7798e..b952a91d24 100644 --- a/lapack-netlib/TESTING/EIG/dget31.f +++ b/lapack-netlib/TESTING/EIG/dget31.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/dget32.f b/lapack-netlib/TESTING/EIG/dget32.f index 59fccf068b..faf1773bbd 100644 --- a/lapack-netlib/TESTING/EIG/dget32.f +++ b/lapack-netlib/TESTING/EIG/dget32.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget33.f b/lapack-netlib/TESTING/EIG/dget33.f index eb6b4516d9..c4f3b69ce2 100644 --- a/lapack-netlib/TESTING/EIG/dget33.f +++ b/lapack-netlib/TESTING/EIG/dget33.f @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget34.f b/lapack-netlib/TESTING/EIG/dget34.f index d3939f7659..67f0df99fd 100644 --- a/lapack-netlib/TESTING/EIG/dget34.f +++ b/lapack-netlib/TESTING/EIG/dget34.f @@ -36,7 +36,7 @@ *> offdiagonal with differing signs) and A1 and C1 are returned with the *> same properties. *> -*> The test code verifies these last last assertions, as well as that +*> The test code verifies these last assertions, as well as that *> the residual in the above equation is small. *> \endverbatim * @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/dget35.f b/lapack-netlib/TESTING/EIG/dget35.f index c5d4dece5b..a7908fca24 100644 --- a/lapack-netlib/TESTING/EIG/dget35.f +++ b/lapack-netlib/TESTING/EIG/dget35.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget36.f b/lapack-netlib/TESTING/EIG/dget36.f index 83bed283a2..8725ae2e40 100644 --- a/lapack-netlib/TESTING/EIG/dget36.f +++ b/lapack-netlib/TESTING/EIG/dget36.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN diff --git a/lapack-netlib/TESTING/EIG/dget37.f b/lapack-netlib/TESTING/EIG/dget37.f index 2a4132c6ae..fbdf50be22 100644 --- a/lapack-netlib/TESTING/EIG/dget37.f +++ b/lapack-netlib/TESTING/EIG/dget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/dget38.f b/lapack-netlib/TESTING/EIG/dget38.f index c677e3175c..a0fb6daec0 100644 --- a/lapack-netlib/TESTING/EIG/dget38.f +++ b/lapack-netlib/TESTING/EIG/dget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/dget39.f b/lapack-netlib/TESTING/EIG/dget39.f index 17e66c8e69..773d39c71d 100644 --- a/lapack-netlib/TESTING/EIG/dget39.f +++ b/lapack-netlib/TESTING/EIG/dget39.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget40.f b/lapack-netlib/TESTING/EIG/dget40.f new file mode 100644 index 0000000000..4d087f5240 --- /dev/null +++ b/lapack-netlib/TESTING/EIG/dget40.f @@ -0,0 +1,223 @@ +*> \brief \b DGET40 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* .. Scalar Arguments .. +* INTEGER KNT, LMAX, NIN +* DOUBLE PRECISION RMAX +* .. +* .. Array Arguments .. +* INTEGER NINFO( 3 ) +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DGET40 tests DTGEXC, a routine for swapping adjacent blocks (either +*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form. +*> Thus, DTGEXC computes an orthogonal matrices Q and Z such that +*> +*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] ) +*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] ) +*> +*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D). +*> Both (A,D) and (C,F) are assumed to be in standard form +*> and (A1,D1) and (C1,F1) are returned with the +*> same properties. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[out] RMAX +*> \verbatim +*> RMAX is DOUBLE PRECISION +*> Value of the largest test ratio. +*> \endverbatim +*> +*> \param[out] LMAX +*> \verbatim +*> LMAX is INTEGER +*> Example number where largest test ratio achieved. +*> \endverbatim +*> +*> \param[out] NINFO +*> \verbatim +*> NINFO is INTEGER(3) +*> Number of examples where INFO is nonzero. +*> \endverbatim +*> +*> \param[out] KNT +*> \verbatim +*> KNT is INTEGER +*> Total number of examples tested. +*> \endverbatim +*> +*> \param[out] NIN +*> \verbatim +*> NINFO is INTEGER +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \ingroup double_eig +* +* ===================================================================== + SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* -- LAPACK test routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER KNT, LMAX, NIN + DOUBLE PRECISION RMAX +* .. +* .. Array Arguments .. + INTEGER NINFO( 3 ) +* .. +* +* ===================================================================== +* +* .. Parameters .. + DOUBLE PRECISION ZERO, ONE + PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) + INTEGER LDT, LWORK + PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 ) +* .. +* .. Local Scalars .. + INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1, + $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N + DOUBLE PRECISION EPS, RES +* .. +* .. Local Arrays .. + DOUBLE PRECISION Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ), + $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ), + $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ), + $ TMP( LDT, LDT ), WORK( LWORK ) +* .. +* .. External Functions .. + DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH +* .. +* .. External Subroutines .. + EXTERNAL DHST01, DLACPY, DLASET, DTGEXC +* .. +* .. Intrinsic Functions .. + INTRINSIC ABS, SIGN +* .. +* .. Executable Statements .. +* + EPS = DLAMCH( 'P' ) + RMAX = ZERO + LMAX = 0 + KNT = 0 + NINFO( 1 ) = 0 + NINFO( 2 ) = 0 + NINFO( 3 ) = 0 +* +* Read input data until N=0 +* + 10 CONTINUE + READ( NIN, FMT = * )N, IFST, ILST + IF( N.EQ.0 ) + $ RETURN + KNT = KNT + 1 + DO 20 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 20 CONTINUE + CALL DLACPY( 'F', N, N, TMP, LDT, T, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, T1, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, T2, LDT ) + DO 25 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 25 CONTINUE + CALL DLACPY( 'F', N, N, TMP, LDT, S, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, S1, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, S2, LDT ) + IFSTSV = IFST + ILSTSV = ILST + IFST1 = IFST + ILST1 = ILST + IFST2 = IFST + ILST2 = ILST + RES = ZERO +* +* Test without accumulating Q and Z +* + CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL DTGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT, + $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 ) + DO 40 I = 1, N + DO 30 J = 1, N + IF( I.EQ.J .AND. Q( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Q( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + IF( I.EQ.J .AND. Z( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Z( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + 30 CONTINUE + 40 CONTINUE +* +* Test with accumulating Q +* + CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL DTGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT, + $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 ) +* +* Compare T1 with T2 and S1 with S2 +* + DO 60 I = 1, N + DO 50 J = 1, N + IF( T1( I, J ).NE.T2( I, J ) ) + $ RES = RES + ONE / EPS + IF( S1( I, J ).NE.S2( I, J ) ) + $ RES = RES + ONE / EPS + 50 CONTINUE + 60 CONTINUE + IF( IFST1.NE.IFST2 ) + $ RES = RES + ONE / EPS + IF( ILST1.NE.ILST2 ) + $ RES = RES + ONE / EPS + IF( INFO1.NE.INFO2 ) + $ RES = RES + ONE / EPS +* +* Test orthogonality of Q and Z and backward error on T2 and S2 +* + CALL DGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 1 ) ) + CALL DGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 2 ) ) + CALL DGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK, + $ RESULT( 3 ) ) + CALL DGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK, + $ RESULT( 4 ) ) + RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 ) +* +* Read next matrix pair +* + GO TO 10 +* +* End of DGET40 +* + END diff --git a/lapack-netlib/TESTING/EIG/dget51.f b/lapack-netlib/TESTING/EIG/dget51.f index 530da5b500..27a4030161 100644 --- a/lapack-netlib/TESTING/EIG/dget51.f +++ b/lapack-netlib/TESTING/EIG/dget51.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/dget52.f b/lapack-netlib/TESTING/EIG/dget52.f index e236fccb1e..68196f5f3b 100644 --- a/lapack-netlib/TESTING/EIG/dget52.f +++ b/lapack-netlib/TESTING/EIG/dget52.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -266,7 +263,7 @@ SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * ILCPLX = .FALSE. DO 10 JVEC = 1, N @@ -360,14 +357,14 @@ SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) ELSE ILCPLX = .TRUE. DO 30 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+ $ ABS( E( J, JVEC+1 ) ) ) 30 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) END IF END IF 40 CONTINUE diff --git a/lapack-netlib/TESTING/EIG/dget53.f b/lapack-netlib/TESTING/EIG/dget53.f index 9cacb3540f..ca0e830a78 100644 --- a/lapack-netlib/TESTING/EIG/dget53.f +++ b/lapack-netlib/TESTING/EIG/dget53.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB diff --git a/lapack-netlib/TESTING/EIG/dget54.f b/lapack-netlib/TESTING/EIG/dget54.f index 172daabe98..5ea5933102 100644 --- a/lapack-netlib/TESTING/EIG/dget54.f +++ b/lapack-netlib/TESTING/EIG/dget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/dglmts.f b/lapack-netlib/TESTING/EIG/dglmts.f index 1f40fe4990..0286a757cd 100644 --- a/lapack-netlib/TESTING/EIG/dglmts.f +++ b/lapack-netlib/TESTING/EIG/dglmts.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgqrts.f b/lapack-netlib/TESTING/EIG/dgqrts.f index 34f0bab561..4ea8a0ec94 100644 --- a/lapack-netlib/TESTING/EIG/dgqrts.f +++ b/lapack-netlib/TESTING/EIG/dgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgrqts.f b/lapack-netlib/TESTING/EIG/dgrqts.f index 4e38b0a746..c69aeee230 100644 --- a/lapack-netlib/TESTING/EIG/dgrqts.f +++ b/lapack-netlib/TESTING/EIG/dgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgsvts3.f b/lapack-netlib/TESTING/EIG/dgsvts3.f index 131aa81bc3..8a0ebac03d 100644 --- a/lapack-netlib/TESTING/EIG/dgsvts3.f +++ b/lapack-netlib/TESTING/EIG/dgsvts3.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE DGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dhst01.f b/lapack-netlib/TESTING/EIG/dhst01.f index 9e7ae0201d..79925881b0 100644 --- a/lapack-netlib/TESTING/EIG/dhst01.f +++ b/lapack-netlib/TESTING/EIG/dhst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/dlafts.f b/lapack-netlib/TESTING/EIG/dlafts.f index 634c52c1bb..64a0bfc52f 100644 --- a/lapack-netlib/TESTING/EIG/dlafts.f +++ b/lapack-netlib/TESTING/EIG/dlafts.f @@ -91,18 +91,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/dlahd2.f b/lapack-netlib/TESTING/EIG/dlahd2.f index efb32c9170..a6c65635f0 100644 --- a/lapack-netlib/TESTING/EIG/dlahd2.f +++ b/lapack-netlib/TESTING/EIG/dlahd2.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLAHD2( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/dlarfy.f b/lapack-netlib/TESTING/EIG/dlarfy.f index a0b0ebb31b..dc0e328e79 100644 --- a/lapack-netlib/TESTING/EIG/dlarfy.f +++ b/lapack-netlib/TESTING/EIG/dlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dlarhs.f b/lapack-netlib/TESTING/EIG/dlarhs.f index 74b22792af..58bee151b0 100644 --- a/lapack-netlib/TESTING/EIG/dlarhs.f +++ b/lapack-netlib/TESTING/EIG/dlarhs.f @@ -30,7 +30,7 @@ *> DLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/dlasum.f b/lapack-netlib/TESTING/EIG/dlasum.f index 555c405a17..d5b8717b48 100644 --- a/lapack-netlib/TESTING/EIG/dlasum.f +++ b/lapack-netlib/TESTING/EIG/dlasum.f @@ -36,17 +36,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/dlatb9.f b/lapack-netlib/TESTING/EIG/dlatb9.f index 42ce5a07a4..70647889b4 100644 --- a/lapack-netlib/TESTING/EIG/dlatb9.f +++ b/lapack-netlib/TESTING/EIG/dlatb9.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -170,10 +168,9 @@ SUBROUTINE DLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, KLB, KUB, $ ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, $ DISTA, DISTB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DISTA, DISTB, TYPE diff --git a/lapack-netlib/TESTING/EIG/dlatm4.f b/lapack-netlib/TESTING/EIG/dlatm4.f index 04de323d51..266c10ff18 100644 --- a/lapack-netlib/TESTING/EIG/dlatm4.f +++ b/lapack-netlib/TESTING/EIG/dlatm4.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 diff --git a/lapack-netlib/TESTING/EIG/dlctes.f b/lapack-netlib/TESTING/EIG/dlctes.f index 082c4514ea..039dfb2aac 100644 --- a/lapack-netlib/TESTING/EIG/dlctes.f +++ b/lapack-netlib/TESTING/EIG/dlctes.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DLCTES( ZR, ZI, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION D, ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/dlctsx.f b/lapack-netlib/TESTING/EIG/dlctsx.f index f852b60a73..878262070b 100644 --- a/lapack-netlib/TESTING/EIG/dlctsx.f +++ b/lapack-netlib/TESTING/EIG/dlctsx.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION AI, AR, BETA diff --git a/lapack-netlib/TESTING/EIG/dlsets.f b/lapack-netlib/TESTING/EIG/dlsets.f index f2303614cd..3616183a52 100644 --- a/lapack-netlib/TESTING/EIG/dlsets.f +++ b/lapack-netlib/TESTING/EIG/dlsets.f @@ -143,18 +143,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dort01.f b/lapack-netlib/TESTING/EIG/dort01.f index 32694bd072..eb1d7a7ec2 100644 --- a/lapack-netlib/TESTING/EIG/dort01.f +++ b/lapack-netlib/TESTING/EIG/dort01.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/dort03.f b/lapack-netlib/TESTING/EIG/dort03.f index 46f34574f2..a7ce1588ea 100644 --- a/lapack-netlib/TESTING/EIG/dort03.f +++ b/lapack-netlib/TESTING/EIG/dort03.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/dsbt21.f b/lapack-netlib/TESTING/EIG/dsbt21.f index 54795623b4..33a0c807b3 100644 --- a/lapack-netlib/TESTING/EIG/dsbt21.f +++ b/lapack-netlib/TESTING/EIG/dsbt21.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dsgt01.f b/lapack-netlib/TESTING/EIG/dsgt01.f index bb3e42b4c2..db76456c6b 100644 --- a/lapack-netlib/TESTING/EIG/dsgt01.f +++ b/lapack-netlib/TESTING/EIG/dsgt01.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -240,6 +237,6 @@ SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * RETURN * -* End of DDGT01 +* End of DSGT01 * END diff --git a/lapack-netlib/TESTING/EIG/dslect.f b/lapack-netlib/TESTING/EIG/dslect.f index af58467993..e2ef8df887 100644 --- a/lapack-netlib/TESTING/EIG/dslect.f +++ b/lapack-netlib/TESTING/EIG/dslect.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DSLECT( ZR, ZI ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/dspt21.f b/lapack-netlib/TESTING/EIG/dspt21.f index 4b1d360c50..7fba320f4d 100644 --- a/lapack-netlib/TESTING/EIG/dspt21.f +++ b/lapack-netlib/TESTING/EIG/dspt21.f @@ -213,18 +213,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dstech.f b/lapack-netlib/TESTING/EIG/dstech.f index 23ae8e575b..00a1406ea6 100644 --- a/lapack-netlib/TESTING/EIG/dstech.f +++ b/lapack-netlib/TESTING/EIG/dstech.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/dstect.f b/lapack-netlib/TESTING/EIG/dstect.f index 1a8aef33b1..d23f8dc4ba 100644 --- a/lapack-netlib/TESTING/EIG/dstect.f +++ b/lapack-netlib/TESTING/EIG/dstect.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/dstt21.f b/lapack-netlib/TESTING/EIG/dstt21.f index 9d289ffc70..6eca6e6b7a 100644 --- a/lapack-netlib/TESTING/EIG/dstt21.f +++ b/lapack-netlib/TESTING/EIG/dstt21.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/dstt22.f b/lapack-netlib/TESTING/EIG/dstt22.f index 5cdc056c96..fc68590cf2 100644 --- a/lapack-netlib/TESTING/EIG/dstt22.f +++ b/lapack-netlib/TESTING/EIG/dstt22.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/dsvdch.f b/lapack-netlib/TESTING/EIG/dsvdch.f index 9f3129dd28..58cfb5cb69 100644 --- a/lapack-netlib/TESTING/EIG/dsvdch.f +++ b/lapack-netlib/TESTING/EIG/dsvdch.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/dsvdct.f b/lapack-netlib/TESTING/EIG/dsvdct.f index ddb1ebf681..6f87c5712c 100644 --- a/lapack-netlib/TESTING/EIG/dsvdct.f +++ b/lapack-netlib/TESTING/EIG/dsvdct.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/dsxt1.f b/lapack-netlib/TESTING/EIG/dsxt1.f index 6d482c2fea..97b323ca0b 100644 --- a/lapack-netlib/TESTING/EIG/dsxt1.f +++ b/lapack-netlib/TESTING/EIG/dsxt1.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, N1, N2 diff --git a/lapack-netlib/TESTING/EIG/dsyt21.f b/lapack-netlib/TESTING/EIG/dsyt21.f index e00bd0db27..86c506902d 100644 --- a/lapack-netlib/TESTING/EIG/dsyt21.f +++ b/lapack-netlib/TESTING/EIG/dsyt21.f @@ -199,18 +199,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dsyt22.f b/lapack-netlib/TESTING/EIG/dsyt22.f index 09e4aeb828..5a98f90950 100644 --- a/lapack-netlib/TESTING/EIG/dsyt22.f +++ b/lapack-netlib/TESTING/EIG/dsyt22.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ilaenv.f b/lapack-netlib/TESTING/EIG/ilaenv.f index d99f52ea90..2b6c6f0912 100644 --- a/lapack-netlib/TESTING/EIG/ilaenv.f +++ b/lapack-netlib/TESTING/EIG/ilaenv.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -153,10 +151,9 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -297,6 +294,9 @@ INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, END IF * RETURN +* +* End of ILAENV2STAGE +* END INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) * diff --git a/lapack-netlib/TESTING/EIG/sbdt01.f b/lapack-netlib/TESTING/EIG/sbdt01.f index 7523e1b5bc..fdc30a51ea 100644 --- a/lapack-netlib/TESTING/EIG/sbdt01.f +++ b/lapack-netlib/TESTING/EIG/sbdt01.f @@ -27,13 +27,13 @@ *> \verbatim *> *> SBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal +*> A = Q * B * P**T +*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -48,7 +48,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**T. *> \endverbatim *> *> \param[in] KD @@ -77,7 +77,7 @@ *> \verbatim *> Q is REAL array, dimension (LDQ,N) *> The m by min(m,n) orthogonal matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDQ @@ -102,8 +102,8 @@ *> \param[in] PT *> \verbatim *> PT is REAL array, dimension (LDPT,N) -*> The min(m,n) by n orthogonal matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n orthogonal matrix P**T in the reduction +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDPT @@ -121,7 +121,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -132,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -183,7 +181,7 @@ SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**T one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -261,7 +259,7 @@ SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) * ANORM = SLANGE( '1', M, N, A, LDA, WORK ) EPS = SLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/sbdt02.f b/lapack-netlib/TESTING/EIG/sbdt02.f index b31e64935d..1cf8a22725 100644 --- a/lapack-netlib/TESTING/EIG/sbdt02.f +++ b/lapack-netlib/TESTING/EIG/sbdt02.f @@ -25,7 +25,8 @@ *> *> \verbatim *> -*> SBDT02 tests the change of basis C = U' * B by computing the residual +*> SBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -64,7 +65,7 @@ *> \param[in] C *> \verbatim *> C is REAL array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -104,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/sbdt03.f b/lapack-netlib/TESTING/EIG/sbdt03.f index 73e58cea77..1956325e99 100644 --- a/lapack-netlib/TESTING/EIG/sbdt03.f +++ b/lapack-netlib/TESTING/EIG/sbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sbdt04.f b/lapack-netlib/TESTING/EIG/sbdt04.f index c419876354..a97cc28c1b 100644 --- a/lapack-netlib/TESTING/EIG/sbdt04.f +++ b/lapack-netlib/TESTING/EIG/sbdt04.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sbdt05.f b/lapack-netlib/TESTING/EIG/sbdt05.f index e3e79e91e8..121c35a90d 100644 --- a/lapack-netlib/TESTING/EIG/sbdt05.f +++ b/lapack-netlib/TESTING/EIG/sbdt05.f @@ -1,3 +1,5 @@ +*> \brief \b SBDT05 +* * =========== DOCUMENTATION =========== * * Online html documentation available at @@ -117,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/schkbb.f b/lapack-netlib/TESTING/EIG/schkbb.f index 55f18c0afe..a3d48d7373 100644 --- a/lapack-netlib/TESTING/EIG/schkbb.f +++ b/lapack-netlib/TESTING/EIG/schkbb.f @@ -345,8 +345,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -358,7 +356,6 @@ SUBROUTINE SCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/schkbd.f b/lapack-netlib/TESTING/EIG/schkbd.f index 4da7798fb1..ba19cddd2f 100644 --- a/lapack-netlib/TESTING/EIG/schkbd.f +++ b/lapack-netlib/TESTING/EIG/schkbd.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -493,10 +491,9 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/schkbk.f b/lapack-netlib/TESTING/EIG/schkbk.f index 37a636bc2b..1824017572 100644 --- a/lapack-netlib/TESTING/EIG/schkbk.f +++ b/lapack-netlib/TESTING/EIG/schkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkbl.f b/lapack-netlib/TESTING/EIG/schkbl.f index ebce7cd838..e0634603b6 100644 --- a/lapack-netlib/TESTING/EIG/schkbl.f +++ b/lapack-netlib/TESTING/EIG/schkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkec.f b/lapack-netlib/TESTING/EIG/schkec.f index d4dff03ea3..e6123e1ad9 100644 --- a/lapack-netlib/TESTING/EIG/schkec.f +++ b/lapack-netlib/TESTING/EIG/schkec.f @@ -24,7 +24,7 @@ *> *> SCHKEC tests eigen- condition estimation routines *> SLALN2, SLASY2, SLANV2, SLAQTR, SLAEXC, -*> STRSYL, STREXC, STRSNA, STRSEN +*> STRSYL, STREXC, STRSNA, STRSEN, STGEXC *> *> In all cases, the routine runs through a fixed set of numerical *> examples, subjects them to various tests, and compares the test @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -95,9 +92,9 @@ SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC, $ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2, $ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR, - $ NLASY2, NTESTS, NTRSYL + $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC REAL EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2, - $ RTREXC, RTRSYL, SFMIN + $ RTREXC, RTRSYL, SFMIN, RTGEXC * .. * .. Local Arrays .. INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ), @@ -107,7 +104,7 @@ SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) * .. * .. External Subroutines .. EXTERNAL SERREC, SGET31, SGET32, SGET33, SGET34, SGET35, - $ SGET36, SGET37, SGET38, SGET39 + $ SGET36, SGET37, SGET38, SGET39, SGET40 * .. * .. External Functions .. REAL SLAMCH @@ -189,6 +186,12 @@ SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) OK = .FALSE. WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR END IF +* + CALL SGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN ) + IF( RTGEXC.GT.THRESH ) THEN + OK = .FALSE. + WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC + END IF * NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC + $ KTRSNA + KTRSEN + KLAQTR @@ -223,6 +226,8 @@ SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) $ 'minimum (SFMIN) = ', E16.6, / ) 9987 FORMAT( ' Routines pass computational tests if test ratio is les', $ 's than', F8.2, / / ) + 9986 FORMAT( ' Error in STGEXC: RMAX =', E12.3, / ' LMAX = ', I8, ' N', + $ 'INFO=', I8, ' KNT=', I8 ) * * End of SCHKEC * diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F index b584339595..bf04b5e5b6 100644 --- a/lapack-netlib/TESTING/EIG/schkee.F +++ b/lapack-netlib/TESTING/EIG/schkee.F @@ -1033,8 +1033,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -1044,10 +1042,9 @@ PROGRAM SCHKEE use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/schkgg.f b/lapack-netlib/TESTING/EIG/schkgg.f index 6b18a68ba7..fff2a6c2e9 100644 --- a/lapack-netlib/TESTING/EIG/schkgg.f +++ b/lapack-netlib/TESTING/EIG/schkgg.f @@ -500,8 +500,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -511,10 +509,9 @@ SUBROUTINE SCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/schkgk.f b/lapack-netlib/TESTING/EIG/schkgk.f index 6d86a1380d..d8d98ca960 100644 --- a/lapack-netlib/TESTING/EIG/schkgk.f +++ b/lapack-netlib/TESTING/EIG/schkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkgl.f b/lapack-netlib/TESTING/EIG/schkgl.f index 51b6ff8f75..5ce99d90a3 100644 --- a/lapack-netlib/TESTING/EIG/schkgl.f +++ b/lapack-netlib/TESTING/EIG/schkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkhs.f b/lapack-netlib/TESTING/EIG/schkhs.f index fab38c2beb..ab0e901383 100644 --- a/lapack-netlib/TESTING/EIG/schkhs.f +++ b/lapack-netlib/TESTING/EIG/schkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -412,10 +410,9 @@ SUBROUTINE SCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/schksb.f b/lapack-netlib/TESTING/EIG/schksb.f index e68a95cb54..b93e9e6801 100644 --- a/lapack-netlib/TESTING/EIG/schksb.f +++ b/lapack-netlib/TESTING/EIG/schksb.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -293,10 +291,9 @@ SUBROUTINE SCHKSB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/schksb2stg.f b/lapack-netlib/TESTING/EIG/schksb2stg.f index 7308bb690a..5de9204979 100644 --- a/lapack-netlib/TESTING/EIG/schksb2stg.f +++ b/lapack-netlib/TESTING/EIG/schksb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b SCHKSBSTG +*> \brief \b SCHKSB2STG * * =========== DOCUMENTATION =========== * @@ -21,6 +21,7 @@ * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) * REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ), * $ U( LDU, * ), WORK( * ) * .. * @@ -30,18 +31,18 @@ *> *> \verbatim *> -*> SCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal +*> SCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal *> form, used with the symmetric eigenvalue problem. *> *> SSBTRD factors a symmetric band matrix A as U S U' , where ' means *> transpose, S is symmetric tridiagonal, and U is orthogonal. *> SSBTRD can use either just the lower or just the upper triangle -*> of A; SCHKSBSTG checks both cases. +*> of A; SCHKSB2STG checks both cases. *> *> SSYTRD_SB2ST factors a symmetric band matrix A as U S U' , *> where ' means transpose, S is symmetric tridiagonal, and U is *> orthogonal. SSYTRD_SB2ST can use either just the lower or just -*> the upper triangle of A; SCHKSBSTG checks both cases. +*> the upper triangle of A; SCHKSB2STG checks both cases. *> *> SSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -51,7 +52,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of SSYTRD_SB2ST "L". *> -*> When SCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When SCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -125,7 +126,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> SCHKSBSTG does nothing. It must be at least zero. +*> SCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -140,7 +141,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> SCHKSBSTG does nothing. It must be at least zero. +*> SCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -153,7 +154,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, SCHKSBSTG +*> The number of elements in DOTYPE. If it is zero, SCHKSB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -183,7 +184,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to SCHKSBSTG to continue the same random number +*> next call to SCHKSB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -234,6 +235,21 @@ *> computed by SSBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is REAL array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is REAL array, dimension (LDU, max(NN)) @@ -307,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== @@ -316,10 +330,9 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -422,7 +435,7 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'SCHKSBSTG', -INFO ) + CALL XERBLA( 'SCHKSB2STG', -INFO ) RETURN END IF * @@ -743,8 +756,8 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * the one from above. Compare it with D1 computed * using the SSBTRD. * - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL SLACPY( ' ', K+1, N, A, LDA, U, LDU ) LH = MAX(1, 4*N) LW = LWORK - LH @@ -827,12 +840,12 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, CALL SLASUM( 'SSB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' SCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' SCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * 9998 FORMAT( / 1X, A3, $ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' ) - 9997 FORMAT( ' Matrix types (see SCHKSBSTG for details): ' ) + 9997 FORMAT( ' Matrix types (see SCHKSB2STG for details): ' ) * 9996 FORMAT( / ' Special Matrices:', $ / ' 1=Zero matrix. ', @@ -863,6 +876,6 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of SCHKSBSTG +* End of SCHKSB2STG * END diff --git a/lapack-netlib/TESTING/EIG/schkst.f b/lapack-netlib/TESTING/EIG/schkst.f index a851bbbbf4..10622d77a7 100644 --- a/lapack-netlib/TESTING/EIG/schkst.f +++ b/lapack-netlib/TESTING/EIG/schkst.f @@ -581,8 +581,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -591,10 +589,9 @@ SUBROUTINE SCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/schkst2stg.f b/lapack-netlib/TESTING/EIG/schkst2stg.f index 83edb9dcee..ac5a3fc393 100644 --- a/lapack-netlib/TESTING/EIG/schkst2stg.f +++ b/lapack-netlib/TESTING/EIG/schkst2stg.f @@ -602,8 +602,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -612,10 +610,9 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -1032,8 +1029,8 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL SLACPY( "L", N, N, A, LDA, V, LDU ) CALL SSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, $ WORK, LH, WORK( LH+1 ), LW, IINFO ) @@ -1058,7 +1055,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1718,7 +1714,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1817,7 +1812,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call SSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1919,7 +1913,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 34 ) = ZERO END IF * -* * Call SSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1976,7 +1969,7 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -1995,7 +1988,6 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2063,6 +2055,7 @@ SUBROUTINE SCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ', test(', I2, ')=', G10.3 ) * 9988 FORMAT( / 'Test performed: see SCHKST2STG for details.', / ) +* * End of SCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/sckcsd.f b/lapack-netlib/TESTING/EIG/sckcsd.f index be91eed511..d8158779b4 100644 --- a/lapack-netlib/TESTING/EIG/sckcsd.f +++ b/lapack-netlib/TESTING/EIG/sckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -184,10 +182,9 @@ SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,11 +205,11 @@ SUBROUTINE SCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - REAL GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO + REAL GAPDIGIT, ONE, ORTH, TEN, ZERO PARAMETER ( GAPDIGIT = 10.0E0, ONE = 1.0E0, - $ ORTH = 1.0E-4, - $ PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ORTH = 1.0E-4, TEN = 10.0E0, ZERO = 0.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/sckglm.f b/lapack-netlib/TESTING/EIG/sckglm.f index 0ac1046159..167cb61de7 100644 --- a/lapack-netlib/TESTING/EIG/sckglm.f +++ b/lapack-netlib/TESTING/EIG/sckglm.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SCKGLM( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/sckgqr.f b/lapack-netlib/TESTING/EIG/sckgqr.f index 73656315ba..919879504f 100644 --- a/lapack-netlib/TESTING/EIG/sckgqr.f +++ b/lapack-netlib/TESTING/EIG/sckgqr.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE SCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/sckgsv.f b/lapack-netlib/TESTING/EIG/sckgsv.f index 6e2b76e7ba..20838b5ba8 100644 --- a/lapack-netlib/TESTING/EIG/sckgsv.f +++ b/lapack-netlib/TESTING/EIG/sckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -198,10 +196,9 @@ SUBROUTINE SCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/scklse.f b/lapack-netlib/TESTING/EIG/scklse.f index daf1145d54..123217688e 100644 --- a/lapack-netlib/TESTING/EIG/scklse.f +++ b/lapack-netlib/TESTING/EIG/scklse.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/scsdts.f b/lapack-netlib/TESTING/EIG/scsdts.f index 8ddf119c10..1debe8341d 100644 --- a/lapack-netlib/TESTING/EIG/scsdts.f +++ b/lapack-netlib/TESTING/EIG/scsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -229,10 +227,9 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ SUBROUTINE SCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * ===================================================================== * * .. Parameters .. - REAL PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662E0, - $ REALONE = 1.0E0, REALZERO = 0.0E0 ) + REAL REALONE, REALZERO + PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 ) REAL ZERO, ONE PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/sdrges.f b/lapack-netlib/TESTING/EIG/sdrges.f index 4e98bfff08..73d23125c2 100644 --- a/lapack-netlib/TESTING/EIG/sdrges.f +++ b/lapack-netlib/TESTING/EIG/sdrges.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -403,10 +401,9 @@ SUBROUTINE SDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/sdrges3.f b/lapack-netlib/TESTING/EIG/sdrges3.f index 90351f6df7..9c82725789 100644 --- a/lapack-netlib/TESTING/EIG/sdrges3.f +++ b/lapack-netlib/TESTING/EIG/sdrges3.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -403,10 +401,9 @@ SUBROUTINE SDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -749,6 +746,14 @@ SUBROUTINE SDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RSUB = 5 END IF * +* Call XLAENV to set the parameters used in SLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call SGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL SLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/sdrgev.f b/lapack-netlib/TESTING/EIG/sdrgev.f index d3f8a06ac2..5254a97235 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev.f +++ b/lapack-netlib/TESTING/EIG/sdrgev.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -408,10 +406,9 @@ SUBROUTINE SDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrgev3.f b/lapack-netlib/TESTING/EIG/sdrgev3.f index 9492d43bff..1b1d82292c 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev3.f +++ b/lapack-netlib/TESTING/EIG/sdrgev3.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -408,10 +406,9 @@ SUBROUTINE SDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -734,6 +731,14 @@ SUBROUTINE SDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in SLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call SGGEV3 to compute eigenvalues and eigenvectors. * CALL SLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/sdrgsx.f b/lapack-netlib/TESTING/EIG/sdrgsx.f index 58e63e793b..ce0d592144 100644 --- a/lapack-netlib/TESTING/EIG/sdrgsx.f +++ b/lapack-netlib/TESTING/EIG/sdrgsx.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -359,10 +357,9 @@ SUBROUTINE SDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, $ AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/sdrgvx.f b/lapack-netlib/TESTING/EIG/sdrgvx.f index b6cc91dc4f..f6da720ad5 100644 --- a/lapack-netlib/TESTING/EIG/sdrgvx.f +++ b/lapack-netlib/TESTING/EIG/sdrgvx.f @@ -291,8 +291,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -301,10 +299,9 @@ SUBROUTINE SDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/sdrvbd.f b/lapack-netlib/TESTING/EIG/sdrvbd.f index 101c8ba095..de6d5a4123 100644 --- a/lapack-netlib/TESTING/EIG/sdrvbd.f +++ b/lapack-netlib/TESTING/EIG/sdrvbd.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -366,10 +364,9 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, $ SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/sdrves.f b/lapack-netlib/TESTING/EIG/sdrves.f index 64cd86118f..4e3dc0a6d9 100644 --- a/lapack-netlib/TESTING/EIG/sdrves.f +++ b/lapack-netlib/TESTING/EIG/sdrves.f @@ -379,8 +379,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -388,10 +386,9 @@ SUBROUTINE SDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/sdrvev.f b/lapack-netlib/TESTING/EIG/sdrvev.f index 4888bc8bfd..6d5e34bf6f 100644 --- a/lapack-netlib/TESTING/EIG/sdrvev.f +++ b/lapack-netlib/TESTING/EIG/sdrvev.f @@ -396,8 +396,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -406,10 +404,9 @@ SUBROUTINE SDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsg.f b/lapack-netlib/TESTING/EIG/sdrvsg.f index c6eeec6d90..4a57223c80 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg.f @@ -346,8 +346,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -355,10 +353,9 @@ SUBROUTINE SDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f index 66ba8c4dd3..ebd1699777 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_eig * * ===================================================================== @@ -364,10 +362,9 @@ SUBROUTINE SDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvst.f b/lapack-netlib/TESTING/EIG/sdrvst.f index 00e14f3968..ea0cf66f9f 100644 --- a/lapack-netlib/TESTING/EIG/sdrvst.f +++ b/lapack-netlib/TESTING/EIG/sdrvst.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -453,10 +451,9 @@ SUBROUTINE SDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvst2stg.f b/lapack-netlib/TESTING/EIG/sdrvst2stg.f index 32a3de05f6..a13a58b486 100644 --- a/lapack-netlib/TESTING/EIG/sdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/sdrvst2stg.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -453,10 +451,9 @@ SUBROUTINE SDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsx.f b/lapack-netlib/TESTING/EIG/sdrvsx.f index 25ca8b1c53..b6f772f5b6 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsx.f +++ b/lapack-netlib/TESTING/EIG/sdrvsx.f @@ -444,8 +444,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -454,10 +452,9 @@ SUBROUTINE SDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvvx.f b/lapack-netlib/TESTING/EIG/sdrvvx.f index 1c574e7360..70e59bcea9 100644 --- a/lapack-netlib/TESTING/EIG/sdrvvx.f +++ b/lapack-netlib/TESTING/EIG/sdrvvx.f @@ -509,8 +509,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -520,10 +518,9 @@ SUBROUTINE SDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/serrbd.f b/lapack-netlib/TESTING/EIG/serrbd.f index 96f51dfe83..f8962596cb 100644 --- a/lapack-netlib/TESTING/EIG/serrbd.f +++ b/lapack-netlib/TESTING/EIG/serrbd.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrec.f b/lapack-netlib/TESTING/EIG/serrec.f index 6414a82008..249f0e6424 100644 --- a/lapack-netlib/TESTING/EIG/serrec.f +++ b/lapack-netlib/TESTING/EIG/serrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serred.f b/lapack-netlib/TESTING/EIG/serred.f index 7d3772e844..b52aa16246 100644 --- a/lapack-netlib/TESTING/EIG/serred.f +++ b/lapack-netlib/TESTING/EIG/serred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrgg.f b/lapack-netlib/TESTING/EIG/serrgg.f index 5025103eb9..7824f8618d 100644 --- a/lapack-netlib/TESTING/EIG/serrgg.f +++ b/lapack-netlib/TESTING/EIG/serrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -99,7 +96,7 @@ SUBROUTINE SERRGG( PATH, NUNIT ) $ SGGHRD, SGGLSE, SGGQRF, SGGRQF, $ SHGEQZ, SORCSD, STGEVC, STGEXC, STGSEN, STGSJA, $ STGSNA, STGSYL, SGGES3, SGGEV3, SGGHD3, - $ SGGSVD3, SGGSVP3 + $ SGGSVD3, SGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -137,6 +134,14 @@ SUBROUTINE SERRGG( PATH, NUNIT ) NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/serrhs.f b/lapack-netlib/TESTING/EIG/serrhs.f index b78267cc8c..8f0ff98a1d 100644 --- a/lapack-netlib/TESTING/EIG/serrhs.f +++ b/lapack-netlib/TESTING/EIG/serrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrst.f b/lapack-netlib/TESTING/EIG/serrst.f index 7e5383866f..afb6d4faff 100644 --- a/lapack-netlib/TESTING/EIG/serrst.f +++ b/lapack-netlib/TESTING/EIG/serrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/sget02.f b/lapack-netlib/TESTING/EIG/sget02.f index a47b901d34..5b205ff87e 100644 --- a/lapack-netlib/TESTING/EIG/sget02.f +++ b/lapack-netlib/TESTING/EIG/sget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> SGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +116,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = SLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/sget10.f b/lapack-netlib/TESTING/EIG/sget10.f index 8c489d58a9..cbec05bf68 100644 --- a/lapack-netlib/TESTING/EIG/sget10.f +++ b/lapack-netlib/TESTING/EIG/sget10.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/sget22.f b/lapack-netlib/TESTING/EIG/sget22.f index 1fcd2b0954..ddfc2592f1 100644 --- a/lapack-netlib/TESTING/EIG/sget22.f +++ b/lapack-netlib/TESTING/EIG/sget22.f @@ -149,6 +149,7 @@ *> RESULT is REAL array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -159,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -366,7 +364,7 @@ SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/sget23.f b/lapack-netlib/TESTING/EIG/sget23.f index ac936bc897..8275781811 100644 --- a/lapack-netlib/TESTING/EIG/sget23.f +++ b/lapack-netlib/TESTING/EIG/sget23.f @@ -367,8 +367,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE SGET23( COMP, BALANC, JTYPE, THRESH, ISEED, NOUNIT, N, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/sget24.f b/lapack-netlib/TESTING/EIG/sget24.f index e0b75ff0fc..fef8762552 100644 --- a/lapack-netlib/TESTING/EIG/sget24.f +++ b/lapack-netlib/TESTING/EIG/sget24.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -343,10 +341,9 @@ SUBROUTINE SGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/sget31.f b/lapack-netlib/TESTING/EIG/sget31.f index 00b05ad772..e6214007be 100644 --- a/lapack-netlib/TESTING/EIG/sget31.f +++ b/lapack-netlib/TESTING/EIG/sget31.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/sget32.f b/lapack-netlib/TESTING/EIG/sget32.f index 60547e0349..7a0efd0827 100644 --- a/lapack-netlib/TESTING/EIG/sget32.f +++ b/lapack-netlib/TESTING/EIG/sget32.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget33.f b/lapack-netlib/TESTING/EIG/sget33.f index c1859f4e49..48cee8d447 100644 --- a/lapack-netlib/TESTING/EIG/sget33.f +++ b/lapack-netlib/TESTING/EIG/sget33.f @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget34.f b/lapack-netlib/TESTING/EIG/sget34.f index 87c7ac99a3..27f705ca3c 100644 --- a/lapack-netlib/TESTING/EIG/sget34.f +++ b/lapack-netlib/TESTING/EIG/sget34.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/sget35.f b/lapack-netlib/TESTING/EIG/sget35.f index 919a6469f7..46c8b699f9 100644 --- a/lapack-netlib/TESTING/EIG/sget35.f +++ b/lapack-netlib/TESTING/EIG/sget35.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget36.f b/lapack-netlib/TESTING/EIG/sget36.f index bf419869c8..47eae95e41 100644 --- a/lapack-netlib/TESTING/EIG/sget36.f +++ b/lapack-netlib/TESTING/EIG/sget36.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN diff --git a/lapack-netlib/TESTING/EIG/sget37.f b/lapack-netlib/TESTING/EIG/sget37.f index 7e63f9bdf9..eb10424bf1 100644 --- a/lapack-netlib/TESTING/EIG/sget37.f +++ b/lapack-netlib/TESTING/EIG/sget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/sget38.f b/lapack-netlib/TESTING/EIG/sget38.f index ca3475bf93..636dfb70ee 100644 --- a/lapack-netlib/TESTING/EIG/sget38.f +++ b/lapack-netlib/TESTING/EIG/sget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/sget39.f b/lapack-netlib/TESTING/EIG/sget39.f index f6c0f7e7c1..dbcabf9d7d 100644 --- a/lapack-netlib/TESTING/EIG/sget39.f +++ b/lapack-netlib/TESTING/EIG/sget39.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget40.f b/lapack-netlib/TESTING/EIG/sget40.f new file mode 100644 index 0000000000..1fd3d400dd --- /dev/null +++ b/lapack-netlib/TESTING/EIG/sget40.f @@ -0,0 +1,223 @@ +*> \brief \b SGET40 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* .. Scalar Arguments .. +* INTEGER KNT, LMAX, NIN +* REAL RMAX +* .. +* .. Array Arguments .. +* INTEGER NINFO( 3 ) +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SGET40 tests STGEXC, a routine for swapping adjacent blocks (either +*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form. +*> Thus, STGEXC computes an orthogonal matrices Q and Z such that +*> +*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] ) +*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] ) +*> +*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D). +*> Both (A,D) and (C,F) are assumed to be in standard form +*> and (A1,D1) and (C1,F1) are returned with the +*> same properties. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[out] RMAX +*> \verbatim +*> RMAX is REAL +*> Value of the largest test ratio. +*> \endverbatim +*> +*> \param[out] LMAX +*> \verbatim +*> LMAX is INTEGER +*> Example number where largest test ratio achieved. +*> \endverbatim +*> +*> \param[out] NINFO +*> \verbatim +*> NINFO is INTEGER +*> Number of examples where INFO is nonzero. +*> \endverbatim +*> +*> \param[out] KNT +*> \verbatim +*> KNT is INTEGER +*> Total number of examples tested. +*> \endverbatim +*> +*> \param[out] NIN +*> \verbatim +*> NINFO is INTEGER +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \ingroup double_eig +* +* ===================================================================== + SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* -- LAPACK test routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER KNT, LMAX, NIN + REAL RMAX +* .. +* .. Array Arguments .. + INTEGER NINFO( 3 ) +* .. +* +* ===================================================================== +* +* .. Parameters .. + REAL ZERO, ONE + PARAMETER ( ZERO = 0.0, ONE = 1.0 ) + INTEGER LDT, LWORK + PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 ) +* .. +* .. Local Scalars .. + INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1, + $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N + REAL EPS, RES +* .. +* .. Local Arrays .. + REAL Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ), + $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ), + $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ), + $ TMP( LDT, LDT ), WORK( LWORK ) +* .. +* .. External Functions .. + REAL SLAMCH + EXTERNAL SLAMCH +* .. +* .. External Subroutines .. + EXTERNAL SGET51, SLACPY, SLASET, STGEXC +* .. +* .. Intrinsic Functions .. + INTRINSIC ABS, SIGN +* .. +* .. Executable Statements .. +* + EPS = SLAMCH( 'P' ) + RMAX = ZERO + LMAX = 0 + KNT = 0 + NINFO( 1 ) = 0 + NINFO( 2 ) = 0 + NINFO( 3 ) = 0 +* +* Read input data until N=0 +* + 10 CONTINUE + READ( NIN, FMT = * )N, IFST, ILST + IF( N.EQ.0 ) + $ RETURN + KNT = KNT + 1 + DO 20 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 20 CONTINUE + CALL SLACPY( 'F', N, N, TMP, LDT, T, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, T1, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, T2, LDT ) + DO 25 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 25 CONTINUE + CALL SLACPY( 'F', N, N, TMP, LDT, S, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, S1, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, S2, LDT ) + IFSTSV = IFST + ILSTSV = ILST + IFST1 = IFST + ILST1 = ILST + IFST2 = IFST + ILST2 = ILST + RES = ZERO +* +* Test without accumulating Q and Z +* + CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL STGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT, + $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 ) + DO 40 I = 1, N + DO 30 J = 1, N + IF( I.EQ.J .AND. Q( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Q( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + IF( I.EQ.J .AND. Z( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Z( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + 30 CONTINUE + 40 CONTINUE +* +* Test with accumulating Q +* + CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL STGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT, + $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 ) +* +* Compare T1 with T2 and S1 with S2 +* + DO 60 I = 1, N + DO 50 J = 1, N + IF( T1( I, J ).NE.T2( I, J ) ) + $ RES = RES + ONE / EPS + IF( S1( I, J ).NE.S2( I, J ) ) + $ RES = RES + ONE / EPS + 50 CONTINUE + 60 CONTINUE + IF( IFST1.NE.IFST2 ) + $ RES = RES + ONE / EPS + IF( ILST1.NE.ILST2 ) + $ RES = RES + ONE / EPS + IF( INFO1.NE.INFO2 ) + $ RES = RES + ONE / EPS +* +* Test orthogonality of Q and Z and backward error on T2 and S2 +* + CALL SGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 1 ) ) + CALL SGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 2 ) ) + CALL SGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK, + $ RESULT( 3 ) ) + CALL SGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK, + $ RESULT( 4 ) ) + RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 ) +* +* Read next matrix pair +* + GO TO 10 +* +* End of SGET40 +* + END diff --git a/lapack-netlib/TESTING/EIG/sget51.f b/lapack-netlib/TESTING/EIG/sget51.f index 750cc7ce15..2067b8c3d9 100644 --- a/lapack-netlib/TESTING/EIG/sget51.f +++ b/lapack-netlib/TESTING/EIG/sget51.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/sget52.f b/lapack-netlib/TESTING/EIG/sget52.f index 135ab1903b..9f54126021 100644 --- a/lapack-netlib/TESTING/EIG/sget52.f +++ b/lapack-netlib/TESTING/EIG/sget52.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -266,7 +263,7 @@ SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * ILCPLX = .FALSE. DO 10 JVEC = 1, N @@ -360,14 +357,14 @@ SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) ELSE ILCPLX = .TRUE. DO 30 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+ $ ABS( E( J, JVEC+1 ) ) ) 30 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) END IF END IF 40 CONTINUE diff --git a/lapack-netlib/TESTING/EIG/sget53.f b/lapack-netlib/TESTING/EIG/sget53.f index 0811db75ff..11decbe82f 100644 --- a/lapack-netlib/TESTING/EIG/sget53.f +++ b/lapack-netlib/TESTING/EIG/sget53.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB diff --git a/lapack-netlib/TESTING/EIG/sget54.f b/lapack-netlib/TESTING/EIG/sget54.f index adc5886baf..8d73a29131 100644 --- a/lapack-netlib/TESTING/EIG/sget54.f +++ b/lapack-netlib/TESTING/EIG/sget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/sglmts.f b/lapack-netlib/TESTING/EIG/sglmts.f index 1ae58da706..0859b3e0dc 100644 --- a/lapack-netlib/TESTING/EIG/sglmts.f +++ b/lapack-netlib/TESTING/EIG/sglmts.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgqrts.f b/lapack-netlib/TESTING/EIG/sgqrts.f index 2ed6dfc475..eacdc858f0 100644 --- a/lapack-netlib/TESTING/EIG/sgqrts.f +++ b/lapack-netlib/TESTING/EIG/sgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgrqts.f b/lapack-netlib/TESTING/EIG/sgrqts.f index 0e26783c6b..005adcacc8 100644 --- a/lapack-netlib/TESTING/EIG/sgrqts.f +++ b/lapack-netlib/TESTING/EIG/sgrqts.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgsvts3.f b/lapack-netlib/TESTING/EIG/sgsvts3.f index 50ccd378bc..b9b87be8c5 100644 --- a/lapack-netlib/TESTING/EIG/sgsvts3.f +++ b/lapack-netlib/TESTING/EIG/sgsvts3.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -210,10 +208,9 @@ SUBROUTINE SGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/shst01.f b/lapack-netlib/TESTING/EIG/shst01.f index 50fd361854..97b14c211a 100644 --- a/lapack-netlib/TESTING/EIG/shst01.f +++ b/lapack-netlib/TESTING/EIG/shst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/slafts.f b/lapack-netlib/TESTING/EIG/slafts.f index 008c118ad2..7bbb389d3c 100644 --- a/lapack-netlib/TESTING/EIG/slafts.f +++ b/lapack-netlib/TESTING/EIG/slafts.f @@ -91,18 +91,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/slahd2.f b/lapack-netlib/TESTING/EIG/slahd2.f index 440f958910..401c247b7c 100644 --- a/lapack-netlib/TESTING/EIG/slahd2.f +++ b/lapack-netlib/TESTING/EIG/slahd2.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLAHD2( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/slarfy.f b/lapack-netlib/TESTING/EIG/slarfy.f index 340c544130..c2a819fe1f 100644 --- a/lapack-netlib/TESTING/EIG/slarfy.f +++ b/lapack-netlib/TESTING/EIG/slarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/slarhs.f b/lapack-netlib/TESTING/EIG/slarhs.f index 1e73842e3e..01b1d2879f 100644 --- a/lapack-netlib/TESTING/EIG/slarhs.f +++ b/lapack-netlib/TESTING/EIG/slarhs.f @@ -30,7 +30,7 @@ *> SLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/slasum.f b/lapack-netlib/TESTING/EIG/slasum.f index 58fd580810..fa1e43388d 100644 --- a/lapack-netlib/TESTING/EIG/slasum.f +++ b/lapack-netlib/TESTING/EIG/slasum.f @@ -33,17 +33,15 @@ * \author Univ. of Colorado Denver * \author NAG Ltd. * -* \date December 2016 -* + * \ingroup single_eig * * ===================================================================== SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/slatb9.f b/lapack-netlib/TESTING/EIG/slatb9.f index 49fb162882..f8638a46a0 100644 --- a/lapack-netlib/TESTING/EIG/slatb9.f +++ b/lapack-netlib/TESTING/EIG/slatb9.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -170,10 +168,9 @@ SUBROUTINE SLATB9( PATH, IMAT, M, P, N, TYPE, KLA, KUA, $ KLB, KUB, ANORM, BNORM, MODEA, MODEB, $ CNDNMA, CNDNMB, DISTA, DISTB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DISTA, DISTB, TYPE diff --git a/lapack-netlib/TESTING/EIG/slatm4.f b/lapack-netlib/TESTING/EIG/slatm4.f index 3607c04ba2..3c40de70fa 100644 --- a/lapack-netlib/TESTING/EIG/slatm4.f +++ b/lapack-netlib/TESTING/EIG/slatm4.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 diff --git a/lapack-netlib/TESTING/EIG/slctes.f b/lapack-netlib/TESTING/EIG/slctes.f index 8753d43a21..d5dec3fef0 100644 --- a/lapack-netlib/TESTING/EIG/slctes.f +++ b/lapack-netlib/TESTING/EIG/slctes.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SLCTES( ZR, ZI, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL D, ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/slctsx.f b/lapack-netlib/TESTING/EIG/slctsx.f index 084d2a8bbb..d650baed9f 100644 --- a/lapack-netlib/TESTING/EIG/slctsx.f +++ b/lapack-netlib/TESTING/EIG/slctsx.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL AI, AR, BETA diff --git a/lapack-netlib/TESTING/EIG/slsets.f b/lapack-netlib/TESTING/EIG/slsets.f index ad483bcd0a..0fb66decf2 100644 --- a/lapack-netlib/TESTING/EIG/slsets.f +++ b/lapack-netlib/TESTING/EIG/slsets.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sort01.f b/lapack-netlib/TESTING/EIG/sort01.f index d013c70c51..c8fb5ff6ec 100644 --- a/lapack-netlib/TESTING/EIG/sort01.f +++ b/lapack-netlib/TESTING/EIG/sort01.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/sort03.f b/lapack-netlib/TESTING/EIG/sort03.f index 09a941487a..3ca35705ac 100644 --- a/lapack-netlib/TESTING/EIG/sort03.f +++ b/lapack-netlib/TESTING/EIG/sort03.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/ssbt21.f b/lapack-netlib/TESTING/EIG/ssbt21.f index 7ef5ad9b32..f4b4fbe0c4 100644 --- a/lapack-netlib/TESTING/EIG/ssbt21.f +++ b/lapack-netlib/TESTING/EIG/ssbt21.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ssgt01.f b/lapack-netlib/TESTING/EIG/ssgt01.f index e4af48ddb7..b606422a61 100644 --- a/lapack-netlib/TESTING/EIG/ssgt01.f +++ b/lapack-netlib/TESTING/EIG/ssgt01.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sslect.f b/lapack-netlib/TESTING/EIG/sslect.f index 5a85e25209..1880f02a6d 100644 --- a/lapack-netlib/TESTING/EIG/sslect.f +++ b/lapack-netlib/TESTING/EIG/sslect.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SSLECT( ZR, ZI ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/sspt21.f b/lapack-netlib/TESTING/EIG/sspt21.f index 4ecb04c0ea..6945f142ed 100644 --- a/lapack-netlib/TESTING/EIG/sspt21.f +++ b/lapack-netlib/TESTING/EIG/sspt21.f @@ -213,18 +213,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sstech.f b/lapack-netlib/TESTING/EIG/sstech.f index d383e47ce2..f05e1efa0d 100644 --- a/lapack-netlib/TESTING/EIG/sstech.f +++ b/lapack-netlib/TESTING/EIG/sstech.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/sstect.f b/lapack-netlib/TESTING/EIG/sstect.f index 314d0f68e8..94a2653690 100644 --- a/lapack-netlib/TESTING/EIG/sstect.f +++ b/lapack-netlib/TESTING/EIG/sstect.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/sstt21.f b/lapack-netlib/TESTING/EIG/sstt21.f index 5045d7f0fa..90984502d7 100644 --- a/lapack-netlib/TESTING/EIG/sstt21.f +++ b/lapack-netlib/TESTING/EIG/sstt21.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/sstt22.f b/lapack-netlib/TESTING/EIG/sstt22.f index 0a65e4d5de..f07405fb7b 100644 --- a/lapack-netlib/TESTING/EIG/sstt22.f +++ b/lapack-netlib/TESTING/EIG/sstt22.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/ssvdch.f b/lapack-netlib/TESTING/EIG/ssvdch.f index 73654f7cfc..e85181b14e 100644 --- a/lapack-netlib/TESTING/EIG/ssvdch.f +++ b/lapack-netlib/TESTING/EIG/ssvdch.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/ssvdct.f b/lapack-netlib/TESTING/EIG/ssvdct.f index 8db20bad7d..9b6aad3152 100644 --- a/lapack-netlib/TESTING/EIG/ssvdct.f +++ b/lapack-netlib/TESTING/EIG/ssvdct.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/ssxt1.f b/lapack-netlib/TESTING/EIG/ssxt1.f index 858ef8c6f2..3fa6d6bb8b 100644 --- a/lapack-netlib/TESTING/EIG/ssxt1.f +++ b/lapack-netlib/TESTING/EIG/ssxt1.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, N1, N2 diff --git a/lapack-netlib/TESTING/EIG/ssyt21.f b/lapack-netlib/TESTING/EIG/ssyt21.f index fc7ca6a2a1..b14fdf67bc 100644 --- a/lapack-netlib/TESTING/EIG/ssyt21.f +++ b/lapack-netlib/TESTING/EIG/ssyt21.f @@ -199,18 +199,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ssyt22.f b/lapack-netlib/TESTING/EIG/ssyt22.f index 38fc3e5558..2319bb2db0 100644 --- a/lapack-netlib/TESTING/EIG/ssyt22.f +++ b/lapack-netlib/TESTING/EIG/ssyt22.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/xerbla.f b/lapack-netlib/TESTING/EIG/xerbla.f index d57f6bcf84..e5fd237155 100644 --- a/lapack-netlib/TESTING/EIG/xerbla.f +++ b/lapack-netlib/TESTING/EIG/xerbla.f @@ -52,8 +52,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/TESTING/EIG/xlaenv.f b/lapack-netlib/TESTING/EIG/xlaenv.f index e973bc2cb0..23b6c75673 100644 --- a/lapack-netlib/TESTING/EIG/xlaenv.f +++ b/lapack-netlib/TESTING/EIG/xlaenv.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC, NVALUE diff --git a/lapack-netlib/TESTING/EIG/zbdt01.f b/lapack-netlib/TESTING/EIG/zbdt01.f index ead9f10508..afe2fa89a5 100644 --- a/lapack-netlib/TESTING/EIG/zbdt01.f +++ b/lapack-netlib/TESTING/EIG/zbdt01.f @@ -28,13 +28,13 @@ *> \verbatim *> *> ZBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary +*> A = Q * B * P**H +*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -49,7 +49,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**H. *> \endverbatim *> *> \param[in] KD @@ -78,7 +78,7 @@ *> \verbatim *> Q is COMPLEX*16 array, dimension (LDQ,N) *> The m by min(m,n) unitary matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDQ @@ -103,8 +103,8 @@ *> \param[in] PT *> \verbatim *> PT is COMPLEX*16 array, dimension (LDPT,N) -*> The min(m,n) by n unitary matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n unitary matrix P**H in the reduction +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDPT @@ -127,7 +127,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -138,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -190,7 +188,7 @@ SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**H one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -268,7 +266,7 @@ SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) * ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) EPS = DLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/zbdt02.f b/lapack-netlib/TESTING/EIG/zbdt02.f index 2101a2e0cf..27117a7d1f 100644 --- a/lapack-netlib/TESTING/EIG/zbdt02.f +++ b/lapack-netlib/TESTING/EIG/zbdt02.f @@ -27,7 +27,8 @@ *> *> \verbatim *> -*> ZBDT02 tests the change of basis C = U' * B by computing the residual +*> ZBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -66,7 +67,7 @@ *> \param[in] C *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -111,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/zbdt03.f b/lapack-netlib/TESTING/EIG/zbdt03.f index 079d4ffb03..289e555852 100644 --- a/lapack-netlib/TESTING/EIG/zbdt03.f +++ b/lapack-netlib/TESTING/EIG/zbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zbdt05.f b/lapack-netlib/TESTING/EIG/zbdt05.f index f262351e43..c6298e7e3b 100644 --- a/lapack-netlib/TESTING/EIG/zbdt05.f +++ b/lapack-netlib/TESTING/EIG/zbdt05.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/zchkbb.f b/lapack-netlib/TESTING/EIG/zchkbb.f index 877caffa5a..b9e165ce87 100644 --- a/lapack-netlib/TESTING/EIG/zchkbb.f +++ b/lapack-netlib/TESTING/EIG/zchkbb.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -364,7 +362,6 @@ SUBROUTINE ZCHKBB( NSIZES, MVAL, NVAL, NWDTHS, KK, NTYPES, DOTYPE, * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zchkbd.f b/lapack-netlib/TESTING/EIG/zchkbd.f index b3d5605542..034cf57cfd 100644 --- a/lapack-netlib/TESTING/EIG/zchkbd.f +++ b/lapack-netlib/TESTING/EIG/zchkbd.f @@ -405,8 +405,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -415,10 +413,9 @@ SUBROUTINE ZCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/zchkbk.f b/lapack-netlib/TESTING/EIG/zchkbk.f index 4f9f43cc91..206e9c2b96 100644 --- a/lapack-netlib/TESTING/EIG/zchkbk.f +++ b/lapack-netlib/TESTING/EIG/zchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkbl.f b/lapack-netlib/TESTING/EIG/zchkbl.f index 6e0a18118b..f623bc311e 100644 --- a/lapack-netlib/TESTING/EIG/zchkbl.f +++ b/lapack-netlib/TESTING/EIG/zchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkec.f b/lapack-netlib/TESTING/EIG/zchkec.f index 86643969b7..1e1c29e0d0 100644 --- a/lapack-netlib/TESTING/EIG/zchkec.f +++ b/lapack-netlib/TESTING/EIG/zchkec.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F index fb418a43bd..b14127553b 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.F +++ b/lapack-netlib/TESTING/EIG/zchkee.F @@ -1027,8 +1027,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -1038,10 +1036,9 @@ PROGRAM ZCHKEE use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/zchkgg.f b/lapack-netlib/TESTING/EIG/zchkgg.f index 2f99d76f36..5e6797f502 100644 --- a/lapack-netlib/TESTING/EIG/zchkgg.f +++ b/lapack-netlib/TESTING/EIG/zchkgg.f @@ -492,8 +492,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -503,10 +501,9 @@ SUBROUTINE ZCHKGG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/zchkgk.f b/lapack-netlib/TESTING/EIG/zchkgk.f index 56a34fe0c5..0838411775 100644 --- a/lapack-netlib/TESTING/EIG/zchkgk.f +++ b/lapack-netlib/TESTING/EIG/zchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkgl.f b/lapack-netlib/TESTING/EIG/zchkgl.f index 48afa62a12..27c8babc97 100644 --- a/lapack-netlib/TESTING/EIG/zchkgl.f +++ b/lapack-netlib/TESTING/EIG/zchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkhb.f b/lapack-netlib/TESTING/EIG/zchkhb.f index a4c658ff3d..080ce81706 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb.f +++ b/lapack-netlib/TESTING/EIG/zchkhb.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -298,10 +296,9 @@ SUBROUTINE ZCHKHB( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, ISEED, $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/zchkhb2stg.f b/lapack-netlib/TESTING/EIG/zchkhb2stg.f index 05434e4e33..786df7882c 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb2stg.f +++ b/lapack-netlib/TESTING/EIG/zchkhb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b ZCHKHBSTG +*> \brief \b ZCHKHB2STG * * =========== DOCUMENTATION =========== * @@ -8,7 +8,7 @@ * Definition: * =========== * -* SUBROUTINE ZCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, +* SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, * D2, D3, U, LDU, WORK, LWORK, RWORK RESULT, * INFO ) @@ -21,7 +21,8 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) -* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ) +* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. * @@ -31,18 +32,18 @@ *> *> \verbatim *> -*> ZCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal +*> ZCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal *> from, used with the Hermitian eigenvalue problem. *> *> ZHBTRD factors a Hermitian band matrix A as U S U* , where * means *> conjugate transpose, S is symmetric tridiagonal, and U is unitary. *> ZHBTRD can use either just the lower or just the upper triangle -*> of A; ZCHKHBSTG checks both cases. +*> of A; ZCHKHB2STG checks both cases. *> *> ZHETRD_HB2ST factors a Hermitian band matrix A as U S U* , *> where * means conjugate transpose, S is symmetric tridiagonal, and U is *> unitary. ZHETRD_HB2ST can use either just the lower or just -*> the upper triangle of A; ZCHKHBSTG checks both cases. +*> the upper triangle of A; ZCHKHB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -52,7 +53,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When ZCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When ZCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -126,7 +127,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> ZCHKHBSTG does nothing. It must be at least zero. +*> ZCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -141,7 +142,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> ZCHKHBSTG does nothing. It must be at least zero. +*> ZCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -154,7 +155,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, ZCHKHBSTG +*> The number of elements in DOTYPE. If it is zero, ZCHKHB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -184,7 +185,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to ZCHKHBSTG to continue the same random number +*> next call to ZCHKHB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -235,6 +236,20 @@ *> computed by ZHBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*>*> \param[out] D3 +*> \verbatim +*> D3 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is COMPLEX*16 array, dimension (LDU, max(NN)) @@ -313,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== @@ -323,10 +336,9 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -432,7 +444,7 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'ZCHKHBSTG', -INFO ) + CALL XERBLA( 'ZCHKHB2STG', -INFO ) RETURN END IF * @@ -837,7 +849,7 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, CALL DLASUM( 'ZHB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' ZCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' ZCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) 9998 FORMAT( / 1X, A3, $ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines' @@ -873,6 +885,6 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of ZCHKHBSTG +* End of ZCHKHB2STG * END diff --git a/lapack-netlib/TESTING/EIG/zchkhs.f b/lapack-netlib/TESTING/EIG/zchkhs.f index ec89b44f98..52962a0414 100644 --- a/lapack-netlib/TESTING/EIG/zchkhs.f +++ b/lapack-netlib/TESTING/EIG/zchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -412,10 +410,9 @@ SUBROUTINE ZCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/zchkst.f b/lapack-netlib/TESTING/EIG/zchkst.f index cd45e98e1b..60496dde1b 100644 --- a/lapack-netlib/TESTING/EIG/zchkst.f +++ b/lapack-netlib/TESTING/EIG/zchkst.f @@ -593,8 +593,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -604,10 +602,9 @@ SUBROUTINE ZCHKST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zchkst2stg.f b/lapack-netlib/TESTING/EIG/zchkst2stg.f index 4eadca4f30..b1ef808166 100644 --- a/lapack-netlib/TESTING/EIG/zchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/zchkst2stg.f @@ -614,8 +614,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -625,10 +623,9 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, @@ -690,7 +687,7 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ XERBLA, ZCOPY, ZHET21, ZHETRD, ZHPT21, ZHPTRD, $ ZLACPY, ZLASET, ZLATMR, ZLATMS, ZPTEQR, ZSTEDC, $ ZSTEMR, ZSTEIN, ZSTEQR, ZSTT21, ZSTT22, ZUNGTR, - $ ZUPGTR, ZHETRD_2STAGE + $ ZUPGTR, ZHETRD_2STAGE, DLASET * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, INT, LOG, MAX, MIN, SQRT @@ -1075,7 +1072,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1738,7 +1734,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1795,7 +1790,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * Do Tests 29 and 30 * -* * Call ZSTEMR to compute D2, do tests. * * Compute D2 @@ -1835,7 +1829,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call ZSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1937,7 +1930,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( 34 ) = ZERO END IF * -* * Call ZSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1994,7 +1986,7 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -2013,7 +2005,6 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2088,6 +2079,7 @@ SUBROUTINE ZCHKST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ 4( I4, ',' ), ' result ', I3, ' is', 1P, D10.3 ) * 9987 FORMAT( / 'Test performed: see ZCHKST2STG for details.', / ) +* * End of ZCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/zckcsd.f b/lapack-netlib/TESTING/EIG/zckcsd.f index 92760337ca..c378316570 100644 --- a/lapack-netlib/TESTING/EIG/zckcsd.f +++ b/lapack-netlib/TESTING/EIG/zckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -184,10 +182,9 @@ SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,13 +205,14 @@ SUBROUTINE ZCKCSD( NM, MVAL, PVAL, QVAL, NMATS, ISEED, THRESH, PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - DOUBLE PRECISION GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN + DOUBLE PRECISION GAPDIGIT, ORTH, REALONE, REALZERO, TEN PARAMETER ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12, - $ PIOVER2 = 1.57079632679489662D0, $ REALONE = 1.0D0, REALZERO = 0.0D0, $ TEN = 10.0D0 ) COMPLEX*16 ONE, ZERO PARAMETER ( ONE = (1.0D0,0.0D0), ZERO = (0.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/zckglm.f b/lapack-netlib/TESTING/EIG/zckglm.f index 565c747917..ff8101bb91 100644 --- a/lapack-netlib/TESTING/EIG/zckglm.f +++ b/lapack-netlib/TESTING/EIG/zckglm.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE ZCKGLM( NN, NVAL, MVAL, PVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zckgqr.f b/lapack-netlib/TESTING/EIG/zckgqr.f index 2d137785b2..769d0f8b07 100644 --- a/lapack-netlib/TESTING/EIG/zckgqr.f +++ b/lapack-netlib/TESTING/EIG/zckgqr.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -211,10 +209,9 @@ SUBROUTINE ZCKGQR( NM, MVAL, NP, PVAL, NN, NVAL, NMATS, ISEED, $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/zckgsv.f b/lapack-netlib/TESTING/EIG/zckgsv.f index 32352fc067..800aa5edd3 100644 --- a/lapack-netlib/TESTING/EIG/zckgsv.f +++ b/lapack-netlib/TESTING/EIG/zckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -198,10 +196,9 @@ SUBROUTINE ZCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/zcklse.f b/lapack-netlib/TESTING/EIG/zcklse.f index e38a4c0a85..26b0298e3c 100644 --- a/lapack-netlib/TESTING/EIG/zcklse.f +++ b/lapack-netlib/TESTING/EIG/zcklse.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE ZCKLSE( NN, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zcsdts.f b/lapack-netlib/TESTING/EIG/zcsdts.f index c5fd68eb9a..c96cb1613c 100644 --- a/lapack-netlib/TESTING/EIG/zcsdts.f +++ b/lapack-netlib/TESTING/EIG/zcsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -229,10 +227,9 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ SUBROUTINE ZCSDTS( M, P, Q, X, XF, LDX, U1, LDU1, U2, LDU2, V1T, * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662D0, - $ REALONE = 1.0D0, REALZERO = 0.0D0 ) + DOUBLE PRECISION REALONE, REALZERO + PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 ) COMPLEX*16 ZERO, ONE PARAMETER ( ZERO = (0.0D0,0.0D0), ONE = (1.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/zdrges.f b/lapack-netlib/TESTING/EIG/zdrges.f index c09984e091..580573814f 100644 --- a/lapack-netlib/TESTING/EIG/zdrges.f +++ b/lapack-netlib/TESTING/EIG/zdrges.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -381,10 +379,9 @@ SUBROUTINE ZDRGES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/zdrges3.f b/lapack-netlib/TESTING/EIG/zdrges3.f index 2b3be003ca..b678e47042 100644 --- a/lapack-netlib/TESTING/EIG/zdrges3.f +++ b/lapack-netlib/TESTING/EIG/zdrges3.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -382,10 +380,9 @@ SUBROUTINE ZDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -744,6 +741,14 @@ SUBROUTINE ZDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RSUB = 5 END IF * +* Call XLAENV to set the parameters used in ZLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call ZGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL ZLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/zdrgev.f b/lapack-netlib/TESTING/EIG/zdrgev.f index 2588816a56..e7389183bc 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev.f +++ b/lapack-netlib/TESTING/EIG/zdrgev.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -399,10 +397,9 @@ SUBROUTINE ZDRGEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrgev3.f b/lapack-netlib/TESTING/EIG/zdrgev3.f index 11e8562d7f..4ccc987763 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev3.f +++ b/lapack-netlib/TESTING/EIG/zdrgev3.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -399,10 +397,9 @@ SUBROUTINE ZDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -736,6 +733,14 @@ SUBROUTINE ZDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in ZLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call ZGGEV3 to compute eigenvalues and eigenvectors. * CALL ZLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/zdrgsx.f b/lapack-netlib/TESTING/EIG/zdrgsx.f index f5821e5202..096ed3c225 100644 --- a/lapack-netlib/TESTING/EIG/zdrgsx.f +++ b/lapack-netlib/TESTING/EIG/zdrgsx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -349,10 +347,9 @@ SUBROUTINE ZDRGSX( NSIZE, NCMAX, THRESH, NIN, NOUT, A, LDA, B, AI, $ BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, $ RWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/zdrgvx.f b/lapack-netlib/TESTING/EIG/zdrgvx.f index 4a69564514..72e0303fbd 100644 --- a/lapack-netlib/TESTING/EIG/zdrgvx.f +++ b/lapack-netlib/TESTING/EIG/zdrgvx.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -297,10 +295,9 @@ SUBROUTINE ZDRGVX( NSIZE, THRESH, NIN, NOUT, A, LDA, B, AI, BI, $ S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/zdrvbd.f b/lapack-netlib/TESTING/EIG/zdrvbd.f index 105e9dff7c..916dbf7225 100644 --- a/lapack-netlib/TESTING/EIG/zdrvbd.f +++ b/lapack-netlib/TESTING/EIG/zdrvbd.f @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -401,10 +399,9 @@ SUBROUTINE ZDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/zdrves.f b/lapack-netlib/TESTING/EIG/zdrves.f index 7a625e1b75..d3f237c23b 100644 --- a/lapack-netlib/TESTING/EIG/zdrves.f +++ b/lapack-netlib/TESTING/EIG/zdrves.f @@ -369,8 +369,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE ZDRVES( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/zdrvev.f b/lapack-netlib/TESTING/EIG/zdrvev.f index e818f7ea63..4fbb10e100 100644 --- a/lapack-netlib/TESTING/EIG/zdrvev.f +++ b/lapack-netlib/TESTING/EIG/zdrvev.f @@ -381,8 +381,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -391,10 +389,9 @@ SUBROUTINE ZDRVEV( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrvsg.f b/lapack-netlib/TESTING/EIG/zdrvsg.f index 8238dceef1..336514a3fe 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -370,10 +368,9 @@ SUBROUTINE ZDRVSG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f index 8929b33c42..4bdf2849ed 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f @@ -366,8 +366,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -378,10 +376,9 @@ SUBROUTINE ZDRVSG2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvst.f b/lapack-netlib/TESTING/EIG/zdrvst.f index cf2dc03ed3..384e58de16 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst.f +++ b/lapack-netlib/TESTING/EIG/zdrvst.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -338,10 +336,9 @@ SUBROUTINE ZDRVST( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvst2stg.f b/lapack-netlib/TESTING/EIG/zdrvst2stg.f index de072c9a35..4a88e5218d 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvst2stg.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== @@ -338,10 +336,9 @@ SUBROUTINE ZDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvsx.f b/lapack-netlib/TESTING/EIG/zdrvsx.f index ba3ffab6c8..ac7a2d6ebc 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsx.f +++ b/lapack-netlib/TESTING/EIG/zdrvsx.f @@ -425,8 +425,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -435,10 +433,9 @@ SUBROUTINE ZDRVSX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrvvx.f b/lapack-netlib/TESTING/EIG/zdrvvx.f index 9492e06230..830313c726 100644 --- a/lapack-netlib/TESTING/EIG/zdrvvx.f +++ b/lapack-netlib/TESTING/EIG/zdrvvx.f @@ -485,8 +485,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -496,10 +494,9 @@ SUBROUTINE ZDRVVX( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zerrbd.f b/lapack-netlib/TESTING/EIG/zerrbd.f index f44ef40982..f1dde92666 100644 --- a/lapack-netlib/TESTING/EIG/zerrbd.f +++ b/lapack-netlib/TESTING/EIG/zerrbd.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrec.f b/lapack-netlib/TESTING/EIG/zerrec.f index a35a0de2fe..dc6129da91 100644 --- a/lapack-netlib/TESTING/EIG/zerrec.f +++ b/lapack-netlib/TESTING/EIG/zerrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f index 013dc16c5e..d1219c02b9 100644 --- a/lapack-netlib/TESTING/EIG/zerred.f +++ b/lapack-netlib/TESTING/EIG/zerred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrgg.f b/lapack-netlib/TESTING/EIG/zerrgg.f index 0e3a861df3..26e8df9834 100644 --- a/lapack-netlib/TESTING/EIG/zerrgg.f +++ b/lapack-netlib/TESTING/EIG/zerrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -100,7 +97,7 @@ SUBROUTINE ZERRGG( PATH, NUNIT ) $ ZGGHRD, ZGGLSE, ZGGQRF, ZGGRQF, $ ZHGEQZ, ZTGEVC, ZTGEXC, ZTGSEN, ZTGSJA, ZTGSNA, $ ZTGSYL, ZUNCSD, ZGGES3, ZGGEV3, ZGGHD3, - $ ZGGSVD3, ZGGSVP3 + $ ZGGSVD3, ZGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -138,6 +135,14 @@ SUBROUTINE ZERRGG( PATH, NUNIT ) NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/zerrhs.f b/lapack-netlib/TESTING/EIG/zerrhs.f index 4949ceaa56..5823389477 100644 --- a/lapack-netlib/TESTING/EIG/zerrhs.f +++ b/lapack-netlib/TESTING/EIG/zerrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f index b906c96df4..5b0e6f8201 100644 --- a/lapack-netlib/TESTING/EIG/zerrst.f +++ b/lapack-netlib/TESTING/EIG/zerrst.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zget02.f b/lapack-netlib/TESTING/EIG/zget02.f index efea825673..1b1ea3d421 100644 --- a/lapack-netlib/TESTING/EIG/zget02.f +++ b/lapack-netlib/TESTING/EIG/zget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> ZGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +115,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/zget10.f b/lapack-netlib/TESTING/EIG/zget10.f index ee7fcbb51a..4442fc8ec2 100644 --- a/lapack-netlib/TESTING/EIG/zget10.f +++ b/lapack-netlib/TESTING/EIG/zget10.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/zget22.f b/lapack-netlib/TESTING/EIG/zget22.f index 68e16baaaa..73ed0ac344 100644 --- a/lapack-netlib/TESTING/EIG/zget22.f +++ b/lapack-netlib/TESTING/EIG/zget22.f @@ -125,6 +125,7 @@ *> RESULT is DOUBLE PRECISION array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -135,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -299,7 +297,7 @@ SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/zget23.f b/lapack-netlib/TESTING/EIG/zget23.f index 39fe152996..fc48a5e1b3 100644 --- a/lapack-netlib/TESTING/EIG/zget23.f +++ b/lapack-netlib/TESTING/EIG/zget23.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -368,10 +366,9 @@ SUBROUTINE ZGET23( COMP, ISRT, BALANC, JTYPE, THRESH, ISEED, $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/zget24.f b/lapack-netlib/TESTING/EIG/zget24.f index 1641a018c1..670611e91c 100644 --- a/lapack-netlib/TESTING/EIG/zget24.f +++ b/lapack-netlib/TESTING/EIG/zget24.f @@ -325,8 +325,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -335,10 +333,9 @@ SUBROUTINE ZGET24( COMP, JTYPE, THRESH, ISEED, NOUNIT, N, A, LDA, $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/zget35.f b/lapack-netlib/TESTING/EIG/zget35.f index 2ea73a2c59..5da48bcb0f 100644 --- a/lapack-netlib/TESTING/EIG/zget35.f +++ b/lapack-netlib/TESTING/EIG/zget35.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/zget36.f b/lapack-netlib/TESTING/EIG/zget36.f index d5bc06ea91..c7a79b99f7 100644 --- a/lapack-netlib/TESTING/EIG/zget36.f +++ b/lapack-netlib/TESTING/EIG/zget36.f @@ -78,17 +78,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/zget37.f b/lapack-netlib/TESTING/EIG/zget37.f index 85aaf79496..63680e8556 100644 --- a/lapack-netlib/TESTING/EIG/zget37.f +++ b/lapack-netlib/TESTING/EIG/zget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/zget38.f b/lapack-netlib/TESTING/EIG/zget38.f index c88a383bd0..43b538fcf2 100644 --- a/lapack-netlib/TESTING/EIG/zget38.f +++ b/lapack-netlib/TESTING/EIG/zget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/zget51.f b/lapack-netlib/TESTING/EIG/zget51.f index e019127a3e..7b2ea679a3 100644 --- a/lapack-netlib/TESTING/EIG/zget51.f +++ b/lapack-netlib/TESTING/EIG/zget51.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/zget52.f b/lapack-netlib/TESTING/EIG/zget52.f index 75126d33d3..e22939a6c2 100644 --- a/lapack-netlib/TESTING/EIG/zget52.f +++ b/lapack-netlib/TESTING/EIG/zget52.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -238,7 +235,7 @@ SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * DO 10 JVEC = 1, N ALPHAI = ALPHA( JVEC ) @@ -278,7 +275,7 @@ SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) 30 CONTINUE * * Compute RESULT(2) : the normalization error in E. diff --git a/lapack-netlib/TESTING/EIG/zget54.f b/lapack-netlib/TESTING/EIG/zget54.f index 106e29074c..6ac622018d 100644 --- a/lapack-netlib/TESTING/EIG/zget54.f +++ b/lapack-netlib/TESTING/EIG/zget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/zglmts.f b/lapack-netlib/TESTING/EIG/zglmts.f index 344ae3a096..63664241d3 100644 --- a/lapack-netlib/TESTING/EIG/zglmts.f +++ b/lapack-netlib/TESTING/EIG/zglmts.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgqrts.f b/lapack-netlib/TESTING/EIG/zgqrts.f index c963dee93c..7d331414ab 100644 --- a/lapack-netlib/TESTING/EIG/zgqrts.f +++ b/lapack-netlib/TESTING/EIG/zgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgrqts.f b/lapack-netlib/TESTING/EIG/zgrqts.f index 3a14737239..f62b23a6f8 100644 --- a/lapack-netlib/TESTING/EIG/zgrqts.f +++ b/lapack-netlib/TESTING/EIG/zgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgsvts3.f b/lapack-netlib/TESTING/EIG/zgsvts3.f index fa9bb38d94..729a6f3ce6 100644 --- a/lapack-netlib/TESTING/EIG/zgsvts3.f +++ b/lapack-netlib/TESTING/EIG/zgsvts3.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -209,10 +207,9 @@ SUBROUTINE ZGSVTS3( M, P, N, A, AF, LDA, B, BF, LDB, U, LDU, V, $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zhbt21.f b/lapack-netlib/TESTING/EIG/zhbt21.f index 68125854c7..cedf8344fe 100644 --- a/lapack-netlib/TESTING/EIG/zhbt21.f +++ b/lapack-netlib/TESTING/EIG/zhbt21.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhet21.f b/lapack-netlib/TESTING/EIG/zhet21.f index cb854a850d..d254f85e9c 100644 --- a/lapack-netlib/TESTING/EIG/zhet21.f +++ b/lapack-netlib/TESTING/EIG/zhet21.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhet22.f b/lapack-netlib/TESTING/EIG/zhet22.f index 8ef73aef30..6606d250b6 100644 --- a/lapack-netlib/TESTING/EIG/zhet22.f +++ b/lapack-netlib/TESTING/EIG/zhet22.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhpt21.f b/lapack-netlib/TESTING/EIG/zhpt21.f index 825d387c79..70734dafe9 100644 --- a/lapack-netlib/TESTING/EIG/zhpt21.f +++ b/lapack-netlib/TESTING/EIG/zhpt21.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhst01.f b/lapack-netlib/TESTING/EIG/zhst01.f index b98045fab0..ebb1c48952 100644 --- a/lapack-netlib/TESTING/EIG/zhst01.f +++ b/lapack-netlib/TESTING/EIG/zhst01.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/zlarfy.f b/lapack-netlib/TESTING/EIG/zlarfy.f index 57605731bf..e0cb2f9795 100644 --- a/lapack-netlib/TESTING/EIG/zlarfy.f +++ b/lapack-netlib/TESTING/EIG/zlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zlarhs.f b/lapack-netlib/TESTING/EIG/zlarhs.f index f2fe47e9bc..f5b03dbff0 100644 --- a/lapack-netlib/TESTING/EIG/zlarhs.f +++ b/lapack-netlib/TESTING/EIG/zlarhs.f @@ -30,8 +30,7 @@ *> ZLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/zlatm4.f b/lapack-netlib/TESTING/EIG/zlatm4.f index 429404f2f8..1223993879 100644 --- a/lapack-netlib/TESTING/EIG/zlatm4.f +++ b/lapack-netlib/TESTING/EIG/zlatm4.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL RSIGN diff --git a/lapack-netlib/TESTING/EIG/zlctes.f b/lapack-netlib/TESTING/EIG/zlctes.f index 4b471b751b..a7ac8b067f 100644 --- a/lapack-netlib/TESTING/EIG/zlctes.f +++ b/lapack-netlib/TESTING/EIG/zlctes.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZLCTES( Z, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX*16 D, Z diff --git a/lapack-netlib/TESTING/EIG/zlctsx.f b/lapack-netlib/TESTING/EIG/zlctsx.f index 9f30e61fe1..95d3e13258 100644 --- a/lapack-netlib/TESTING/EIG/zlctsx.f +++ b/lapack-netlib/TESTING/EIG/zlctsx.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 ALPHA, BETA diff --git a/lapack-netlib/TESTING/EIG/zlsets.f b/lapack-netlib/TESTING/EIG/zlsets.f index 6f324ea80e..8c8ff01b22 100644 --- a/lapack-netlib/TESTING/EIG/zlsets.f +++ b/lapack-netlib/TESTING/EIG/zlsets.f @@ -143,18 +143,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zsbmv.f b/lapack-netlib/TESTING/EIG/zsbmv.f index 6438825507..ad8baee592 100644 --- a/lapack-netlib/TESTING/EIG/zsbmv.f +++ b/lapack-netlib/TESTING/EIG/zsbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zsgt01.f b/lapack-netlib/TESTING/EIG/zsgt01.f index e512253db6..97e10fcea9 100644 --- a/lapack-netlib/TESTING/EIG/zsgt01.f +++ b/lapack-netlib/TESTING/EIG/zsgt01.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -250,6 +247,6 @@ SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, * RETURN * -* End of CDGT01 +* End of ZDGT01 * END diff --git a/lapack-netlib/TESTING/EIG/zslect.f b/lapack-netlib/TESTING/EIG/zslect.f index 519c7764f2..ec6ff4e016 100644 --- a/lapack-netlib/TESTING/EIG/zslect.f +++ b/lapack-netlib/TESTING/EIG/zslect.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZSLECT( Z ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX*16 Z diff --git a/lapack-netlib/TESTING/EIG/zstt21.f b/lapack-netlib/TESTING/EIG/zstt21.f index f2e32a12e8..4df1f7fe2b 100644 --- a/lapack-netlib/TESTING/EIG/zstt21.f +++ b/lapack-netlib/TESTING/EIG/zstt21.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/zstt22.f b/lapack-netlib/TESTING/EIG/zstt22.f index c0f684fc37..b21773b162 100644 --- a/lapack-netlib/TESTING/EIG/zstt22.f +++ b/lapack-netlib/TESTING/EIG/zstt22.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/zunt01.f b/lapack-netlib/TESTING/EIG/zunt01.f index d2d64227f3..040c88f449 100644 --- a/lapack-netlib/TESTING/EIG/zunt01.f +++ b/lapack-netlib/TESTING/EIG/zunt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/zunt03.f b/lapack-netlib/TESTING/EIG/zunt03.f index 4560410a30..2ab2cde0d4 100644 --- a/lapack-netlib/TESTING/EIG/zunt03.f +++ b/lapack-netlib/TESTING/EIG/zunt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/LIN/aladhd.f b/lapack-netlib/TESTING/LIN/aladhd.f index a31621db2d..f2a1c39511 100644 --- a/lapack-netlib/TESTING/LIN/aladhd.f +++ b/lapack-netlib/TESTING/LIN/aladhd.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALADHD( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alaerh.f b/lapack-netlib/TESTING/LIN/alaerh.f index 5677940c89..1845888a66 100644 --- a/lapack-netlib/TESTING/LIN/alaerh.f +++ b/lapack-netlib/TESTING/LIN/alaerh.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, $ N5, IMAT, NFAIL, NERRS, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alaesm.f b/lapack-netlib/TESTING/LIN/alaesm.f index 6e01f2490f..391da22d4f 100644 --- a/lapack-netlib/TESTING/LIN/alaesm.f +++ b/lapack-netlib/TESTING/LIN/alaesm.f @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAESM( PATH, OK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL OK diff --git a/lapack-netlib/TESTING/LIN/alahd.f b/lapack-netlib/TESTING/LIN/alahd.f index 8f4cd58dac..2cc0fba063 100644 --- a/lapack-netlib/TESTING/LIN/alahd.f +++ b/lapack-netlib/TESTING/LIN/alahd.f @@ -86,6 +86,8 @@ *> _QS: QR variants *> _QT: QRT (general matrices) *> _QX: QRT (triangular-pentagonal matrices) +*> _TS: QR routines for tall-skinny and short-wide matrices +*> _HH: Householder reconstruction for tall-skinny matrices *> The first character must be one of S, D, C, or Z (C or Z only *> if complex). *> \endverbatim @@ -98,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAHD( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -708,7 +707,7 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) * ELSE IF( LSAMEN( 2, P2, 'TS' ) ) THEN * -* QRT (triangular-pentagonal) +* TS: QR routines for tall-skinny and short-wide matrices * WRITE( IOUNIT, FMT = 8004 ) PATH WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) @@ -718,6 +717,19 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) WRITE( IOUNIT, FMT = 8038 ) 4 WRITE( IOUNIT, FMT = 8039 ) 5 WRITE( IOUNIT, FMT = 8040 ) 6 +* + ELSE IF( LSAMEN( 2, P2, 'HH' ) ) THEN +* +* HH: Householder reconstruction for tall-skinny matrices +* + WRITE( IOUNIT, FMT = 8005 ) PATH + WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) + WRITE( IOUNIT, FMT = 8050 ) 1 + WRITE( IOUNIT, FMT = 8051 ) 2 + WRITE( IOUNIT, FMT = 8052 ) 3 + WRITE( IOUNIT, FMT = 8053 ) 4 + WRITE( IOUNIT, FMT = 8054 ) 5 + WRITE( IOUNIT, FMT = 8055 ) 6 * ELSE * @@ -763,7 +775,9 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) 8003 FORMAT( / 1X, A3, ': LQT factorization for ', $ 'triangular-pentagonal matrices' ) 8004 FORMAT( / 1X, A3, ': TS factorization for ', - $ 'tall-skiny or short-wide matrices' ) + $ 'tall-skinny or short-wide matrices' ) + 8005 FORMAT( / 1X, A3, ': Householder recostruction from TSQR', + $ ' factorization output ', /,' for tall-skinny matrices.' ) * * GE matrix types * @@ -1036,7 +1050,7 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) 9929 FORMAT( ' Test ratios (1-3: ', A1, 'TZRZF):' ) 9920 FORMAT( 3X, ' 7-10: same as 3-6', 3X, ' 11-14: same as 3-6' ) 9921 FORMAT( ' Test ratios:', / ' (1-2: ', A1, 'GELS, 3-6: ', A1, - $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: ' + $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: ', $ A1, 'GETSLS)') 9928 FORMAT( 7X, 'where ALPHA = ( 1 + SQRT( 17 ) ) / 8' ) 9927 FORMAT( 3X, I2, ': ABS( Largest element in L )', / 12X, @@ -1081,6 +1095,14 @@ SUBROUTINE ALAHD( IOUNIT, PATH ) 8039 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( (M+N) * norm(C) * EPS )' ) 8040 FORMAT(3X,I2, $ ': norm( C*Q'' - C*Q'' ) / ( (M+N) * norm(C) * EPS )') +* + 8050 FORMAT(3X,I2,': norm( R - Q''*A ) / ( M * norm(A) * EPS )' ) + 8051 FORMAT(3X,I2,': norm( I - Q''*Q ) / ( M * EPS )' ) + 8052 FORMAT(3X,I2,': norm( Q*C - Q*C ) / ( M * norm(C) * EPS )' ) + 8053 FORMAT(3X,I2,': norm( Q''*C - Q''*C ) / ( M * norm(C) * EPS )') + 8054 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( M * norm(C) * EPS )' ) + 8055 FORMAT(3X,I2,': norm( C*Q'' - C*Q'' ) / ( M * norm(C) * EPS )') + * RETURN * diff --git a/lapack-netlib/TESTING/LIN/alareq.f b/lapack-netlib/TESTING/LIN/alareq.f index e1b084debc..db18775ebc 100644 --- a/lapack-netlib/TESTING/LIN/alareq.f +++ b/lapack-netlib/TESTING/LIN/alareq.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alasum.f b/lapack-netlib/TESTING/LIN/alasum.f index bd5d3af9b9..432b8df458 100644 --- a/lapack-netlib/TESTING/LIN/alasum.f +++ b/lapack-netlib/TESTING/LIN/alasum.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/LIN/alasvm.f b/lapack-netlib/TESTING/LIN/alasvm.f index 3fcbcca389..d9e5000134 100644 --- a/lapack-netlib/TESTING/LIN/alasvm.f +++ b/lapack-netlib/TESTING/LIN/alasvm.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/LIN/cchkeq.f b/lapack-netlib/TESTING/LIN/cchkeq.f index 7c79d68f89..e2f092fc6c 100644 --- a/lapack-netlib/TESTING/LIN/cchkeq.f +++ b/lapack-netlib/TESTING/LIN/cchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/cchkgb.f b/lapack-netlib/TESTING/LIN/cchkgb.f index 4a3f187a13..9bb6f29b79 100644 --- a/lapack-netlib/TESTING/LIN/cchkgb.f +++ b/lapack-netlib/TESTING/LIN/cchkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -191,10 +189,9 @@ SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'CLARHS' CALL CLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ SUBROUTINE CCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ WORK, LDB ) CALL CGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/cchkge.f b/lapack-netlib/TESTING/LIN/cchkge.f index 3fe22d0ef0..0ee1c85c57 100644 --- a/lapack-netlib/TESTING/LIN/cchkge.f +++ b/lapack-netlib/TESTING/LIN/cchkge.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -186,10 +184,9 @@ SUBROUTINE CCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkgt.f b/lapack-netlib/TESTING/LIN/cchkgt.f index a6780400c9..b6fd5e4b55 100644 --- a/lapack-netlib/TESTING/LIN/cchkgt.f +++ b/lapack-netlib/TESTING/LIN/cchkgt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhe.f b/lapack-netlib/TESTING/LIN/cchkhe.f index 72dd71f662..1ff0257579 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe.f +++ b/lapack-netlib/TESTING/LIN/cchkhe.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE CCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa.f b/lapack-netlib/TESTING/LIN/cchkhe_aa.f index 8dd551a726..487f9941e8 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_aa.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,9 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +169,9 @@ SUBROUTINE CCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f index 06b2134fa7..30a61261f5 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,9 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex_lin * * ===================================================================== @@ -173,10 +170,9 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -579,6 +575,6 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ I6 ) RETURN * -* End of CCHKSY_AA_2STAGE +* End of CCHKHE_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rk.f b/lapack-netlib/TESTING/LIN/cchkhe_rk.f index 24a4f37850..4f9801f88d 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_rk.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE CCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -493,7 +490,7 @@ SUBROUTINE CCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'CHETRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that CPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rook.f b/lapack-netlib/TESTING/LIN/cchkhe_rook.f index ace7844f8c..72a4a1d4d0 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_rook.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE CCHKHE_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhp.f b/lapack-netlib/TESTING/LIN/cchkhp.f index d07bfd24ad..8d7cf477a2 100644 --- a/lapack-netlib/TESTING/LIN/cchkhp.f +++ b/lapack-netlib/TESTING/LIN/cchkhp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE CCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklq.f b/lapack-netlib/TESTING/LIN/cchklq.f index a407203f06..54107d0475 100644 --- a/lapack-netlib/TESTING/LIN/cchklq.f +++ b/lapack-netlib/TESTING/LIN/cchklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE CCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklqt.f b/lapack-netlib/TESTING/LIN/cchklqt.f index 8dfd394c64..7ec8b2c622 100644 --- a/lapack-netlib/TESTING/LIN/cchklqt.f +++ b/lapack-netlib/TESTING/LIN/cchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE CCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklqtp.f b/lapack-netlib/TESTING/LIN/cchklqtp.f index 1ecc1072d1..987c0c3654 100644 --- a/lapack-netlib/TESTING/LIN/cchklqtp.f +++ b/lapack-netlib/TESTING/LIN/cchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE CCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpb.f b/lapack-netlib/TESTING/LIN/cchkpb.f index 8517168fea..4d1ab6f4f9 100644 --- a/lapack-netlib/TESTING/LIN/cchkpb.f +++ b/lapack-netlib/TESTING/LIN/cchkpb.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE CCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpo.f b/lapack-netlib/TESTING/LIN/cchkpo.f index 93ad9c34fa..8cf85bf6e4 100644 --- a/lapack-netlib/TESTING/LIN/cchkpo.f +++ b/lapack-netlib/TESTING/LIN/cchkpo.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE CCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpp.f b/lapack-netlib/TESTING/LIN/cchkpp.f index 9d7a8b5c69..8b736e52b7 100644 --- a/lapack-netlib/TESTING/LIN/cchkpp.f +++ b/lapack-netlib/TESTING/LIN/cchkpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE CCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkps.f b/lapack-netlib/TESTING/LIN/cchkps.f index cf1da91bf2..d77ffc0262 100644 --- a/lapack-netlib/TESTING/LIN/cchkps.f +++ b/lapack-netlib/TESTING/LIN/cchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -154,10 +152,9 @@ SUBROUTINE CCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL THRESH diff --git a/lapack-netlib/TESTING/LIN/cchkpt.f b/lapack-netlib/TESTING/LIN/cchkpt.f index a1c28af76e..2ec8020646 100644 --- a/lapack-netlib/TESTING/LIN/cchkpt.f +++ b/lapack-netlib/TESTING/LIN/cchkpt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkq3.f b/lapack-netlib/TESTING/LIN/cchkq3.f index 10c29e14eb..e065655393 100644 --- a/lapack-netlib/TESTING/LIN/cchkq3.f +++ b/lapack-netlib/TESTING/LIN/cchkq3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -158,10 +156,9 @@ SUBROUTINE CCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/cchkql.f b/lapack-netlib/TESTING/LIN/cchkql.f index 12b7ceded6..34c6ca6a71 100644 --- a/lapack-netlib/TESTING/LIN/cchkql.f +++ b/lapack-netlib/TESTING/LIN/cchkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE CCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqr.f b/lapack-netlib/TESTING/LIN/cchkqr.f index 7c9ded0122..7ea178eaf5 100644 --- a/lapack-netlib/TESTING/LIN/cchkqr.f +++ b/lapack-netlib/TESTING/LIN/cchkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE CCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqrt.f b/lapack-netlib/TESTING/LIN/cchkqrt.f index 6f5552bb38..7aeb6df4be 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrt.f +++ b/lapack-netlib/TESTING/LIN/cchkqrt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqrtp.f b/lapack-netlib/TESTING/LIN/cchkqrtp.f index 3d8dd2a388..6820c90042 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/cchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkrfp.f b/lapack-netlib/TESTING/LIN/cchkrfp.f index 6a692f71df..58d55c31c9 100644 --- a/lapack-netlib/TESTING/LIN/cchkrfp.f +++ b/lapack-netlib/TESTING/LIN/cchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== PROGRAM CCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/cchkrq.f b/lapack-netlib/TESTING/LIN/cchkrq.f index 9a42dc1352..48050c51f9 100644 --- a/lapack-netlib/TESTING/LIN/cchkrq.f +++ b/lapack-netlib/TESTING/LIN/cchkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE CCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksp.f b/lapack-netlib/TESTING/LIN/cchksp.f index 5109ac740e..584cf426cc 100644 --- a/lapack-netlib/TESTING/LIN/cchksp.f +++ b/lapack-netlib/TESTING/LIN/cchksp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE CCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksy.f b/lapack-netlib/TESTING/LIN/cchksy.f index d25417f7a9..c933f0c967 100644 --- a/lapack-netlib/TESTING/LIN/cchksy.f +++ b/lapack-netlib/TESTING/LIN/cchksy.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE CCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa.f b/lapack-netlib/TESTING/LIN/cchksy_aa.f index 3a38d87a4b..015d5a68e6 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/cchksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,10 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from LIN/dchksy_aa.f, fortran d -> c, Wed Nov 16 21:34:18 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +168,9 @@ SUBROUTINE CCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f index c17ae54e6a..bede7cca5e 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE CCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchksy_rk.f b/lapack-netlib/TESTING/LIN/cchksy_rk.f index 9475bb7538..f4954054f4 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/cchksy_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE CCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -505,7 +502,7 @@ SUBROUTINE CCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'CSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that CSYT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/cchksy_rook.f b/lapack-netlib/TESTING/LIN/cchksy_rook.f index 84802f3b8f..2031089801 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/cchksy_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE CCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktb.f b/lapack-netlib/TESTING/LIN/cchktb.f index 027e3ecd8b..865b9de329 100644 --- a/lapack-netlib/TESTING/LIN/cchktb.f +++ b/lapack-netlib/TESTING/LIN/cchktb.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktp.f b/lapack-netlib/TESTING/LIN/cchktp.f index 98c4b080b9..18242ff54c 100644 --- a/lapack-netlib/TESTING/LIN/cchktp.f +++ b/lapack-netlib/TESTING/LIN/cchktp.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -151,10 +149,9 @@ SUBROUTINE CCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktr.f b/lapack-netlib/TESTING/LIN/cchktr.f index ec731b73d9..ce1ecf7615 100644 --- a/lapack-netlib/TESTING/LIN/cchktr.f +++ b/lapack-netlib/TESTING/LIN/cchktr.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE CCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktsqr.f b/lapack-netlib/TESTING/LIN/cchktsqr.f index 62b6ce4340..0a85d7cf1e 100644 --- a/lapack-netlib/TESTING/LIN/cchktsqr.f +++ b/lapack-netlib/TESTING/LIN/cchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of CCHKQRT +* End of CCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/cchktz.f b/lapack-netlib/TESTING/LIN/cchktz.f index 4926773a62..192b1c390e 100644 --- a/lapack-netlib/TESTING/LIN/cchktz.f +++ b/lapack-netlib/TESTING/LIN/cchktz.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkunhr_col.f b/lapack-netlib/TESTING/LIN/cchkunhr_col.f index 0d6a9063db..b2f233e258 100644 --- a/lapack-netlib/TESTING/LIN/cchkunhr_col.f +++ b/lapack-netlib/TESTING/LIN/cchkunhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/cdrvgb.f b/lapack-netlib/TESTING/LIN/cdrvgb.f index 42e26028a4..389725eaed 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgb.f +++ b/lapack-netlib/TESTING/LIN/cdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL CGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/cdrvgbx.f b/lapack-netlib/TESTING/LIN/cdrvgbx.f index b043c10891..68ff66e07e 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/cdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL CGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -711,6 +709,7 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -900,7 +899,8 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, CALL CLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) ) + $ LDA, X, LDB, WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact solution. * @@ -1030,6 +1030,6 @@ SUBROUTINE CDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * RETURN * -* End of CDRVGB +* End of CDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvge.f b/lapack-netlib/TESTING/LIN/cdrvge.f index 054e7e84ef..386bd31086 100644 --- a/lapack-netlib/TESTING/LIN/cdrvge.f +++ b/lapack-netlib/TESTING/LIN/cdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvgex.f b/lapack-netlib/TESTING/LIN/cdrvgex.f index 9b075908ff..d989261db3 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgex.f +++ b/lapack-netlib/TESTING/LIN/cdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -892,6 +889,6 @@ SUBROUTINE CDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of CDRVGE +* End of CDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvgt.f b/lapack-netlib/TESTING/LIN/cdrvgt.f index 8d431efc5f..8d43f640fe 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgt.f +++ b/lapack-netlib/TESTING/LIN/cdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe.f b/lapack-netlib/TESTING/LIN/cdrvhe.f index 9d5beb843a..de7851e0f5 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f index d56aa45b0b..70c4a7e312 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f index 959258e1fe..51cef512d8 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE CDRVHE_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f index f410277b4d..72669ccd18 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -158,10 +156,9 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -414,7 +411,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f index 6110aadf99..d2f3cb7975 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE CDRVHE_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhex.f b/lapack-netlib/TESTING/LIN/cdrvhex.f index c6604c3922..940ad416d6 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhex.f +++ b/lapack-netlib/TESTING/LIN/cdrvhex.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -718,6 +715,6 @@ SUBROUTINE CDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of CDRVHE +* End of CDRVHEX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvhp.f b/lapack-netlib/TESTING/LIN/cdrvhp.f index 875c894fe5..27ff71c5e3 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhp.f +++ b/lapack-netlib/TESTING/LIN/cdrvhp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE CDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvls.f b/lapack-netlib/TESTING/LIN/cdrvls.f index f43c10b721..7fe189e5fd 100644 --- a/lapack-netlib/TESTING/LIN/cdrvls.f +++ b/lapack-netlib/TESTING/LIN/cdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -192,10 +190,9 @@ SUBROUTINE CDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpb.f b/lapack-netlib/TESTING/LIN/cdrvpb.f index fb43d7f736..7f8a846280 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpb.f +++ b/lapack-netlib/TESTING/LIN/cdrvpb.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE CDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpo.f b/lapack-netlib/TESTING/LIN/cdrvpo.f index 8f484d6de4..88cca10dfd 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpo.f +++ b/lapack-netlib/TESTING/LIN/cdrvpo.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpox.f b/lapack-netlib/TESTING/LIN/cdrvpox.f index cc08095d67..4103b543e0 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpox.f +++ b/lapack-netlib/TESTING/LIN/cdrvpox.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -162,10 +160,9 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -734,6 +731,6 @@ SUBROUTINE CDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of CDRVPO +* End of CDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvpp.f b/lapack-netlib/TESTING/LIN/cdrvpp.f index 5e38c18507..c2fa2eb76c 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpp.f +++ b/lapack-netlib/TESTING/LIN/cdrvpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE CDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpt.f b/lapack-netlib/TESTING/LIN/cdrvpt.f index 926f22378a..41a868b74e 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpt.f +++ b/lapack-netlib/TESTING/LIN/cdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvrf1.f b/lapack-netlib/TESTING/LIN/cdrvrf1.f index eb3949807f..dec82def2c 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf1.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrf2.f b/lapack-netlib/TESTING/LIN/cdrvrf2.f index d1b9c87522..774e3880ff 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrf3.f b/lapack-netlib/TESTING/LIN/cdrvrf3.f index 2c71d0fc56..1ca816979a 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf3.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -259,8 +256,8 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * Generate A our NA--by--NA triangular * matrix. * Our test is based on forward error so we -* do want A to be well conditionned! To get -* a well-conditionned triangular matrix, we +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/cdrvrf4.f b/lapack-netlib/TESTING/LIN/cdrvrf4.f index d3e6a39c84..047c1760bc 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf4.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_CLANGE ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrfp.f b/lapack-netlib/TESTING/LIN/cdrvrfp.f index 362a0e7cb6..cffa28d5fb 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/cdrvrfp.f @@ -232,8 +232,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -244,10 +242,9 @@ SUBROUTINE CDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvsp.f b/lapack-netlib/TESTING/LIN/cdrvsp.f index 169ebaa5a2..d7a9748d18 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsp.f +++ b/lapack-netlib/TESTING/LIN/cdrvsp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE CDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy.f b/lapack-netlib/TESTING/LIN/cdrvsy.f index 475e902008..27a697e8b0 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f index a9e53de4f0..7814d3ae6d 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f @@ -144,10 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from LIN/ddrvsy_aa.f, fortran d -> c, Thu Nov 17 12:14:51 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +151,9 @@ SUBROUTINE CDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f index 2b766bcbd0..3059a4c9c6 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE CDRVSY_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -485,6 +482,6 @@ SUBROUTINE CDRVSY_AA_2STAGE( $ ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of SDRVSY_AA_2STAGE +* End of CSDRVSY_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f index d3ed8c0a96..baa9e178d1 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE CDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -423,7 +420,7 @@ SUBROUTINE CDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f index 4dab875765..4dc04c0299 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE CDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsyx.f b/lapack-netlib/TESTING/LIN/cdrvsyx.f index cc4f754cec..309f7f8702 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/cdrvsyx.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -724,6 +721,6 @@ SUBROUTINE CDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of CDRVSY +* End of CDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/cebchvxx.f b/lapack-netlib/TESTING/LIN/cebchvxx.f index 00f92f4e32..a10a8f6f79 100644 --- a/lapack-netlib/TESTING/LIN/cebchvxx.f +++ b/lapack-netlib/TESTING/LIN/cebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -504,5 +502,7 @@ SUBROUTINE CEBCHVXX( THRESH, PATH ) 8000 FORMAT( ' C', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of CEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/cerrge.f b/lapack-netlib/TESTING/LIN/cerrge.f index 93f26f9dc6..1fcf656f78 100644 --- a/lapack-netlib/TESTING/LIN/cerrge.f +++ b/lapack-netlib/TESTING/LIN/cerrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrgex.f b/lapack-netlib/TESTING/LIN/cerrgex.f index 02230245b2..9858faeaa5 100644 --- a/lapack-netlib/TESTING/LIN/cerrgex.f +++ b/lapack-netlib/TESTING/LIN/cerrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ SUBROUTINE CERRGE( PATH, NUNIT ) * RETURN * -* End of CERRGE +* End of CERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/cerrgt.f b/lapack-netlib/TESTING/LIN/cerrgt.f index f95db6706e..c342133ebe 100644 --- a/lapack-netlib/TESTING/LIN/cerrgt.f +++ b/lapack-netlib/TESTING/LIN/cerrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrhe.f b/lapack-netlib/TESTING/LIN/cerrhe.f index 9e8daa2193..d0c5cf6b59 100644 --- a/lapack-netlib/TESTING/LIN/cerrhe.f +++ b/lapack-netlib/TESTING/LIN/cerrhe.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrhex.f b/lapack-netlib/TESTING/LIN/cerrhex.f index e10a5404fa..b6c8897987 100644 --- a/lapack-netlib/TESTING/LIN/cerrhex.f +++ b/lapack-netlib/TESTING/LIN/cerrhex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -609,6 +606,6 @@ SUBROUTINE CERRHE( PATH, NUNIT ) * RETURN * -* End of CERRHE +* End of CERRHEX * END diff --git a/lapack-netlib/TESTING/LIN/cerrlq.f b/lapack-netlib/TESTING/LIN/cerrlq.f index 822380c9ac..1036835b4d 100644 --- a/lapack-netlib/TESTING/LIN/cerrlq.f +++ b/lapack-netlib/TESTING/LIN/cerrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrlqt.f b/lapack-netlib/TESTING/LIN/cerrlqt.f index 6e2d8b321d..4ee50cd6c3 100644 --- a/lapack-netlib/TESTING/LIN/cerrlqt.f +++ b/lapack-netlib/TESTING/LIN/cerrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrlqtp.f b/lapack-netlib/TESTING/LIN/cerrlqtp.f index 7786dc1d3a..a4e7f9d48d 100644 --- a/lapack-netlib/TESTING/LIN/cerrlqtp.f +++ b/lapack-netlib/TESTING/LIN/cerrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ SUBROUTINE CERRLQTP( PATH, NUNIT ) * RETURN * -* End of CERRLQT +* End of CERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/cerrls.f b/lapack-netlib/TESTING/LIN/cerrls.f index 5510b1c5ed..48e44ad863 100644 --- a/lapack-netlib/TESTING/LIN/cerrls.f +++ b/lapack-netlib/TESTING/LIN/cerrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrpo.f b/lapack-netlib/TESTING/LIN/cerrpo.f index 19f7afbad9..40ebe52201 100644 --- a/lapack-netlib/TESTING/LIN/cerrpo.f +++ b/lapack-netlib/TESTING/LIN/cerrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrpox.f b/lapack-netlib/TESTING/LIN/cerrpox.f index eee3726eb1..2973a1da5b 100644 --- a/lapack-netlib/TESTING/LIN/cerrpox.f +++ b/lapack-netlib/TESTING/LIN/cerrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -532,6 +529,6 @@ SUBROUTINE CERRPO( PATH, NUNIT ) * RETURN * -* End of CERRPO +* End of CERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/cerrps.f b/lapack-netlib/TESTING/LIN/cerrps.f index f9aa3cf140..6b19424bc6 100644 --- a/lapack-netlib/TESTING/LIN/cerrps.f +++ b/lapack-netlib/TESTING/LIN/cerrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/cerrql.f b/lapack-netlib/TESTING/LIN/cerrql.f index 716417b8cd..50f97d4dc9 100644 --- a/lapack-netlib/TESTING/LIN/cerrql.f +++ b/lapack-netlib/TESTING/LIN/cerrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqp.f b/lapack-netlib/TESTING/LIN/cerrqp.f index 3ed463ad84..a2188a71ad 100644 --- a/lapack-netlib/TESTING/LIN/cerrqp.f +++ b/lapack-netlib/TESTING/LIN/cerrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqr.f b/lapack-netlib/TESTING/LIN/cerrqr.f index e124d0f816..21cf22936a 100644 --- a/lapack-netlib/TESTING/LIN/cerrqr.f +++ b/lapack-netlib/TESTING/LIN/cerrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqrt.f b/lapack-netlib/TESTING/LIN/cerrqrt.f index f391a9b329..48ca7df40f 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrt.f +++ b/lapack-netlib/TESTING/LIN/cerrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqrtp.f b/lapack-netlib/TESTING/LIN/cerrqrtp.f index 34e2ecd399..eec35b3bdb 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/cerrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ SUBROUTINE CERRQRTP( PATH, NUNIT ) * RETURN * -* End of CERRQRT +* End of CERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/cerrrfp.f b/lapack-netlib/TESTING/LIN/cerrrfp.f index da02a88851..4f2196c32b 100644 --- a/lapack-netlib/TESTING/LIN/cerrrfp.f +++ b/lapack-netlib/TESTING/LIN/cerrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/cerrrq.f b/lapack-netlib/TESTING/LIN/cerrrq.f index bcacdc3495..2c8c5978fa 100644 --- a/lapack-netlib/TESTING/LIN/cerrrq.f +++ b/lapack-netlib/TESTING/LIN/cerrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrsy.f b/lapack-netlib/TESTING/LIN/cerrsy.f index 17c9f36fb4..a236d2d183 100644 --- a/lapack-netlib/TESTING/LIN/cerrsy.f +++ b/lapack-netlib/TESTING/LIN/cerrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrsyx.f b/lapack-netlib/TESTING/LIN/cerrsyx.f index 617354fab7..34972668e2 100644 --- a/lapack-netlib/TESTING/LIN/cerrsyx.f +++ b/lapack-netlib/TESTING/LIN/cerrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -607,6 +604,6 @@ SUBROUTINE CERRSY( PATH, NUNIT ) * RETURN * -* End of CERRSY +* End of CERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/cerrtr.f b/lapack-netlib/TESTING/LIN/cerrtr.f index a06c0d7515..db65edd881 100644 --- a/lapack-netlib/TESTING/LIN/cerrtr.f +++ b/lapack-netlib/TESTING/LIN/cerrtr.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrtsqr.f b/lapack-netlib/TESTING/LIN/cerrtsqr.f index b9d6ce3c34..165c8d6816 100644 --- a/lapack-netlib/TESTING/LIN/cerrtsqr.f +++ b/lapack-netlib/TESTING/LIN/cerrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Zenver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ SUBROUTINE CERRTSQR( PATH, NUNIT ) PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. COMPLEX A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ SUBROUTINE CERRTSQR( PATH, NUNIT ) CALL CGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'CGEQR', INFOT, NOUT, LERR, OK ) * +* CLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'CLATSQR' + INFOT = 1 + CALL CLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL CLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + CALL CLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL CLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL CLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL CLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) +* * CGEMQR * TAU(1)=1 @@ -192,6 +218,37 @@ SUBROUTINE CERRTSQR( PATH, NUNIT ) CALL CGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'CGELQ', INFOT, NOUT, LERR, OK ) * +* CLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'CLASWLQ' + INFOT = 1 + CALL CLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL CLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + CALL CLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL CLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + CALL CLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL CLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL CLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) +* * CGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/cerrtz.f b/lapack-netlib/TESTING/LIN/cerrtz.f index c6649cf876..4c81279ab4 100644 --- a/lapack-netlib/TESTING/LIN/cerrtz.f +++ b/lapack-netlib/TESTING/LIN/cerrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrunhr_col.f b/lapack-netlib/TESTING/LIN/cerrunhr_col.f index 8fd58a6834..8a5a820c78 100644 --- a/lapack-netlib/TESTING/LIN/cerrunhr_col.f +++ b/lapack-netlib/TESTING/LIN/cerrunhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> CERRUNHR_COL tests the error exits for CUNHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization CLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRUNHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/cerrvx.f b/lapack-netlib/TESTING/LIN/cerrvx.f index 7f929f07f6..701abd1613 100644 --- a/lapack-netlib/TESTING/LIN/cerrvx.f +++ b/lapack-netlib/TESTING/LIN/cerrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrvxx.f b/lapack-netlib/TESTING/LIN/cerrvxx.f index 33bad4f9f1..8fdd36f7c3 100644 --- a/lapack-netlib/TESTING/LIN/cerrvxx.f +++ b/lapack-netlib/TESTING/LIN/cerrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1267,6 +1264,6 @@ SUBROUTINE CERRVX( PATH, NUNIT ) * RETURN * -* End of CERRVX +* End of CERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/cgbt01.f b/lapack-netlib/TESTING/LIN/cgbt01.f index 947ca3f732..277b0b1ab8 100644 --- a/lapack-netlib/TESTING/LIN/cgbt01.f +++ b/lapack-netlib/TESTING/LIN/cgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/cgbt02.f b/lapack-netlib/TESTING/LIN/cgbt02.f index b478fff2db..775827da93 100644 --- a/lapack-netlib/TESTING/LIN/cgbt02.f +++ b/lapack-netlib/TESTING/LIN/cgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,6 +17,7 @@ * REAL RESID * .. * .. Array Arguments .. +* REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -27,9 +28,10 @@ *> \verbatim *> *> CGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -39,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +118,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,6 +156,7 @@ SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, REAL RESID * .. * .. Array Arguments .. + REAL RWORK( * ) COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -163,18 +170,25 @@ SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - REAL ANORM, BNORM, EPS, XNORM + REAL ANORM, BNORM, EPS, TEMP, XNORM + COMPLEX CDUM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL LSAME, SISNAN REAL SCASUM, SLAMCH - EXTERNAL LSAME, SCASUM, SLAMCH + EXTERNAL LSAME, SCASUM, SISNAN, SLAMCH * .. * .. External Subroutines .. EXTERNAL CGBMV * .. +* .. Statement Functions .. + REAL CABS1 +* .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, AIMAG, MAX, MIN, REAL +* .. +* .. Statement Function definitions .. + CABS1( CDUM ) = ABS( REAL( CDUM ) ) + ABS( AIMAG( CDUM ) ) * .. * .. Executable Statements .. * @@ -188,13 +202,38 @@ SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, SCASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = SCASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -206,7 +245,7 @@ SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL CGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1, @@ -214,7 +253,7 @@ SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgbt05.f b/lapack-netlib/TESTING/LIN/cgbt05.f index a6cfe3a093..a2748594dc 100644 --- a/lapack-netlib/TESTING/LIN/cgbt05.f +++ b/lapack-netlib/TESTING/LIN/cgbt05.f @@ -30,7 +30,7 @@ *> CGBT05 tests the error bounds from iterative refinement for the *> computed solution to a system of equations op(A)*X = B, where A is a *> general band matrix of order n with kl subdiagonals and ku -*> superdiagonals and op(A) = A or A**T, depending on TRANS. +*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS. *> *> RESLTS(1) = test of the error bound *> = norm(X - XACT) / ( norm(X) * FERR ) @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cgelqs.f b/lapack-netlib/TESTING/LIN/cgelqs.f index ee08c9b62d..47e17a5830 100644 --- a/lapack-netlib/TESTING/LIN/cgelqs.f +++ b/lapack-netlib/TESTING/LIN/cgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgennd.f b/lapack-netlib/TESTING/LIN/cgennd.f index 5b8fefa7dd..9667d24730 100644 --- a/lapack-netlib/TESTING/LIN/cgennd.f +++ b/lapack-netlib/TESTING/LIN/cgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== LOGICAL FUNCTION CGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/cgeqls.f b/lapack-netlib/TESTING/LIN/cgeqls.f index b1d36107cb..75351220d4 100644 --- a/lapack-netlib/TESTING/LIN/cgeqls.f +++ b/lapack-netlib/TESTING/LIN/cgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgeqrs.f b/lapack-netlib/TESTING/LIN/cgeqrs.f index 76982924c3..13ac7f74fd 100644 --- a/lapack-netlib/TESTING/LIN/cgeqrs.f +++ b/lapack-netlib/TESTING/LIN/cgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgerqs.f b/lapack-netlib/TESTING/LIN/cgerqs.f index 5603ed4786..32cc5a89a5 100644 --- a/lapack-netlib/TESTING/LIN/cgerqs.f +++ b/lapack-netlib/TESTING/LIN/cgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget01.f b/lapack-netlib/TESTING/LIN/cget01.f index ef84e3fad4..8020512c40 100644 --- a/lapack-netlib/TESTING/LIN/cget01.f +++ b/lapack-netlib/TESTING/LIN/cget01.f @@ -100,18 +100,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/cget02.f b/lapack-netlib/TESTING/LIN/cget02.f index 8fe4164588..8be6fe072d 100644 --- a/lapack-netlib/TESTING/LIN/cget02.f +++ b/lapack-netlib/TESTING/LIN/cget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> CGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +96,7 @@ *> B is COMPLEX array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +115,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = CLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget03.f b/lapack-netlib/TESTING/LIN/cget03.f index d08c51250c..b55435a234 100644 --- a/lapack-netlib/TESTING/LIN/cget03.f +++ b/lapack-netlib/TESTING/LIN/cget03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/cget04.f b/lapack-netlib/TESTING/LIN/cget04.f index a4c8c25af9..9aba9910f5 100644 --- a/lapack-netlib/TESTING/LIN/cget04.f +++ b/lapack-netlib/TESTING/LIN/cget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget07.f b/lapack-netlib/TESTING/LIN/cget07.f index f64f6dd8c9..5e51dca5a7 100644 --- a/lapack-netlib/TESTING/LIN/cget07.f +++ b/lapack-netlib/TESTING/LIN/cget07.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cgtt01.f b/lapack-netlib/TESTING/LIN/cgtt01.f index 425c8c805a..e504515c58 100644 --- a/lapack-netlib/TESTING/LIN/cgtt01.f +++ b/lapack-netlib/TESTING/LIN/cgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/cgtt02.f b/lapack-netlib/TESTING/LIN/cgtt02.f index 658cca323a..702e66eedc 100644 --- a/lapack-netlib/TESTING/LIN/cgtt02.f +++ b/lapack-netlib/TESTING/LIN/cgtt02.f @@ -29,7 +29,7 @@ *> *> CGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. *> \endverbatim * @@ -105,7 +105,7 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +166,7 @@ SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGT( '1', N, DL, D, DU ) @@ -185,7 +182,7 @@ SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL CLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/cgtt05.f b/lapack-netlib/TESTING/LIN/cgtt05.f index 9e6722e961..2467cf7c4b 100644 --- a/lapack-netlib/TESTING/LIN/cgtt05.f +++ b/lapack-netlib/TESTING/LIN/cgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/chet01.f b/lapack-netlib/TESTING/LIN/chet01.f index fe08a49fd3..4fc12ed654 100644 --- a/lapack-netlib/TESTING/LIN/chet01.f +++ b/lapack-netlib/TESTING/LIN/chet01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_3.f b/lapack-netlib/TESTING/LIN/chet01_3.f index a1b63ae718..58104a3575 100644 --- a/lapack-netlib/TESTING/LIN/chet01_3.f +++ b/lapack-netlib/TESTING/LIN/chet01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_aa.f b/lapack-netlib/TESTING/LIN/chet01_aa.f index 3301a317ca..8f4ab84e78 100644 --- a/lapack-netlib/TESTING/LIN/chet01_aa.f +++ b/lapack-netlib/TESTING/LIN/chet01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_rook.f b/lapack-netlib/TESTING/LIN/chet01_rook.f index 1dddc7dd31..30aa976a08 100644 --- a/lapack-netlib/TESTING/LIN/chet01_rook.f +++ b/lapack-netlib/TESTING/LIN/chet01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chkxer.f b/lapack-netlib/TESTING/LIN/chkxer.f index cca9ddb312..d2b2c636a4 100644 --- a/lapack-netlib/TESTING/LIN/chkxer.f +++ b/lapack-netlib/TESTING/LIN/chkxer.f @@ -34,17 +34,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL LERR, OK @@ -66,6 +63,6 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) 9999 FORMAT( ' *** Illegal value of parameter number ', I2, $ ' not detected by ', A6, ' ***' ) * -* End of CHKXER. +* End of CHKXER * END diff --git a/lapack-netlib/TESTING/LIN/chpt01.f b/lapack-netlib/TESTING/LIN/chpt01.f index ecb0bebcd9..9ed6b7f44c 100644 --- a/lapack-netlib/TESTING/LIN/chpt01.f +++ b/lapack-netlib/TESTING/LIN/chpt01.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clahilb.f b/lapack-netlib/TESTING/LIN/clahilb.f index c54884b9f5..ba05c5740b 100644 --- a/lapack-netlib/TESTING/LIN/clahilb.f +++ b/lapack-netlib/TESTING/LIN/clahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/claipd.f b/lapack-netlib/TESTING/LIN/claipd.f index acc0c5b940..958639c0ee 100644 --- a/lapack-netlib/TESTING/LIN/claipd.f +++ b/lapack-netlib/TESTING/LIN/claipd.f @@ -76,17 +76,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAIPD( N, A, INDA, VINDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INDA, N, VINDA diff --git a/lapack-netlib/TESTING/LIN/claptm.f b/lapack-netlib/TESTING/LIN/claptm.f index 74eb32853b..52febe0333 100644 --- a/lapack-netlib/TESTING/LIN/claptm.f +++ b/lapack-netlib/TESTING/LIN/claptm.f @@ -121,18 +121,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clarhs.f b/lapack-netlib/TESTING/LIN/clarhs.f index 8b2b31bf87..f0dd2ad912 100644 --- a/lapack-netlib/TESTING/LIN/clarhs.f +++ b/lapack-netlib/TESTING/LIN/clarhs.f @@ -30,8 +30,7 @@ *> CLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/clatb4.f b/lapack-netlib/TESTING/LIN/clatb4.f index a87491db94..eeb0f03a96 100644 --- a/lapack-netlib/TESTING/LIN/clatb4.f +++ b/lapack-netlib/TESTING/LIN/clatb4.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/clatb5.f b/lapack-netlib/TESTING/LIN/clatb5.f index f6a0b5acee..16f27656e4 100644 --- a/lapack-netlib/TESTING/LIN/clatb5.f +++ b/lapack-netlib/TESTING/LIN/clatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ANORM, CNDNUM @@ -229,6 +226,6 @@ SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, * RETURN * -* End of SLATB5 +* End of CLATB5 * END diff --git a/lapack-netlib/TESTING/LIN/clatsp.f b/lapack-netlib/TESTING/LIN/clatsp.f index 8d6df94df5..79bc010ecd 100644 --- a/lapack-netlib/TESTING/LIN/clatsp.f +++ b/lapack-netlib/TESTING/LIN/clatsp.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATSP( UPLO, N, X, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clatsy.f b/lapack-netlib/TESTING/LIN/clatsy.f index 4a4260b05b..111c649984 100644 --- a/lapack-netlib/TESTING/LIN/clatsy.f +++ b/lapack-netlib/TESTING/LIN/clatsy.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clattb.f b/lapack-netlib/TESTING/LIN/clattb.f index 4127f8189b..c5a21f51f9 100644 --- a/lapack-netlib/TESTING/LIN/clattb.f +++ b/lapack-netlib/TESTING/LIN/clattb.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clattp.f b/lapack-netlib/TESTING/LIN/clattp.f index e118520dce..82f0585dfe 100644 --- a/lapack-netlib/TESTING/LIN/clattp.f +++ b/lapack-netlib/TESTING/LIN/clattp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clattr.f b/lapack-netlib/TESTING/LIN/clattr.f index d959692f82..c26e2f9026 100644 --- a/lapack-netlib/TESTING/LIN/clattr.f +++ b/lapack-netlib/TESTING/LIN/clattr.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhe.f b/lapack-netlib/TESTING/LIN/clavhe.f index 0a50167782..838c321212 100644 --- a/lapack-netlib/TESTING/LIN/clavhe.f +++ b/lapack-netlib/TESTING/LIN/clavhe.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhe_rook.f b/lapack-netlib/TESTING/LIN/clavhe_rook.f index 6fca41618c..9d14637ac7 100644 --- a/lapack-netlib/TESTING/LIN/clavhe_rook.f +++ b/lapack-netlib/TESTING/LIN/clavhe_rook.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhp.f b/lapack-netlib/TESTING/LIN/clavhp.f index 1d0176cbc7..5715e87f02 100644 --- a/lapack-netlib/TESTING/LIN/clavhp.f +++ b/lapack-netlib/TESTING/LIN/clavhp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsp.f b/lapack-netlib/TESTING/LIN/clavsp.f index 311f0b4e12..f23c4d9e53 100644 --- a/lapack-netlib/TESTING/LIN/clavsp.f +++ b/lapack-netlib/TESTING/LIN/clavsp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsy.f b/lapack-netlib/TESTING/LIN/clavsy.f index c4d885cc01..f78fef7959 100644 --- a/lapack-netlib/TESTING/LIN/clavsy.f +++ b/lapack-netlib/TESTING/LIN/clavsy.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsy_rook.f b/lapack-netlib/TESTING/LIN/clavsy_rook.f index 73f6e9acc9..604e2de652 100644 --- a/lapack-netlib/TESTING/LIN/clavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/clavsy_rook.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clqt01.f b/lapack-netlib/TESTING/LIN/clqt01.f index a62de24a8f..b302d3541a 100644 --- a/lapack-netlib/TESTING/LIN/clqt01.f +++ b/lapack-netlib/TESTING/LIN/clqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt02.f b/lapack-netlib/TESTING/LIN/clqt02.f index 9b0c86eeca..24eb053995 100644 --- a/lapack-netlib/TESTING/LIN/clqt02.f +++ b/lapack-netlib/TESTING/LIN/clqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt03.f b/lapack-netlib/TESTING/LIN/clqt03.f index 22c299a08c..56706ab309 100644 --- a/lapack-netlib/TESTING/LIN/clqt03.f +++ b/lapack-netlib/TESTING/LIN/clqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt04.f b/lapack-netlib/TESTING/LIN/clqt04.f index 7581fe5fad..97bae67687 100644 --- a/lapack-netlib/TESTING/LIN/clqt04.f +++ b/lapack-netlib/TESTING/LIN/clqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB diff --git a/lapack-netlib/TESTING/LIN/clqt05.f b/lapack-netlib/TESTING/LIN/clqt05.f index e6595a782d..47e335869d 100644 --- a/lapack-netlib/TESTING/LIN/clqt05.f +++ b/lapack-netlib/TESTING/LIN/clqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cpbt01.f b/lapack-netlib/TESTING/LIN/cpbt01.f index 6b0e140e7a..33c80666dc 100644 --- a/lapack-netlib/TESTING/LIN/cpbt01.f +++ b/lapack-netlib/TESTING/LIN/cpbt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpbt02.f b/lapack-netlib/TESTING/LIN/cpbt02.f index 35d22eecd5..d84f38e82a 100644 --- a/lapack-netlib/TESTING/LIN/cpbt02.f +++ b/lapack-netlib/TESTING/LIN/cpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpbt05.f b/lapack-netlib/TESTING/LIN/cpbt05.f index afe67695ad..6e1a7b119a 100644 --- a/lapack-netlib/TESTING/LIN/cpbt05.f +++ b/lapack-netlib/TESTING/LIN/cpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot01.f b/lapack-netlib/TESTING/LIN/cpot01.f index 4de30b46b6..00e195dd63 100644 --- a/lapack-netlib/TESTING/LIN/cpot01.f +++ b/lapack-netlib/TESTING/LIN/cpot01.f @@ -67,10 +67,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is COMPLEX array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**H or U**H * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**H - A (or U**H * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -87,8 +87,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -172,7 +169,7 @@ SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) END IF 10 CONTINUE * -* Compute the product U'*U, overwriting U. +* Compute the product U**H * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 20 K = N, 1, -1 @@ -189,7 +186,7 @@ SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * 20 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**H, overwriting L. * ELSE DO 30 K = N, 1, -1 @@ -209,7 +206,7 @@ SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) 30 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**H - A (or U**H * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 50 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/cpot02.f b/lapack-netlib/TESTING/LIN/cpot02.f index 3c9657650a..9578e4b0d7 100644 --- a/lapack-netlib/TESTING/LIN/cpot02.f +++ b/lapack-netlib/TESTING/LIN/cpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot03.f b/lapack-netlib/TESTING/LIN/cpot03.f index 9faee7466c..1f6fc9bc4a 100644 --- a/lapack-netlib/TESTING/LIN/cpot03.f +++ b/lapack-netlib/TESTING/LIN/cpot03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot05.f b/lapack-netlib/TESTING/LIN/cpot05.f index 438d73c3bf..436a15dfee 100644 --- a/lapack-netlib/TESTING/LIN/cpot05.f +++ b/lapack-netlib/TESTING/LIN/cpot05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt01.f b/lapack-netlib/TESTING/LIN/cppt01.f index c75c085ddc..3a761a4c71 100644 --- a/lapack-netlib/TESTING/LIN/cppt01.f +++ b/lapack-netlib/TESTING/LIN/cppt01.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt02.f b/lapack-netlib/TESTING/LIN/cppt02.f index 29336a6764..ac5a8dbcaf 100644 --- a/lapack-netlib/TESTING/LIN/cppt02.f +++ b/lapack-netlib/TESTING/LIN/cppt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt03.f b/lapack-netlib/TESTING/LIN/cppt03.f index 175ced1739..3383d24378 100644 --- a/lapack-netlib/TESTING/LIN/cppt03.f +++ b/lapack-netlib/TESTING/LIN/cppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt05.f b/lapack-netlib/TESTING/LIN/cppt05.f index 1e279bf35f..685e823e58 100644 --- a/lapack-netlib/TESTING/LIN/cppt05.f +++ b/lapack-netlib/TESTING/LIN/cppt05.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpst01.f b/lapack-netlib/TESTING/LIN/cpst01.f index d446c01239..26da4b3943 100644 --- a/lapack-netlib/TESTING/LIN/cpst01.f +++ b/lapack-netlib/TESTING/LIN/cpst01.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RESID diff --git a/lapack-netlib/TESTING/LIN/cptt01.f b/lapack-netlib/TESTING/LIN/cptt01.f index b3a242b284..e4520ec3da 100644 --- a/lapack-netlib/TESTING/LIN/cptt01.f +++ b/lapack-netlib/TESTING/LIN/cptt01.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/cptt02.f b/lapack-netlib/TESTING/LIN/cptt02.f index c86ab097f3..da4f0e854d 100644 --- a/lapack-netlib/TESTING/LIN/cptt02.f +++ b/lapack-netlib/TESTING/LIN/cptt02.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cptt05.f b/lapack-netlib/TESTING/LIN/cptt05.f index 88ae655bf5..9762c68419 100644 --- a/lapack-netlib/TESTING/LIN/cptt05.f +++ b/lapack-netlib/TESTING/LIN/cptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cqlt01.f b/lapack-netlib/TESTING/LIN/cqlt01.f index 884f9c200b..2a8fe6b786 100644 --- a/lapack-netlib/TESTING/LIN/cqlt01.f +++ b/lapack-netlib/TESTING/LIN/cqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqlt02.f b/lapack-netlib/TESTING/LIN/cqlt02.f index 42af6b9e13..fc4685aa53 100644 --- a/lapack-netlib/TESTING/LIN/cqlt02.f +++ b/lapack-netlib/TESTING/LIN/cqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqlt03.f b/lapack-netlib/TESTING/LIN/cqlt03.f index ef1ff2cec7..fb1bea003f 100644 --- a/lapack-netlib/TESTING/LIN/cqlt03.f +++ b/lapack-netlib/TESTING/LIN/cqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqpt01.f b/lapack-netlib/TESTING/LIN/cqpt01.f index aa9ff4d91a..79fc2dc66c 100644 --- a/lapack-netlib/TESTING/LIN/cqpt01.f +++ b/lapack-netlib/TESTING/LIN/cqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt01.f b/lapack-netlib/TESTING/LIN/cqrt01.f index 6f7420b19e..714edc9c7e 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01.f +++ b/lapack-netlib/TESTING/LIN/cqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt01p.f b/lapack-netlib/TESTING/LIN/cqrt01p.f index 814c22dbff..4f12f28c5d 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01p.f +++ b/lapack-netlib/TESTING/LIN/cqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt02.f b/lapack-netlib/TESTING/LIN/cqrt02.f index 39f0f3e1a7..62f176cd85 100644 --- a/lapack-netlib/TESTING/LIN/cqrt02.f +++ b/lapack-netlib/TESTING/LIN/cqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt03.f b/lapack-netlib/TESTING/LIN/cqrt03.f index 03d7077ab4..08bb826c71 100644 --- a/lapack-netlib/TESTING/LIN/cqrt03.f +++ b/lapack-netlib/TESTING/LIN/cqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt04.f b/lapack-netlib/TESTING/LIN/cqrt04.f index 1b289417d6..711bf70cfe 100644 --- a/lapack-netlib/TESTING/LIN/cqrt04.f +++ b/lapack-netlib/TESTING/LIN/cqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cqrt05.f b/lapack-netlib/TESTING/LIN/cqrt05.f index b6ce21da7a..d33ecc7c83 100644 --- a/lapack-netlib/TESTING/LIN/cqrt05.f +++ b/lapack-netlib/TESTING/LIN/cqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cqrt11.f b/lapack-netlib/TESTING/LIN/cqrt11.f index 7445059a43..494d5e9cd7 100644 --- a/lapack-netlib/TESTING/LIN/cqrt11.f +++ b/lapack-netlib/TESTING/LIN/cqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/cqrt12.f b/lapack-netlib/TESTING/LIN/cqrt12.f index 5659d2b364..4c29423ae5 100644 --- a/lapack-netlib/TESTING/LIN/cqrt12.f +++ b/lapack-netlib/TESTING/LIN/cqrt12.f @@ -89,18 +89,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt13.f b/lapack-netlib/TESTING/LIN/cqrt13.f index 3368858bec..6b2f42aaba 100644 --- a/lapack-netlib/TESTING/LIN/cqrt13.f +++ b/lapack-netlib/TESTING/LIN/cqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/cqrt14.f b/lapack-netlib/TESTING/LIN/cqrt14.f index b2a31e99d0..474af0ed58 100644 --- a/lapack-netlib/TESTING/LIN/cqrt14.f +++ b/lapack-netlib/TESTING/LIN/cqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, IF( XNRM.NE.ZERO ) $ CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = CLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/cqrt15.f b/lapack-netlib/TESTING/LIN/cqrt15.f index d01f3a7caf..f766bb4df5 100644 --- a/lapack-netlib/TESTING/LIN/cqrt15.f +++ b/lapack-netlib/TESTING/LIN/cqrt15.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/cqrt16.f b/lapack-netlib/TESTING/LIN/cqrt16.f index 84ee5f4265..a11b319c18 100644 --- a/lapack-netlib/TESTING/LIN/cqrt16.f +++ b/lapack-netlib/TESTING/LIN/cqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cqrt17.f b/lapack-netlib/TESTING/LIN/cqrt17.f index 1fe28d6fe2..5cea027097 100644 --- a/lapack-netlib/TESTING/LIN/cqrt17.f +++ b/lapack-netlib/TESTING/LIN/cqrt17.f @@ -28,12 +28,15 @@ *> *> CQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'C': Conjugate transpose, op(A) = A'. +*> = 'C': Conjugate transpose, op(A) = A**H. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + REAL ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) @@ -213,7 +213,6 @@ REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, * NORMA = CLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -228,7 +227,7 @@ REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, $ INFO ) END IF * -* compute R'*A +* compute R**H * op(A) * CALL CGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS, $ CMPLX( ONE ), C, LDB, A, LDA, CMPLX( ZERO ), WORK, diff --git a/lapack-netlib/TESTING/LIN/crqt01.f b/lapack-netlib/TESTING/LIN/crqt01.f index f80361c5e4..23d0c96b32 100644 --- a/lapack-netlib/TESTING/LIN/crqt01.f +++ b/lapack-netlib/TESTING/LIN/crqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crqt02.f b/lapack-netlib/TESTING/LIN/crqt02.f index d9501e5462..8625c2f913 100644 --- a/lapack-netlib/TESTING/LIN/crqt02.f +++ b/lapack-netlib/TESTING/LIN/crqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crqt03.f b/lapack-netlib/TESTING/LIN/crqt03.f index 92f5cbe5c2..b3d25d2a8b 100644 --- a/lapack-netlib/TESTING/LIN/crqt03.f +++ b/lapack-netlib/TESTING/LIN/crqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crzt01.f b/lapack-netlib/TESTING/LIN/crzt01.f index 73141982a1..6a75a8b31e 100644 --- a/lapack-netlib/TESTING/LIN/crzt01.f +++ b/lapack-netlib/TESTING/LIN/crzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crzt02.f b/lapack-netlib/TESTING/LIN/crzt02.f index 53a69457c4..8c807c825a 100644 --- a/lapack-netlib/TESTING/LIN/crzt02.f +++ b/lapack-netlib/TESTING/LIN/crzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/csbmv.f b/lapack-netlib/TESTING/LIN/csbmv.f index 776de784a1..4ea747390b 100644 --- a/lapack-netlib/TESTING/LIN/csbmv.f +++ b/lapack-netlib/TESTING/LIN/csbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt01.f b/lapack-netlib/TESTING/LIN/cspt01.f index 5be698121e..31c73e9e46 100644 --- a/lapack-netlib/TESTING/LIN/cspt01.f +++ b/lapack-netlib/TESTING/LIN/cspt01.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt02.f b/lapack-netlib/TESTING/LIN/cspt02.f index 263c07bdce..f4d1fd2683 100644 --- a/lapack-netlib/TESTING/LIN/cspt02.f +++ b/lapack-netlib/TESTING/LIN/cspt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt03.f b/lapack-netlib/TESTING/LIN/cspt03.f index b15dad966c..46b27df25f 100644 --- a/lapack-netlib/TESTING/LIN/cspt03.f +++ b/lapack-netlib/TESTING/LIN/cspt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01.f b/lapack-netlib/TESTING/LIN/csyt01.f index ff068b2d1e..cec8f34f96 100644 --- a/lapack-netlib/TESTING/LIN/csyt01.f +++ b/lapack-netlib/TESTING/LIN/csyt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01_3.f b/lapack-netlib/TESTING/LIN/csyt01_3.f index 3f0f532511..f0b316cefc 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_3.f +++ b/lapack-netlib/TESTING/LIN/csyt01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01_aa.f b/lapack-netlib/TESTING/LIN/csyt01_aa.f index 3d35a42b99..9b0a0c5e4c 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/csyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @generated from LIN/dsyt01_aa.f, fortran d -> c, Thu Nov 17 13:01:50 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -260,6 +255,6 @@ SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, * RETURN * -* End of CSYT01 +* End of CSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/csyt01_rook.f b/lapack-netlib/TESTING/LIN/csyt01_rook.f index cea6f5e8b7..f2ca4541a8 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/csyt01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt02.f b/lapack-netlib/TESTING/LIN/csyt02.f index 4707b3863c..a4a3f99b49 100644 --- a/lapack-netlib/TESTING/LIN/csyt02.f +++ b/lapack-netlib/TESTING/LIN/csyt02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt03.f b/lapack-netlib/TESTING/LIN/csyt03.f index 92ed42502e..f01e24c86e 100644 --- a/lapack-netlib/TESTING/LIN/csyt03.f +++ b/lapack-netlib/TESTING/LIN/csyt03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt02.f b/lapack-netlib/TESTING/LIN/ctbt02.f index adf12192bb..bf58aa1da1 100644 --- a/lapack-netlib/TESTING/LIN/ctbt02.f +++ b/lapack-netlib/TESTING/LIN/ctbt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> CTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b when A is a triangular band matrix. Here A**T denotes -*> the transpose of A, A**H denotes the conjugate transpose of A, and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -153,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -207,7 +202,7 @@ SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK ) diff --git a/lapack-netlib/TESTING/LIN/ctbt03.f b/lapack-netlib/TESTING/LIN/ctbt03.f index 404847b584..94ae9a77ec 100644 --- a/lapack-netlib/TESTING/LIN/ctbt03.f +++ b/lapack-netlib/TESTING/LIN/ctbt03.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt05.f b/lapack-netlib/TESTING/LIN/ctbt05.f index d3d23424b9..b6060564d9 100644 --- a/lapack-netlib/TESTING/LIN/ctbt05.f +++ b/lapack-netlib/TESTING/LIN/ctbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt06.f b/lapack-netlib/TESTING/LIN/ctbt06.f index 0f40ec92d4..c81b854893 100644 --- a/lapack-netlib/TESTING/LIN/ctbt06.f +++ b/lapack-netlib/TESTING/LIN/ctbt06.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt01.f b/lapack-netlib/TESTING/LIN/ctpt01.f index 1c3ecccb76..41a1f78f52 100644 --- a/lapack-netlib/TESTING/LIN/ctpt01.f +++ b/lapack-netlib/TESTING/LIN/ctpt01.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt02.f b/lapack-netlib/TESTING/LIN/ctpt02.f index afdd3a1536..9c32d4206a 100644 --- a/lapack-netlib/TESTING/LIN/ctpt02.f +++ b/lapack-netlib/TESTING/LIN/ctpt02.f @@ -28,14 +28,12 @@ *> \verbatim *> *> CTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b, when the triangular matrix A is stored in packed format. -*> Here A**T denotes the transpose of A, A**H denotes the conjugate -*> transpose of A, and x and b are N by NRHS matrices. The test ratio -*> is the maximum over the number of right hand sides of -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -130,7 +128,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*B - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -141,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -194,7 +189,7 @@ SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTP( '1', UPLO, DIAG, N, AP, RWORK ) @@ -211,7 +206,7 @@ SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ctpt03.f b/lapack-netlib/TESTING/LIN/ctpt03.f index f038478ccf..43ba503104 100644 --- a/lapack-netlib/TESTING/LIN/ctpt03.f +++ b/lapack-netlib/TESTING/LIN/ctpt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt05.f b/lapack-netlib/TESTING/LIN/ctpt05.f index 49d17d90d6..0f1f4ac1c6 100644 --- a/lapack-netlib/TESTING/LIN/ctpt05.f +++ b/lapack-netlib/TESTING/LIN/ctpt05.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt06.f b/lapack-netlib/TESTING/LIN/ctpt06.f index 803c18f1c9..20e8f81c7c 100644 --- a/lapack-netlib/TESTING/LIN/ctpt06.f +++ b/lapack-netlib/TESTING/LIN/ctpt06.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt01.f b/lapack-netlib/TESTING/LIN/ctrt01.f index 6bd59e7650..30c4f2138d 100644 --- a/lapack-netlib/TESTING/LIN/ctrt01.f +++ b/lapack-netlib/TESTING/LIN/ctrt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt02.f b/lapack-netlib/TESTING/LIN/ctrt02.f index 205d12d8e1..72f44af4c7 100644 --- a/lapack-netlib/TESTING/LIN/ctrt02.f +++ b/lapack-netlib/TESTING/LIN/ctrt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> CTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, -*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose -*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS -*> matrices. The test ratio is the maximum over the number of right -*> hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -138,7 +136,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -149,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -203,7 +198,7 @@ SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK ) @@ -220,7 +215,7 @@ SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ctrt03.f b/lapack-netlib/TESTING/LIN/ctrt03.f index 3196f6a2df..b8f44aa053 100644 --- a/lapack-netlib/TESTING/LIN/ctrt03.f +++ b/lapack-netlib/TESTING/LIN/ctrt03.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt05.f b/lapack-netlib/TESTING/LIN/ctrt05.f index 7f05f9c9f1..0edb2d832b 100644 --- a/lapack-netlib/TESTING/LIN/ctrt05.f +++ b/lapack-netlib/TESTING/LIN/ctrt05.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt06.f b/lapack-netlib/TESTING/LIN/ctrt06.f index 7dff470386..07a0ec73f8 100644 --- a/lapack-netlib/TESTING/LIN/ctrt06.f +++ b/lapack-netlib/TESTING/LIN/ctrt06.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctsqr01.f b/lapack-netlib/TESTING/LIN/ctsqr01.f index 6d788ba415..0d91776f88 100644 --- a/lapack-netlib/TESTING/LIN/ctsqr01.f +++ b/lapack-netlib/TESTING/LIN/ctsqr01.f @@ -77,16 +77,13 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* * ===================================================================== SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/dchkab.f b/lapack-netlib/TESTING/LIN/dchkab.f index dddc25acd8..a6b8a0fe1d 100644 --- a/lapack-netlib/TESTING/LIN/dchkab.f +++ b/lapack-netlib/TESTING/LIN/dchkab.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== PROGRAM DCHKAB * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/dchkeq.f b/lapack-netlib/TESTING/LIN/dchkeq.f index 89e1419936..025ddabcf6 100644 --- a/lapack-netlib/TESTING/LIN/dchkeq.f +++ b/lapack-netlib/TESTING/LIN/dchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/dchkgb.f b/lapack-netlib/TESTING/LIN/dchkgb.f index 4ae408bd3c..fa8dce5cff 100644 --- a/lapack-netlib/TESTING/LIN/dchkgb.f +++ b/lapack-netlib/TESTING/LIN/dchkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -191,10 +189,9 @@ SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'DLARHS' CALL DLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ SUBROUTINE DCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ WORK, LDB ) CALL DGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/dchkge.f b/lapack-netlib/TESTING/LIN/dchkge.f index 075b563a52..467667a42b 100644 --- a/lapack-netlib/TESTING/LIN/dchkge.f +++ b/lapack-netlib/TESTING/LIN/dchkge.f @@ -77,7 +77,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -176,8 +176,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -185,10 +183,9 @@ SUBROUTINE DCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkgt.f b/lapack-netlib/TESTING/LIN/dchkgt.f index 2d7e8baf4b..ace78f00c6 100644 --- a/lapack-netlib/TESTING/LIN/dchkgt.f +++ b/lapack-netlib/TESTING/LIN/dchkgt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklq.f b/lapack-netlib/TESTING/LIN/dchklq.f index b63d0361fa..70af41fe0b 100644 --- a/lapack-netlib/TESTING/LIN/dchklq.f +++ b/lapack-netlib/TESTING/LIN/dchklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE DCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklqt.f b/lapack-netlib/TESTING/LIN/dchklqt.f index 66eef0fd7e..aa77d6a62e 100644 --- a/lapack-netlib/TESTING/LIN/dchklqt.f +++ b/lapack-netlib/TESTING/LIN/dchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE DCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklqtp.f b/lapack-netlib/TESTING/LIN/dchklqtp.f index 75940af596..d9251b1f09 100644 --- a/lapack-netlib/TESTING/LIN/dchklqtp.f +++ b/lapack-netlib/TESTING/LIN/dchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE DCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkorhr_col.f b/lapack-netlib/TESTING/LIN/dchkorhr_col.f index 0e2d44d8d2..a849f39106 100644 --- a/lapack-netlib/TESTING/LIN/dchkorhr_col.f +++ b/lapack-netlib/TESTING/LIN/dchkorhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/dchkpb.f b/lapack-netlib/TESTING/LIN/dchkpb.f index a8557e5dee..c5d51230ed 100644 --- a/lapack-netlib/TESTING/LIN/dchkpb.f +++ b/lapack-netlib/TESTING/LIN/dchkpb.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE DCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkpo.f b/lapack-netlib/TESTING/LIN/dchkpo.f index 3ce48f3222..e9d5af1863 100644 --- a/lapack-netlib/TESTING/LIN/dchkpo.f +++ b/lapack-netlib/TESTING/LIN/dchkpo.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE DCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkpp.f b/lapack-netlib/TESTING/LIN/dchkpp.f index b19b766ffd..3da13227a2 100644 --- a/lapack-netlib/TESTING/LIN/dchkpp.f +++ b/lapack-netlib/TESTING/LIN/dchkpp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE DCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkps.f b/lapack-netlib/TESTING/LIN/dchkps.f index e1463bc970..1e4a9e58de 100644 --- a/lapack-netlib/TESTING/LIN/dchkps.f +++ b/lapack-netlib/TESTING/LIN/dchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -154,10 +152,9 @@ SUBROUTINE DCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION THRESH diff --git a/lapack-netlib/TESTING/LIN/dchkpt.f b/lapack-netlib/TESTING/LIN/dchkpt.f index 6cde318166..2869723f28 100644 --- a/lapack-netlib/TESTING/LIN/dchkpt.f +++ b/lapack-netlib/TESTING/LIN/dchkpt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkq3.f b/lapack-netlib/TESTING/LIN/dchkq3.f index c275ee039e..1fdf07252b 100644 --- a/lapack-netlib/TESTING/LIN/dchkq3.f +++ b/lapack-netlib/TESTING/LIN/dchkq3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE DCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/dchkql.f b/lapack-netlib/TESTING/LIN/dchkql.f index 878d874d2a..595ca10a61 100644 --- a/lapack-netlib/TESTING/LIN/dchkql.f +++ b/lapack-netlib/TESTING/LIN/dchkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE DCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqr.f b/lapack-netlib/TESTING/LIN/dchkqr.f index 4ba27a93db..c729e61a96 100644 --- a/lapack-netlib/TESTING/LIN/dchkqr.f +++ b/lapack-netlib/TESTING/LIN/dchkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE DCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqrt.f b/lapack-netlib/TESTING/LIN/dchkqrt.f index c74e789645..566f273d4e 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrt.f +++ b/lapack-netlib/TESTING/LIN/dchkqrt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqrtp.f b/lapack-netlib/TESTING/LIN/dchkqrtp.f index 716dbcd84b..924ba7ea37 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/dchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkrfp.f b/lapack-netlib/TESTING/LIN/dchkrfp.f index cf59e88dc2..e242e013d8 100644 --- a/lapack-netlib/TESTING/LIN/dchkrfp.f +++ b/lapack-netlib/TESTING/LIN/dchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== PROGRAM DCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/dchkrq.f b/lapack-netlib/TESTING/LIN/dchkrq.f index d820a91dd9..028359d08d 100644 --- a/lapack-netlib/TESTING/LIN/dchkrq.f +++ b/lapack-netlib/TESTING/LIN/dchkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE DCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksp.f b/lapack-netlib/TESTING/LIN/dchksp.f index 6334a05104..f327ca7ce9 100644 --- a/lapack-netlib/TESTING/LIN/dchksp.f +++ b/lapack-netlib/TESTING/LIN/dchksp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE DCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksy.f b/lapack-netlib/TESTING/LIN/dchksy.f index d8981f7350..8d127cd3b6 100644 --- a/lapack-netlib/TESTING/LIN/dchksy.f +++ b/lapack-netlib/TESTING/LIN/dchksy.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -170,10 +168,9 @@ SUBROUTINE DCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa.f b/lapack-netlib/TESTING/LIN/dchksy_aa.f index 8974cdec5d..4c79ebbbf1 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/dchksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,10 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +168,9 @@ SUBROUTINE DCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f index f6d990d1c6..bc4e77a5aa 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,10 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -173,10 +169,9 @@ SUBROUTINE DCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/dchksy_rk.f b/lapack-netlib/TESTING/LIN/dchksy_rk.f index 2b5d7adecf..701cb9ce6a 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/dchksy_rk.f @@ -63,7 +63,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -176,10 +174,9 @@ SUBROUTINE DCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -486,7 +483,7 @@ SUBROUTINE DCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'DSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that DPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/dchksy_rook.f b/lapack-netlib/TESTING/LIN/dchksy_rook.f index 0c001669cd..03b16b78ac 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/dchksy_rook.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE DCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktb.f b/lapack-netlib/TESTING/LIN/dchktb.f index af50bf3229..16d0aed32a 100644 --- a/lapack-netlib/TESTING/LIN/dchktb.f +++ b/lapack-netlib/TESTING/LIN/dchktb.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE DCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktp.f b/lapack-netlib/TESTING/LIN/dchktp.f index 58f78697fb..9af6150ca4 100644 --- a/lapack-netlib/TESTING/LIN/dchktp.f +++ b/lapack-netlib/TESTING/LIN/dchktp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE DCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktr.f b/lapack-netlib/TESTING/LIN/dchktr.f index 5c0cd83b92..a4a1150c09 100644 --- a/lapack-netlib/TESTING/LIN/dchktr.f +++ b/lapack-netlib/TESTING/LIN/dchktr.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktsqr.f b/lapack-netlib/TESTING/LIN/dchktsqr.f index 14119e6e59..27076b5c26 100644 --- a/lapack-netlib/TESTING/LIN/dchktsqr.f +++ b/lapack-netlib/TESTING/LIN/dchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of DCHKQRT +* End of DCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/dchktz.f b/lapack-netlib/TESTING/LIN/dchktz.f index 8a60d05412..efb468f002 100644 --- a/lapack-netlib/TESTING/LIN/dchktz.f +++ b/lapack-netlib/TESTING/LIN/dchktz.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvab.f b/lapack-netlib/TESTING/LIN/ddrvab.f index 646bbff0d2..9110d8334b 100644 --- a/lapack-netlib/TESTING/LIN/ddrvab.f +++ b/lapack-netlib/TESTING/LIN/ddrvab.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -151,10 +149,9 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NMAX, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvac.f b/lapack-netlib/TESTING/LIN/ddrvac.f index ee710dbf24..bd463cee40 100644 --- a/lapack-netlib/TESTING/LIN/ddrvac.f +++ b/lapack-netlib/TESTING/LIN/ddrvac.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -144,10 +142,9 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NMAX, NM, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvgb.f b/lapack-netlib/TESTING/LIN/ddrvgb.f index 7758a5978e..ad323d5ec0 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgb.f +++ b/lapack-netlib/TESTING/LIN/ddrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL DGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/ddrvgbx.f b/lapack-netlib/TESTING/LIN/ddrvgbx.f index 4c76b44af4..8a9fdb645a 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgbx.f +++ b/lapack-netlib/TESTING/LIN/ddrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL DGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -710,6 +708,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -895,7 +894,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, CALL DLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, + $ LDA, X, LDB, WORK, LDB, RWORK, $ RESULT( 2 ) ) * * Check solution from generated exact solution. @@ -1024,6 +1023,6 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * RETURN * -* End of DDRVGB +* End of DDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvge.f b/lapack-netlib/TESTING/LIN/ddrvge.f index a4209138df..c079135a28 100644 --- a/lapack-netlib/TESTING/LIN/ddrvge.f +++ b/lapack-netlib/TESTING/LIN/ddrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvgex.f b/lapack-netlib/TESTING/LIN/ddrvgex.f index 228e886e94..53fa3ee748 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgex.f +++ b/lapack-netlib/TESTING/LIN/ddrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -889,6 +886,6 @@ SUBROUTINE DDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of DDRVGE +* End of DDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvgt.f b/lapack-netlib/TESTING/LIN/ddrvgt.f index 6da10336b1..b1661e37b7 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgt.f +++ b/lapack-netlib/TESTING/LIN/ddrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvls.f b/lapack-netlib/TESTING/LIN/ddrvls.f index adfd71e096..b64930c10c 100644 --- a/lapack-netlib/TESTING/LIN/ddrvls.f +++ b/lapack-netlib/TESTING/LIN/ddrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -192,10 +190,9 @@ SUBROUTINE DDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpb.f b/lapack-netlib/TESTING/LIN/ddrvpb.f index 6b5695faf3..6508de866b 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpb.f +++ b/lapack-netlib/TESTING/LIN/ddrvpb.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE DDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpo.f b/lapack-netlib/TESTING/LIN/ddrvpo.f index 2caddcea9d..c5c8076e0a 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpo.f +++ b/lapack-netlib/TESTING/LIN/ddrvpo.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpox.f b/lapack-netlib/TESTING/LIN/ddrvpox.f index e093bbaa77..f23223ee15 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpox.f +++ b/lapack-netlib/TESTING/LIN/ddrvpox.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -731,6 +728,6 @@ SUBROUTINE DDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of DDRVPO +* End of DDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvpp.f b/lapack-netlib/TESTING/LIN/ddrvpp.f index dac2e2e591..15de557f93 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpp.f +++ b/lapack-netlib/TESTING/LIN/ddrvpp.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE DDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpt.f b/lapack-netlib/TESTING/LIN/ddrvpt.f index eec5c74907..c0c2806ec2 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpt.f +++ b/lapack-netlib/TESTING/LIN/ddrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvrf1.f b/lapack-netlib/TESTING/LIN/ddrvrf1.f index dfb1941a65..08ab4895f6 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf1.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf1.f @@ -87,17 +87,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrf2.f b/lapack-netlib/TESTING/LIN/ddrvrf2.f index 3d38ca0426..6ed60b1364 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf2.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrf3.f b/lapack-netlib/TESTING/LIN/ddrvrf3.f index 59d2918171..1c5d74aea0 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf3.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf3.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -255,8 +252,8 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * Generate A our NA--by--NA triangular * matrix. * Our test is based on forward error so we -* do want A to be well conditionned! To get -* a well-conditionned triangular matrix, we +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/ddrvrf4.f b/lapack-netlib/TESTING/LIN/ddrvrf4.f index 02b0bbaf72..260a1bcc62 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf4.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf4.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_DLANGE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrfp.f b/lapack-netlib/TESTING/LIN/ddrvrfp.f index 18ccbdfc49..0e65969209 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrfp.f +++ b/lapack-netlib/TESTING/LIN/ddrvrfp.f @@ -203,11 +203,6 @@ *> D_TEMP_DPOT03 is DOUBLE PRECISION array, dimension ( NMAX*NMAX ) *> \endverbatim *> -*> \param[out] D_WORK_DLATMS -*> \verbatim -*> D_WORK_DLATMS is DOUBLE PRECISION array, dimension ( NMAX ) -*> \endverbatim -*> *> \param[out] D_WORK_DLANSY *> \verbatim *> D_WORK_DLANSY is DOUBLE PRECISION array, dimension ( NMAX ) @@ -231,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -243,10 +236,9 @@ SUBROUTINE DDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + D_TEMP_DPOT03, D_WORK_DLANSY, + D_WORK_DPOT02, D_WORK_DPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvsp.f b/lapack-netlib/TESTING/LIN/ddrvsp.f index a7c2316141..a62561c66e 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsp.f +++ b/lapack-netlib/TESTING/LIN/ddrvsp.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE DDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy.f b/lapack-netlib/TESTING/LIN/ddrvsy.f index ec94c47104..4eb3fa8e63 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f index cf1b638419..0b8e46c716 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f @@ -143,10 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -154,10 +150,9 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f index 8984226542..91c9e8e9af 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE DDRVSY_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f index 92811ce938..15b2c2b781 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE DDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -411,7 +408,7 @@ SUBROUTINE DDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f index 670fc8cfff..dcfea94503 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE DDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsyx.f b/lapack-netlib/TESTING/LIN/ddrvsyx.f index ab2b541d7d..51781ca982 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsyx.f +++ b/lapack-netlib/TESTING/LIN/ddrvsyx.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -707,6 +704,6 @@ SUBROUTINE DDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of DDRVSY +* End of DDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/debchvxx.f b/lapack-netlib/TESTING/LIN/debchvxx.f index aef2b5ccfc..e65b418087 100644 --- a/lapack-netlib/TESTING/LIN/debchvxx.f +++ b/lapack-netlib/TESTING/LIN/debchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -490,5 +488,7 @@ SUBROUTINE DEBCHVXX( THRESH, PATH ) 8000 FORMAT( ' D', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of DEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/derrab.f b/lapack-netlib/TESTING/LIN/derrab.f index dd2662635a..1ab97ef259 100644 --- a/lapack-netlib/TESTING/LIN/derrab.f +++ b/lapack-netlib/TESTING/LIN/derrab.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRAB( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrac.f b/lapack-netlib/TESTING/LIN/derrac.f index 4ab5e899b5..4db46ca599 100644 --- a/lapack-netlib/TESTING/LIN/derrac.f +++ b/lapack-netlib/TESTING/LIN/derrac.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRAC( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrge.f b/lapack-netlib/TESTING/LIN/derrge.f index 027801ddde..fc80bbbcfd 100644 --- a/lapack-netlib/TESTING/LIN/derrge.f +++ b/lapack-netlib/TESTING/LIN/derrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrgex.f b/lapack-netlib/TESTING/LIN/derrgex.f index 20f05fa4a9..c54d82ce84 100644 --- a/lapack-netlib/TESTING/LIN/derrgex.f +++ b/lapack-netlib/TESTING/LIN/derrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ SUBROUTINE DERRGE( PATH, NUNIT ) * RETURN * -* End of DERRGE +* End of DERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/derrgt.f b/lapack-netlib/TESTING/LIN/derrgt.f index 75b466a486..c4cebf2f88 100644 --- a/lapack-netlib/TESTING/LIN/derrgt.f +++ b/lapack-netlib/TESTING/LIN/derrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlq.f b/lapack-netlib/TESTING/LIN/derrlq.f index ba297f5cf1..d3cfcddd00 100644 --- a/lapack-netlib/TESTING/LIN/derrlq.f +++ b/lapack-netlib/TESTING/LIN/derrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlqt.f b/lapack-netlib/TESTING/LIN/derrlqt.f index 68ff8c545d..6653fa1e96 100644 --- a/lapack-netlib/TESTING/LIN/derrlqt.f +++ b/lapack-netlib/TESTING/LIN/derrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlqtp.f b/lapack-netlib/TESTING/LIN/derrlqtp.f index 16129540aa..5707a9ba0e 100644 --- a/lapack-netlib/TESTING/LIN/derrlqtp.f +++ b/lapack-netlib/TESTING/LIN/derrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ SUBROUTINE DERRLQTP( PATH, NUNIT ) * RETURN * -* End of DERRLQT +* End of DERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/derrls.f b/lapack-netlib/TESTING/LIN/derrls.f index 1be8830ba8..a1f74dec23 100644 --- a/lapack-netlib/TESTING/LIN/derrls.f +++ b/lapack-netlib/TESTING/LIN/derrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrorhr_col.f b/lapack-netlib/TESTING/LIN/derrorhr_col.f index 6d545bc911..998f8a5087 100644 --- a/lapack-netlib/TESTING/LIN/derrorhr_col.f +++ b/lapack-netlib/TESTING/LIN/derrorhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> DERRORHR_COL tests the error exits for DORHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization DLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRORHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/derrpo.f b/lapack-netlib/TESTING/LIN/derrpo.f index 6d613764a1..8282119ef6 100644 --- a/lapack-netlib/TESTING/LIN/derrpo.f +++ b/lapack-netlib/TESTING/LIN/derrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrpox.f b/lapack-netlib/TESTING/LIN/derrpox.f index 88d0c7e3a0..c39cdd02fc 100644 --- a/lapack-netlib/TESTING/LIN/derrpox.f +++ b/lapack-netlib/TESTING/LIN/derrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -526,6 +523,6 @@ SUBROUTINE DERRPO( PATH, NUNIT ) * RETURN * -* End of DERRPO +* End of DERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/derrps.f b/lapack-netlib/TESTING/LIN/derrps.f index 4d2bf3e83a..378542c04f 100644 --- a/lapack-netlib/TESTING/LIN/derrps.f +++ b/lapack-netlib/TESTING/LIN/derrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrql.f b/lapack-netlib/TESTING/LIN/derrql.f index 477c3ef1cf..b9c50d9ab2 100644 --- a/lapack-netlib/TESTING/LIN/derrql.f +++ b/lapack-netlib/TESTING/LIN/derrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqp.f b/lapack-netlib/TESTING/LIN/derrqp.f index 4f438feab9..3f29bf60e2 100644 --- a/lapack-netlib/TESTING/LIN/derrqp.f +++ b/lapack-netlib/TESTING/LIN/derrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqr.f b/lapack-netlib/TESTING/LIN/derrqr.f index e1fe51cad9..03155b1332 100644 --- a/lapack-netlib/TESTING/LIN/derrqr.f +++ b/lapack-netlib/TESTING/LIN/derrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqrt.f b/lapack-netlib/TESTING/LIN/derrqrt.f index 660e2ef531..9a15f0b1cf 100644 --- a/lapack-netlib/TESTING/LIN/derrqrt.f +++ b/lapack-netlib/TESTING/LIN/derrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqrtp.f b/lapack-netlib/TESTING/LIN/derrqrtp.f index 83be5aa3e3..b7e7fe346e 100644 --- a/lapack-netlib/TESTING/LIN/derrqrtp.f +++ b/lapack-netlib/TESTING/LIN/derrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ SUBROUTINE DERRQRTP( PATH, NUNIT ) * RETURN * -* End of DERRQRT +* End of DERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/derrrfp.f b/lapack-netlib/TESTING/LIN/derrrfp.f index 8db8ebf0a5..d1e07a6efb 100644 --- a/lapack-netlib/TESTING/LIN/derrrfp.f +++ b/lapack-netlib/TESTING/LIN/derrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrrq.f b/lapack-netlib/TESTING/LIN/derrrq.f index d594a74bc4..ae51d4c723 100644 --- a/lapack-netlib/TESTING/LIN/derrrq.f +++ b/lapack-netlib/TESTING/LIN/derrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrsy.f b/lapack-netlib/TESTING/LIN/derrsy.f index b511cdcc54..af15a4b8ed 100644 --- a/lapack-netlib/TESTING/LIN/derrsy.f +++ b/lapack-netlib/TESTING/LIN/derrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrsyx.f b/lapack-netlib/TESTING/LIN/derrsyx.f index 0634209e5c..c2d14caab8 100644 --- a/lapack-netlib/TESTING/LIN/derrsyx.f +++ b/lapack-netlib/TESTING/LIN/derrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -614,6 +611,6 @@ SUBROUTINE DERRSY( PATH, NUNIT ) * RETURN * -* End of DERRSY +* End of DERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/derrtr.f b/lapack-netlib/TESTING/LIN/derrtr.f index f709ba7e65..a667f0d2b8 100644 --- a/lapack-netlib/TESTING/LIN/derrtr.f +++ b/lapack-netlib/TESTING/LIN/derrtr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrtsqr.f b/lapack-netlib/TESTING/LIN/derrtsqr.f index d1d0ff02d3..f0d345149e 100644 --- a/lapack-netlib/TESTING/LIN/derrtsqr.f +++ b/lapack-netlib/TESTING/LIN/derrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ SUBROUTINE DERRTSQR( PATH, NUNIT ) PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ SUBROUTINE DERRTSQR( PATH, NUNIT ) CALL DGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'DGEQR', INFOT, NOUT, LERR, OK ) * +* DLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'DLATSQR' + INFOT = 1 + CALL DLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL DLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + CALL DLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL DLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL DLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL DLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) +* * DGEMQR * TAU(1)=1 @@ -194,6 +220,37 @@ SUBROUTINE DERRTSQR( PATH, NUNIT ) CALL DGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'DGELQ', INFOT, NOUT, LERR, OK ) * +* DLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'DLASWLQ' + INFOT = 1 + CALL DLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL DLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + CALL DLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL DLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + CALL DLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL DLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL DLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) +* * DGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/derrtz.f b/lapack-netlib/TESTING/LIN/derrtz.f index 1980d1fa05..a43ae219c4 100644 --- a/lapack-netlib/TESTING/LIN/derrtz.f +++ b/lapack-netlib/TESTING/LIN/derrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrvx.f b/lapack-netlib/TESTING/LIN/derrvx.f index fd1d038a61..447b00bc4d 100644 --- a/lapack-netlib/TESTING/LIN/derrvx.f +++ b/lapack-netlib/TESTING/LIN/derrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrvxx.f b/lapack-netlib/TESTING/LIN/derrvxx.f index 6e96b32bd4..dd2c5700d7 100644 --- a/lapack-netlib/TESTING/LIN/derrvxx.f +++ b/lapack-netlib/TESTING/LIN/derrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1042,6 +1039,6 @@ SUBROUTINE DERRVX( PATH, NUNIT ) * RETURN * -* End of DERRVX +* End of DERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/dgbt01.f b/lapack-netlib/TESTING/LIN/dgbt01.f index 2515733f59..28f7200ddb 100644 --- a/lapack-netlib/TESTING/LIN/dgbt01.f +++ b/lapack-netlib/TESTING/LIN/dgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/dgbt02.f b/lapack-netlib/TESTING/LIN/dgbt02.f index bc11ba7d4e..cd13b75353 100644 --- a/lapack-netlib/TESTING/LIN/dgbt02.f +++ b/lapack-netlib/TESTING/LIN/dgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,7 +17,8 @@ * DOUBLE PRECISION RESID * .. * .. Array Arguments .. -* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) +* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ), +* RWORK( * ) * .. * * @@ -27,9 +28,11 @@ *> \verbatim *> *> DGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -39,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +119,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,7 +157,8 @@ SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, DOUBLE PRECISION RESID * .. * .. Array Arguments .. - DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) + DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ), + $ RWORK( * ) * .. * * ===================================================================== @@ -161,18 +169,18 @@ SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - DOUBLE PRECISION ANORM, BNORM, EPS, XNORM + DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL DISNAN, LSAME DOUBLE PRECISION DASUM, DLAMCH - EXTERNAL LSAME, DASUM, DLAMCH + EXTERNAL DASUM, DISNAN, DLAMCH, LSAME * .. * .. External Subroutines .. EXTERNAL DGBMV * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, MAX, MIN * .. * .. Executable Statements .. * @@ -186,13 +194,38 @@ SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, DASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = DASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -204,7 +237,7 @@ SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL DGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1, @@ -212,7 +245,7 @@ SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgbt05.f b/lapack-netlib/TESTING/LIN/dgbt05.f index 1333abb9a7..ba85eaf7d9 100644 --- a/lapack-netlib/TESTING/LIN/dgbt05.f +++ b/lapack-netlib/TESTING/LIN/dgbt05.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dgelqs.f b/lapack-netlib/TESTING/LIN/dgelqs.f index 46683ef12f..ecbb5893c3 100644 --- a/lapack-netlib/TESTING/LIN/dgelqs.f +++ b/lapack-netlib/TESTING/LIN/dgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgennd.f b/lapack-netlib/TESTING/LIN/dgennd.f index 986775af42..9b3ed260b6 100644 --- a/lapack-netlib/TESTING/LIN/dgennd.f +++ b/lapack-netlib/TESTING/LIN/dgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== LOGICAL FUNCTION DGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/dgeqls.f b/lapack-netlib/TESTING/LIN/dgeqls.f index 1ca418f1b2..e84df53ecc 100644 --- a/lapack-netlib/TESTING/LIN/dgeqls.f +++ b/lapack-netlib/TESTING/LIN/dgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgeqrs.f b/lapack-netlib/TESTING/LIN/dgeqrs.f index 83fddf4e1d..bfb7bd8bb8 100644 --- a/lapack-netlib/TESTING/LIN/dgeqrs.f +++ b/lapack-netlib/TESTING/LIN/dgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgerqs.f b/lapack-netlib/TESTING/LIN/dgerqs.f index d3ea086fab..a893249645 100644 --- a/lapack-netlib/TESTING/LIN/dgerqs.f +++ b/lapack-netlib/TESTING/LIN/dgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget01.f b/lapack-netlib/TESTING/LIN/dget01.f index 88ed763b34..fad1c2211c 100644 --- a/lapack-netlib/TESTING/LIN/dget01.f +++ b/lapack-netlib/TESTING/LIN/dget01.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/dget02.f b/lapack-netlib/TESTING/LIN/dget02.f index 7b641b3b31..560cc50f7c 100644 --- a/lapack-netlib/TESTING/LIN/dget02.f +++ b/lapack-netlib/TESTING/LIN/dget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> DGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +97,7 @@ *> B is DOUBLE PRECISION array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +116,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = DLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget03.f b/lapack-netlib/TESTING/LIN/dget03.f index 5b04c81ed5..6486ff5d5a 100644 --- a/lapack-netlib/TESTING/LIN/dget03.f +++ b/lapack-netlib/TESTING/LIN/dget03.f @@ -101,18 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/dget04.f b/lapack-netlib/TESTING/LIN/dget04.f index a5663f621b..255f1dd104 100644 --- a/lapack-netlib/TESTING/LIN/dget04.f +++ b/lapack-netlib/TESTING/LIN/dget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget06.f b/lapack-netlib/TESTING/LIN/dget06.f index a056e12581..0e72c74e63 100644 --- a/lapack-netlib/TESTING/LIN/dget06.f +++ b/lapack-netlib/TESTING/LIN/dget06.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RCOND, RCONDC diff --git a/lapack-netlib/TESTING/LIN/dget07.f b/lapack-netlib/TESTING/LIN/dget07.f index cd56c0ffe8..99dbe0c009 100644 --- a/lapack-netlib/TESTING/LIN/dget07.f +++ b/lapack-netlib/TESTING/LIN/dget07.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dget08.f b/lapack-netlib/TESTING/LIN/dget08.f index 731b3924d0..5c82d7ba5d 100644 --- a/lapack-netlib/TESTING/LIN/dget08.f +++ b/lapack-netlib/TESTING/LIN/dget08.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -217,6 +214,6 @@ SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RETURN * -* End of DGET02 +* End of DGET08 * END diff --git a/lapack-netlib/TESTING/LIN/dgtt01.f b/lapack-netlib/TESTING/LIN/dgtt01.f index 29f4b25740..3b5ff9e4ca 100644 --- a/lapack-netlib/TESTING/LIN/dgtt01.f +++ b/lapack-netlib/TESTING/LIN/dgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/dgtt02.f b/lapack-netlib/TESTING/LIN/dgtt02.f index 956f0f7618..b3268b138d 100644 --- a/lapack-netlib/TESTING/LIN/dgtt02.f +++ b/lapack-netlib/TESTING/LIN/dgtt02.f @@ -29,8 +29,9 @@ *> *> DGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -41,8 +42,8 @@ *> TRANS is CHARACTER *> Specifies the form of the residual. *> = 'N': B - A * X (No transpose) -*> = 'T': B - A'* X (Transpose) -*> = 'C': B - A'* X (Conjugate transpose = Transpose) +*> = 'T': B - A**T * X (Transpose) +*> = 'C': B - A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] N @@ -105,7 +106,7 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +167,7 @@ SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGT( '1', N, DL, D, DU ) @@ -185,7 +183,7 @@ SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL DLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/dgtt05.f b/lapack-netlib/TESTING/LIN/dgtt05.f index c39081f9e2..d389ef166c 100644 --- a/lapack-netlib/TESTING/LIN/dgtt05.f +++ b/lapack-netlib/TESTING/LIN/dgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dlahilb.f b/lapack-netlib/TESTING/LIN/dlahilb.f index e115e335a4..9590be53d2 100644 --- a/lapack-netlib/TESTING/LIN/dlahilb.f +++ b/lapack-netlib/TESTING/LIN/dlahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/dlaord.f b/lapack-netlib/TESTING/LIN/dlaord.f index da3edb198a..e5f7e3b502 100644 --- a/lapack-netlib/TESTING/LIN/dlaord.f +++ b/lapack-netlib/TESTING/LIN/dlaord.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAORD( JOB, N, X, INCX ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/TESTING/LIN/dlaptm.f b/lapack-netlib/TESTING/LIN/dlaptm.f index 5c62ded108..24cbf6ab55 100644 --- a/lapack-netlib/TESTING/LIN/dlaptm.f +++ b/lapack-netlib/TESTING/LIN/dlaptm.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dlarhs.f b/lapack-netlib/TESTING/LIN/dlarhs.f index f175cf8939..9c3fe37d39 100644 --- a/lapack-netlib/TESTING/LIN/dlarhs.f +++ b/lapack-netlib/TESTING/LIN/dlarhs.f @@ -30,7 +30,7 @@ *> DLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/dlatb4.f b/lapack-netlib/TESTING/LIN/dlatb4.f index 6bdbe5597c..8825d13e75 100644 --- a/lapack-netlib/TESTING/LIN/dlatb4.f +++ b/lapack-netlib/TESTING/LIN/dlatb4.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/dlatb5.f b/lapack-netlib/TESTING/LIN/dlatb5.f index 16a5642b38..9967bbad1b 100644 --- a/lapack-netlib/TESTING/LIN/dlatb5.f +++ b/lapack-netlib/TESTING/LIN/dlatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/dlattb.f b/lapack-netlib/TESTING/LIN/dlattb.f index e35067f127..e3f8c9c345 100644 --- a/lapack-netlib/TESTING/LIN/dlattb.f +++ b/lapack-netlib/TESTING/LIN/dlattb.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlattp.f b/lapack-netlib/TESTING/LIN/dlattp.f index 407bd0716a..fef888859a 100644 --- a/lapack-netlib/TESTING/LIN/dlattp.f +++ b/lapack-netlib/TESTING/LIN/dlattp.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlattr.f b/lapack-netlib/TESTING/LIN/dlattr.f index 0e3a5ac6b5..03f9bfae4c 100644 --- a/lapack-netlib/TESTING/LIN/dlattr.f +++ b/lapack-netlib/TESTING/LIN/dlattr.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsp.f b/lapack-netlib/TESTING/LIN/dlavsp.f index 758c415fb2..3a5a85e9e0 100644 --- a/lapack-netlib/TESTING/LIN/dlavsp.f +++ b/lapack-netlib/TESTING/LIN/dlavsp.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsy.f b/lapack-netlib/TESTING/LIN/dlavsy.f index b512ff0ff0..03e7058719 100644 --- a/lapack-netlib/TESTING/LIN/dlavsy.f +++ b/lapack-netlib/TESTING/LIN/dlavsy.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsy_rook.f b/lapack-netlib/TESTING/LIN/dlavsy_rook.f index 7b0c2c152a..f1994aee92 100644 --- a/lapack-netlib/TESTING/LIN/dlavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/dlavsy_rook.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlqt01.f b/lapack-netlib/TESTING/LIN/dlqt01.f index c17045f961..1ef7365c47 100644 --- a/lapack-netlib/TESTING/LIN/dlqt01.f +++ b/lapack-netlib/TESTING/LIN/dlqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt02.f b/lapack-netlib/TESTING/LIN/dlqt02.f index 55b5a6c89b..158cd0b798 100644 --- a/lapack-netlib/TESTING/LIN/dlqt02.f +++ b/lapack-netlib/TESTING/LIN/dlqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt03.f b/lapack-netlib/TESTING/LIN/dlqt03.f index dc754554fa..55ce022ce2 100644 --- a/lapack-netlib/TESTING/LIN/dlqt03.f +++ b/lapack-netlib/TESTING/LIN/dlqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt04.f b/lapack-netlib/TESTING/LIN/dlqt04.f index b73248b624..ef7e67538d 100644 --- a/lapack-netlib/TESTING/LIN/dlqt04.f +++ b/lapack-netlib/TESTING/LIN/dlqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dlqt05.f b/lapack-netlib/TESTING/LIN/dlqt05.f index ce2604e418..7d2a2a1042 100644 --- a/lapack-netlib/TESTING/LIN/dlqt05.f +++ b/lapack-netlib/TESTING/LIN/dlqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dpbt01.f b/lapack-netlib/TESTING/LIN/dpbt01.f index 4acd74f5af..3d810dac17 100644 --- a/lapack-netlib/TESTING/LIN/dpbt01.f +++ b/lapack-netlib/TESTING/LIN/dpbt01.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpbt02.f b/lapack-netlib/TESTING/LIN/dpbt02.f index 657cdc9f71..6abda62e06 100644 --- a/lapack-netlib/TESTING/LIN/dpbt02.f +++ b/lapack-netlib/TESTING/LIN/dpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpbt05.f b/lapack-netlib/TESTING/LIN/dpbt05.f index 1ad4c0f6bf..47e656be79 100644 --- a/lapack-netlib/TESTING/LIN/dpbt05.f +++ b/lapack-netlib/TESTING/LIN/dpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot01.f b/lapack-netlib/TESTING/LIN/dpot01.f index 8d84a1fe6a..71e50f892a 100644 --- a/lapack-netlib/TESTING/LIN/dpot01.f +++ b/lapack-netlib/TESTING/LIN/dpot01.f @@ -65,10 +65,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is DOUBLE PRECISION array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**T or U**T * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**T - A (or U**T * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -85,8 +85,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -157,7 +154,7 @@ SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) RETURN END IF * -* Compute the product U'*U, overwriting U. +* Compute the product U**T * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 10 K = N, 1, -1 @@ -174,7 +171,7 @@ SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * 10 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**T, overwriting L. * ELSE DO 20 K = N, 1, -1 @@ -194,7 +191,7 @@ SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) 20 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**T - A (or U**T * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 40 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/dpot02.f b/lapack-netlib/TESTING/LIN/dpot02.f index 347b50378c..6d87b89f55 100644 --- a/lapack-netlib/TESTING/LIN/dpot02.f +++ b/lapack-netlib/TESTING/LIN/dpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot03.f b/lapack-netlib/TESTING/LIN/dpot03.f index d7a0cca92c..2e506b623b 100644 --- a/lapack-netlib/TESTING/LIN/dpot03.f +++ b/lapack-netlib/TESTING/LIN/dpot03.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot05.f b/lapack-netlib/TESTING/LIN/dpot05.f index fa94909155..25a195bdda 100644 --- a/lapack-netlib/TESTING/LIN/dpot05.f +++ b/lapack-netlib/TESTING/LIN/dpot05.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot06.f b/lapack-netlib/TESTING/LIN/dpot06.f index 420662c1b6..397ed19c20 100644 --- a/lapack-netlib/TESTING/LIN/dpot06.f +++ b/lapack-netlib/TESTING/LIN/dpot06.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt01.f b/lapack-netlib/TESTING/LIN/dppt01.f index 2ad9e6839c..a357d07948 100644 --- a/lapack-netlib/TESTING/LIN/dppt01.f +++ b/lapack-netlib/TESTING/LIN/dppt01.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt02.f b/lapack-netlib/TESTING/LIN/dppt02.f index de878137a6..f854f9b189 100644 --- a/lapack-netlib/TESTING/LIN/dppt02.f +++ b/lapack-netlib/TESTING/LIN/dppt02.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt03.f b/lapack-netlib/TESTING/LIN/dppt03.f index edaec4446c..9e24cf6b3c 100644 --- a/lapack-netlib/TESTING/LIN/dppt03.f +++ b/lapack-netlib/TESTING/LIN/dppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt05.f b/lapack-netlib/TESTING/LIN/dppt05.f index 8d9dcc3ca9..fefe2e9235 100644 --- a/lapack-netlib/TESTING/LIN/dppt05.f +++ b/lapack-netlib/TESTING/LIN/dppt05.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpst01.f b/lapack-netlib/TESTING/LIN/dpst01.f index d6b6da93da..ffe75d8a9e 100644 --- a/lapack-netlib/TESTING/LIN/dpst01.f +++ b/lapack-netlib/TESTING/LIN/dpst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RESID diff --git a/lapack-netlib/TESTING/LIN/dptt01.f b/lapack-netlib/TESTING/LIN/dptt01.f index 44c609cbd9..2c6c440ffa 100644 --- a/lapack-netlib/TESTING/LIN/dptt01.f +++ b/lapack-netlib/TESTING/LIN/dptt01.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/dptt02.f b/lapack-netlib/TESTING/LIN/dptt02.f index a9e8bd6205..a4802c6969 100644 --- a/lapack-netlib/TESTING/LIN/dptt02.f +++ b/lapack-netlib/TESTING/LIN/dptt02.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dptt05.f b/lapack-netlib/TESTING/LIN/dptt05.f index 4a7aa6dc8a..1cd2c4b662 100644 --- a/lapack-netlib/TESTING/LIN/dptt05.f +++ b/lapack-netlib/TESTING/LIN/dptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dqlt01.f b/lapack-netlib/TESTING/LIN/dqlt01.f index 7bc66cb421..5a27350cbc 100644 --- a/lapack-netlib/TESTING/LIN/dqlt01.f +++ b/lapack-netlib/TESTING/LIN/dqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqlt02.f b/lapack-netlib/TESTING/LIN/dqlt02.f index 16a532b536..950cfe67bd 100644 --- a/lapack-netlib/TESTING/LIN/dqlt02.f +++ b/lapack-netlib/TESTING/LIN/dqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqlt03.f b/lapack-netlib/TESTING/LIN/dqlt03.f index 40c6638c5a..bed6a00c8b 100644 --- a/lapack-netlib/TESTING/LIN/dqlt03.f +++ b/lapack-netlib/TESTING/LIN/dqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqpt01.f b/lapack-netlib/TESTING/LIN/dqpt01.f index b72eaaa77e..8efbdc774d 100644 --- a/lapack-netlib/TESTING/LIN/dqpt01.f +++ b/lapack-netlib/TESTING/LIN/dqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt01.f b/lapack-netlib/TESTING/LIN/dqrt01.f index fd411eb04c..2ddd551cef 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01.f +++ b/lapack-netlib/TESTING/LIN/dqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt01p.f b/lapack-netlib/TESTING/LIN/dqrt01p.f index 6f9ba5ea93..7dc7668ce9 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01p.f +++ b/lapack-netlib/TESTING/LIN/dqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt02.f b/lapack-netlib/TESTING/LIN/dqrt02.f index 9008a49004..d0e4349d1d 100644 --- a/lapack-netlib/TESTING/LIN/dqrt02.f +++ b/lapack-netlib/TESTING/LIN/dqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt03.f b/lapack-netlib/TESTING/LIN/dqrt03.f index 9c957b02c5..d156faca03 100644 --- a/lapack-netlib/TESTING/LIN/dqrt03.f +++ b/lapack-netlib/TESTING/LIN/dqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt04.f b/lapack-netlib/TESTING/LIN/dqrt04.f index 5d9e10313e..6a7baea0f6 100644 --- a/lapack-netlib/TESTING/LIN/dqrt04.f +++ b/lapack-netlib/TESTING/LIN/dqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dqrt05.f b/lapack-netlib/TESTING/LIN/dqrt05.f index 2e46100685..2badd6d496 100644 --- a/lapack-netlib/TESTING/LIN/dqrt05.f +++ b/lapack-netlib/TESTING/LIN/dqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dqrt11.f b/lapack-netlib/TESTING/LIN/dqrt11.f index fe29ca5893..33c7fab378 100644 --- a/lapack-netlib/TESTING/LIN/dqrt11.f +++ b/lapack-netlib/TESTING/LIN/dqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/dqrt12.f b/lapack-netlib/TESTING/LIN/dqrt12.f index b8da5b6239..278e01bf0a 100644 --- a/lapack-netlib/TESTING/LIN/dqrt12.f +++ b/lapack-netlib/TESTING/LIN/dqrt12.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt13.f b/lapack-netlib/TESTING/LIN/dqrt13.f index 42947b2cb6..203f62069b 100644 --- a/lapack-netlib/TESTING/LIN/dqrt13.f +++ b/lapack-netlib/TESTING/LIN/dqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/dqrt14.f b/lapack-netlib/TESTING/LIN/dqrt14.f index 9301e251f3..fdfc96b98d 100644 --- a/lapack-netlib/TESTING/LIN/dqrt14.f +++ b/lapack-netlib/TESTING/LIN/dqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, IF( XNRM.NE.ZERO ) $ CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = DLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/dqrt15.f b/lapack-netlib/TESTING/LIN/dqrt15.f index 68cf0cc8cb..1c5f9e47bb 100644 --- a/lapack-netlib/TESTING/LIN/dqrt15.f +++ b/lapack-netlib/TESTING/LIN/dqrt15.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/dqrt16.f b/lapack-netlib/TESTING/LIN/dqrt16.f index 157f78e2f7..cb4ba183a6 100644 --- a/lapack-netlib/TESTING/LIN/dqrt16.f +++ b/lapack-netlib/TESTING/LIN/dqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dqrt17.f b/lapack-netlib/TESTING/LIN/dqrt17.f index 78580dca11..ccbb3cff42 100644 --- a/lapack-netlib/TESTING/LIN/dqrt17.f +++ b/lapack-netlib/TESTING/LIN/dqrt17.f @@ -28,12 +28,15 @@ *> *> DQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'T': Transpose, op(A) = A'. +*> = 'T': Transpose, op(A) = A**T. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) @@ -214,7 +214,6 @@ DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, * NORMA = DLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, $ INFO ) END IF * -* compute R'*A +* compute R**T * op(A) * CALL DGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB, $ A, LDA, ZERO, WORK, NRHS ) diff --git a/lapack-netlib/TESTING/LIN/drqt01.f b/lapack-netlib/TESTING/LIN/drqt01.f index d652b2a2bd..936583ccbe 100644 --- a/lapack-netlib/TESTING/LIN/drqt01.f +++ b/lapack-netlib/TESTING/LIN/drqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drqt02.f b/lapack-netlib/TESTING/LIN/drqt02.f index d10b5c117b..7fbb6a6d4d 100644 --- a/lapack-netlib/TESTING/LIN/drqt02.f +++ b/lapack-netlib/TESTING/LIN/drqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drqt03.f b/lapack-netlib/TESTING/LIN/drqt03.f index 7ec0d6c7fb..1ddd767064 100644 --- a/lapack-netlib/TESTING/LIN/drqt03.f +++ b/lapack-netlib/TESTING/LIN/drqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drzt01.f b/lapack-netlib/TESTING/LIN/drzt01.f index 2108cd1c97..8e969aba78 100644 --- a/lapack-netlib/TESTING/LIN/drzt01.f +++ b/lapack-netlib/TESTING/LIN/drzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drzt02.f b/lapack-netlib/TESTING/LIN/drzt02.f index de3f266212..5b028f7990 100644 --- a/lapack-netlib/TESTING/LIN/drzt02.f +++ b/lapack-netlib/TESTING/LIN/drzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dspt01.f b/lapack-netlib/TESTING/LIN/dspt01.f index f1bc904fd9..e71d217ae1 100644 --- a/lapack-netlib/TESTING/LIN/dspt01.f +++ b/lapack-netlib/TESTING/LIN/dspt01.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01.f b/lapack-netlib/TESTING/LIN/dsyt01.f index f61b9113c2..cb918de00e 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01.f +++ b/lapack-netlib/TESTING/LIN/dsyt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01_3.f b/lapack-netlib/TESTING/LIN/dsyt01_3.f index a12425ee5d..2a7d9d1422 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_3.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_3.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01_aa.f b/lapack-netlib/TESTING/LIN/dsyt01_aa.f index f008ecf2ec..94770532c7 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -258,6 +253,6 @@ SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, * RETURN * -* End of DSYT01 +* End of DSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/dsyt01_rook.f b/lapack-netlib/TESTING/LIN/dsyt01_rook.f index cb6668b184..c7b6bc2aa3 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_rook.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt02.f b/lapack-netlib/TESTING/LIN/dtbt02.f index f0f522a968..347fbcb9c8 100644 --- a/lapack-netlib/TESTING/LIN/dtbt02.f +++ b/lapack-netlib/TESTING/LIN/dtbt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> DTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A' *x = b when -*> A is a triangular band matrix. Here A' is the transpose of A and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -199,7 +196,7 @@ SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK ) diff --git a/lapack-netlib/TESTING/LIN/dtbt03.f b/lapack-netlib/TESTING/LIN/dtbt03.f index 3aedad6545..04307fd3bb 100644 --- a/lapack-netlib/TESTING/LIN/dtbt03.f +++ b/lapack-netlib/TESTING/LIN/dtbt03.f @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE DTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt05.f b/lapack-netlib/TESTING/LIN/dtbt05.f index 3c2a5318c7..0b2430d60b 100644 --- a/lapack-netlib/TESTING/LIN/dtbt05.f +++ b/lapack-netlib/TESTING/LIN/dtbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt06.f b/lapack-netlib/TESTING/LIN/dtbt06.f index 2fd11f0e9e..2e87bdaa7a 100644 --- a/lapack-netlib/TESTING/LIN/dtbt06.f +++ b/lapack-netlib/TESTING/LIN/dtbt06.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtplqt.f b/lapack-netlib/TESTING/LIN/dtplqt.f index 9fcecc9842..7952c05760 100644 --- a/lapack-netlib/TESTING/LIN/dtplqt.f +++ b/lapack-netlib/TESTING/LIN/dtplqt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/TESTING/LIN/dtpt01.f b/lapack-netlib/TESTING/LIN/dtpt01.f index 504dca6275..58309b17bd 100644 --- a/lapack-netlib/TESTING/LIN/dtpt01.f +++ b/lapack-netlib/TESTING/LIN/dtpt01.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt02.f b/lapack-netlib/TESTING/LIN/dtpt02.f index 777fdfc3b0..8b0b4a73d4 100644 --- a/lapack-netlib/TESTING/LIN/dtpt02.f +++ b/lapack-netlib/TESTING/LIN/dtpt02.f @@ -27,12 +27,13 @@ *> \verbatim *> *> DTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b when -*> the triangular matrix A is stored in packed format. Here A' is the -*> transpose of A and x and b are N by NRHS matrices. The test ratio is -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -50,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -122,7 +123,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -133,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -185,7 +183,7 @@ SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTP( '1', UPLO, DIAG, N, AP, WORK ) @@ -202,7 +200,7 @@ SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dtpt03.f b/lapack-netlib/TESTING/LIN/dtpt03.f index ad82e59e91..069836a0c5 100644 --- a/lapack-netlib/TESTING/LIN/dtpt03.f +++ b/lapack-netlib/TESTING/LIN/dtpt03.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt05.f b/lapack-netlib/TESTING/LIN/dtpt05.f index 458a42ec4d..117acae01d 100644 --- a/lapack-netlib/TESTING/LIN/dtpt05.f +++ b/lapack-netlib/TESTING/LIN/dtpt05.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt06.f b/lapack-netlib/TESTING/LIN/dtpt06.f index 3f7c688327..f5eb2a5126 100644 --- a/lapack-netlib/TESTING/LIN/dtpt06.f +++ b/lapack-netlib/TESTING/LIN/dtpt06.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt01.f b/lapack-netlib/TESTING/LIN/dtrt01.f index 3039a2be75..e5827fe787 100644 --- a/lapack-netlib/TESTING/LIN/dtrt01.f +++ b/lapack-netlib/TESTING/LIN/dtrt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt02.f b/lapack-netlib/TESTING/LIN/dtrt02.f index ad7d9b9637..6d22f688ba 100644 --- a/lapack-netlib/TESTING/LIN/dtrt02.f +++ b/lapack-netlib/TESTING/LIN/dtrt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> DTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b. -*> Here A is a triangular matrix, A' is the transpose of A, and x and b -*> are N by NRHS matrices. The test ratio is the maximum over the -*> number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -131,7 +131,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -195,7 +192,7 @@ SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK ) @@ -212,7 +209,7 @@ SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dtrt03.f b/lapack-netlib/TESTING/LIN/dtrt03.f index 067db391b9..ef6a33f6a5 100644 --- a/lapack-netlib/TESTING/LIN/dtrt03.f +++ b/lapack-netlib/TESTING/LIN/dtrt03.f @@ -161,18 +161,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt05.f b/lapack-netlib/TESTING/LIN/dtrt05.f index f5ef134621..c03aa5bf9c 100644 --- a/lapack-netlib/TESTING/LIN/dtrt05.f +++ b/lapack-netlib/TESTING/LIN/dtrt05.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt06.f b/lapack-netlib/TESTING/LIN/dtrt06.f index f4f861e42b..276e5485fc 100644 --- a/lapack-netlib/TESTING/LIN/dtrt06.f +++ b/lapack-netlib/TESTING/LIN/dtrt06.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtsqr01.f b/lapack-netlib/TESTING/LIN/dtsqr01.f index 25bf58a812..85733be4c2 100644 --- a/lapack-netlib/TESTING/LIN/dtsqr01.f +++ b/lapack-netlib/TESTING/LIN/dtsqr01.f @@ -77,18 +77,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/icopy.f b/lapack-netlib/TESTING/LIN/icopy.f index a518b0f0fc..05bbf11fca 100644 --- a/lapack-netlib/TESTING/LIN/icopy.f +++ b/lapack-netlib/TESTING/LIN/icopy.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/TESTING/LIN/ilaenv.f b/lapack-netlib/TESTING/LIN/ilaenv.f index 5f7f291aa5..50c6a4c6c4 100644 --- a/lapack-netlib/TESTING/LIN/ilaenv.f +++ b/lapack-netlib/TESTING/LIN/ilaenv.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup aux_lin * *> \par Further Details: @@ -150,10 +148,9 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS diff --git a/lapack-netlib/TESTING/LIN/schkeq.f b/lapack-netlib/TESTING/LIN/schkeq.f index 6381d9ddc7..62898cf7a1 100644 --- a/lapack-netlib/TESTING/LIN/schkeq.f +++ b/lapack-netlib/TESTING/LIN/schkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/schkgb.f b/lapack-netlib/TESTING/LIN/schkgb.f index 724109b288..9ab8c0e018 100644 --- a/lapack-netlib/TESTING/LIN/schkgb.f +++ b/lapack-netlib/TESTING/LIN/schkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -191,10 +189,9 @@ SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'SLARHS' CALL SLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ SUBROUTINE SCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ WORK, LDB ) CALL SGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/schkge.f b/lapack-netlib/TESTING/LIN/schkge.f index 2b8a77cc87..0921f79257 100644 --- a/lapack-netlib/TESTING/LIN/schkge.f +++ b/lapack-netlib/TESTING/LIN/schkge.f @@ -77,7 +77,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -176,8 +176,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== @@ -185,10 +183,9 @@ SUBROUTINE SCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkgt.f b/lapack-netlib/TESTING/LIN/schkgt.f index c2dce7bb8c..0a538a6140 100644 --- a/lapack-netlib/TESTING/LIN/schkgt.f +++ b/lapack-netlib/TESTING/LIN/schkgt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklq.f b/lapack-netlib/TESTING/LIN/schklq.f index 7084a040c2..cd66e8d102 100644 --- a/lapack-netlib/TESTING/LIN/schklq.f +++ b/lapack-netlib/TESTING/LIN/schklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklqt.f b/lapack-netlib/TESTING/LIN/schklqt.f index 2daca557fc..2230583bae 100644 --- a/lapack-netlib/TESTING/LIN/schklqt.f +++ b/lapack-netlib/TESTING/LIN/schklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE SCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklqtp.f b/lapack-netlib/TESTING/LIN/schklqtp.f index dbb44e0201..20c0dd0199 100644 --- a/lapack-netlib/TESTING/LIN/schklqtp.f +++ b/lapack-netlib/TESTING/LIN/schklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE SCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkorhr_col.f b/lapack-netlib/TESTING/LIN/schkorhr_col.f index f61b749028..9c91b85353 100644 --- a/lapack-netlib/TESTING/LIN/schkorhr_col.f +++ b/lapack-netlib/TESTING/LIN/schkorhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/schkpb.f b/lapack-netlib/TESTING/LIN/schkpb.f index 257d592ec1..fdad0d6dfd 100644 --- a/lapack-netlib/TESTING/LIN/schkpb.f +++ b/lapack-netlib/TESTING/LIN/schkpb.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE SCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkpo.f b/lapack-netlib/TESTING/LIN/schkpo.f index d712b3851c..ccfb9b7b27 100644 --- a/lapack-netlib/TESTING/LIN/schkpo.f +++ b/lapack-netlib/TESTING/LIN/schkpo.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE SCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkpp.f b/lapack-netlib/TESTING/LIN/schkpp.f index 0f34224804..977c785484 100644 --- a/lapack-netlib/TESTING/LIN/schkpp.f +++ b/lapack-netlib/TESTING/LIN/schkpp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE SCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkps.f b/lapack-netlib/TESTING/LIN/schkps.f index bae34d27a5..7bd70c4525 100644 --- a/lapack-netlib/TESTING/LIN/schkps.f +++ b/lapack-netlib/TESTING/LIN/schkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -154,10 +152,9 @@ SUBROUTINE SCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL THRESH diff --git a/lapack-netlib/TESTING/LIN/schkpt.f b/lapack-netlib/TESTING/LIN/schkpt.f index 08a99ab74d..569a3f01bc 100644 --- a/lapack-netlib/TESTING/LIN/schkpt.f +++ b/lapack-netlib/TESTING/LIN/schkpt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkq3.f b/lapack-netlib/TESTING/LIN/schkq3.f index 8c10f6285c..209683f48e 100644 --- a/lapack-netlib/TESTING/LIN/schkq3.f +++ b/lapack-netlib/TESTING/LIN/schkq3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE SCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/schkql.f b/lapack-netlib/TESTING/LIN/schkql.f index 817753dba9..b68c9bcb02 100644 --- a/lapack-netlib/TESTING/LIN/schkql.f +++ b/lapack-netlib/TESTING/LIN/schkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE SCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqr.f b/lapack-netlib/TESTING/LIN/schkqr.f index 1546076004..5c45ede9b5 100644 --- a/lapack-netlib/TESTING/LIN/schkqr.f +++ b/lapack-netlib/TESTING/LIN/schkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE SCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqrt.f b/lapack-netlib/TESTING/LIN/schkqrt.f index 9a3cc37d08..ed25a230d4 100644 --- a/lapack-netlib/TESTING/LIN/schkqrt.f +++ b/lapack-netlib/TESTING/LIN/schkqrt.f @@ -74,7 +74,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -101,10 +99,9 @@ SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqrtp.f b/lapack-netlib/TESTING/LIN/schkqrtp.f index 32bae3b393..eee963c472 100644 --- a/lapack-netlib/TESTING/LIN/schkqrtp.f +++ b/lapack-netlib/TESTING/LIN/schkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkrfp.f b/lapack-netlib/TESTING/LIN/schkrfp.f index 066bca6948..f3fdfa07f9 100644 --- a/lapack-netlib/TESTING/LIN/schkrfp.f +++ b/lapack-netlib/TESTING/LIN/schkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== PROGRAM SCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/schkrq.f b/lapack-netlib/TESTING/LIN/schkrq.f index 5c463dd1c8..095fbbf9be 100644 --- a/lapack-netlib/TESTING/LIN/schkrq.f +++ b/lapack-netlib/TESTING/LIN/schkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE SCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksp.f b/lapack-netlib/TESTING/LIN/schksp.f index 53cecd9e74..b3c45d1f27 100644 --- a/lapack-netlib/TESTING/LIN/schksp.f +++ b/lapack-netlib/TESTING/LIN/schksp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE SCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksy.f b/lapack-netlib/TESTING/LIN/schksy.f index aee800a690..dc94b34924 100644 --- a/lapack-netlib/TESTING/LIN/schksy.f +++ b/lapack-netlib/TESTING/LIN/schksy.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== @@ -170,10 +168,9 @@ SUBROUTINE SCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksy_aa.f b/lapack-netlib/TESTING/LIN/schksy_aa.f index 93be3bdd41..75b895bd43 100644 --- a/lapack-netlib/TESTING/LIN/schksy_aa.f +++ b/lapack-netlib/TESTING/LIN/schksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -170,10 +168,9 @@ SUBROUTINE SCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f index 7cdcc9181e..d3c27ae561 100644 --- a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE SCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -567,6 +564,6 @@ SUBROUTINE SCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ I6 ) RETURN * -* End of DCHKSY_AA_2STAGE +* End of SCHKSY_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/schksy_rk.f b/lapack-netlib/TESTING/LIN/schksy_rk.f index 5456150a65..932e6e1860 100644 --- a/lapack-netlib/TESTING/LIN/schksy_rk.f +++ b/lapack-netlib/TESTING/LIN/schksy_rk.f @@ -63,7 +63,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -176,10 +174,9 @@ SUBROUTINE SCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -486,7 +483,7 @@ SUBROUTINE SCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'SSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that SPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/schksy_rook.f b/lapack-netlib/TESTING/LIN/schksy_rook.f index 0d9e58fba4..eb91eba4f0 100644 --- a/lapack-netlib/TESTING/LIN/schksy_rook.f +++ b/lapack-netlib/TESTING/LIN/schksy_rook.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE SCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktb.f b/lapack-netlib/TESTING/LIN/schktb.f index deb83bf0a5..cdbb622b15 100644 --- a/lapack-netlib/TESTING/LIN/schktb.f +++ b/lapack-netlib/TESTING/LIN/schktb.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE SCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktp.f b/lapack-netlib/TESTING/LIN/schktp.f index 6f3a96f7e8..ff05c1d97a 100644 --- a/lapack-netlib/TESTING/LIN/schktp.f +++ b/lapack-netlib/TESTING/LIN/schktp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE SCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f index a9737e35cd..66fa0bee7f 100644 --- a/lapack-netlib/TESTING/LIN/schktr.f +++ b/lapack-netlib/TESTING/LIN/schktr.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktsqr.f b/lapack-netlib/TESTING/LIN/schktsqr.f index aa4d6f9c4a..5d7aa2d374 100644 --- a/lapack-netlib/TESTING/LIN/schktsqr.f +++ b/lapack-netlib/TESTING/LIN/schktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of SCHKQRT +* End of SCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/schktz.f b/lapack-netlib/TESTING/LIN/schktz.f index 92d671c871..85544542a0 100644 --- a/lapack-netlib/TESTING/LIN/schktz.f +++ b/lapack-netlib/TESTING/LIN/schktz.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvgb.f b/lapack-netlib/TESTING/LIN/sdrvgb.f index fc106ea515..d7c293ab6a 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgb.f +++ b/lapack-netlib/TESTING/LIN/sdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL SGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/sdrvgbx.f b/lapack-netlib/TESTING/LIN/sdrvgbx.f index 45adc39dba..342e25ac25 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/sdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL SGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -710,6 +708,7 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -896,7 +895,7 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, CALL SLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, + $ LDA, X, LDB, WORK, LDB, RWORK, $ RESULT( 2 ) ) * * Check solution from generated exact solution. @@ -1027,6 +1026,6 @@ SUBROUTINE SDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * RETURN * -* End of SDRVGB +* End of SDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvge.f b/lapack-netlib/TESTING/LIN/sdrvge.f index 8c08cddbaa..fa66d12c1a 100644 --- a/lapack-netlib/TESTING/LIN/sdrvge.f +++ b/lapack-netlib/TESTING/LIN/sdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvgex.f b/lapack-netlib/TESTING/LIN/sdrvgex.f index 1cc9f3c9ff..a7a9984ff2 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgex.f +++ b/lapack-netlib/TESTING/LIN/sdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -889,6 +886,6 @@ SUBROUTINE SDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of SDRVGE +* End of SDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvgt.f b/lapack-netlib/TESTING/LIN/sdrvgt.f index f939780217..6c3ad2d7b9 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgt.f +++ b/lapack-netlib/TESTING/LIN/sdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvls.f b/lapack-netlib/TESTING/LIN/sdrvls.f index 649ca558ca..b964515037 100644 --- a/lapack-netlib/TESTING/LIN/sdrvls.f +++ b/lapack-netlib/TESTING/LIN/sdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== @@ -192,10 +190,9 @@ SUBROUTINE SDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpb.f b/lapack-netlib/TESTING/LIN/sdrvpb.f index ba018bc6d5..e3e9ea3737 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpb.f +++ b/lapack-netlib/TESTING/LIN/sdrvpb.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE SDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpo.f b/lapack-netlib/TESTING/LIN/sdrvpo.f index d8d90cc3b5..5ac638b0b6 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpo.f +++ b/lapack-netlib/TESTING/LIN/sdrvpo.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpox.f b/lapack-netlib/TESTING/LIN/sdrvpox.f index 23fc87d3c7..ae3cf9bee9 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpox.f +++ b/lapack-netlib/TESTING/LIN/sdrvpox.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -731,6 +728,6 @@ SUBROUTINE SDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of SDRVPO +* End of SDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvpp.f b/lapack-netlib/TESTING/LIN/sdrvpp.f index 33b7d0d209..bfabe72b72 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpp.f +++ b/lapack-netlib/TESTING/LIN/sdrvpp.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE SDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpt.f b/lapack-netlib/TESTING/LIN/sdrvpt.f index e2ca6bcb8b..00754141b9 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpt.f +++ b/lapack-netlib/TESTING/LIN/sdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvrf1.f b/lapack-netlib/TESTING/LIN/sdrvrf1.f index 4aa9782042..1567b2762e 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf1.f @@ -87,17 +87,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrf2.f b/lapack-netlib/TESTING/LIN/sdrvrf2.f index 350f47e14d..1d2c85edb4 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrf3.f b/lapack-netlib/TESTING/LIN/sdrvrf3.f index aa8e4f1dae..5faae27337 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf3.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -255,8 +252,8 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * Generate A our NA--by--NA triangular * matrix. * Our test is based on forward error so we -* do want A to be well conditionned! To get -* a well-conditionned triangular matrix, we +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/sdrvrf4.f b/lapack-netlib/TESTING/LIN/sdrvrf4.f index d811d049b5..e4d08ccbb3 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf4.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_SLANGE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrfp.f b/lapack-netlib/TESTING/LIN/sdrvrfp.f index c0eb4d5644..fbbf8bc88f 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/sdrvrfp.f @@ -203,11 +203,6 @@ *> S_TEMP_SPOT03 is REAL array, dimension ( NMAX*NMAX ) *> \endverbatim *> -*> \param[out] S_WORK_SLATMS -*> \verbatim -*> S_WORK_SLATMS is REAL array, dimension ( NMAX ) -*> \endverbatim -*> *> \param[out] S_WORK_SLANSY *> \verbatim *> S_WORK_SLANSY is REAL array, dimension ( NMAX ) @@ -231,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -243,10 +236,9 @@ SUBROUTINE SDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + S_TEMP_SPOT03, S_WORK_SLANSY, + S_WORK_SPOT02, S_WORK_SPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvsp.f b/lapack-netlib/TESTING/LIN/sdrvsp.f index 12110cfa94..077f041353 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsp.f +++ b/lapack-netlib/TESTING/LIN/sdrvsp.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE SDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy.f b/lapack-netlib/TESTING/LIN/sdrvsy.f index 1e3abeda1c..509522c425 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f index e4357c45f6..ff0c3ab8de 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f index 70e8ff6b80..aff32bce93 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE SDRVSY_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f index 83cb5dda08..6018126f69 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE SDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -411,7 +408,7 @@ SUBROUTINE SDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL SSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f index e729dc51e7..eebfea59b0 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE SDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsyx.f b/lapack-netlib/TESTING/LIN/sdrvsyx.f index e314da2e0f..26f300548f 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/sdrvsyx.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -707,6 +704,6 @@ SUBROUTINE SDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of SDRVSY +* End of SDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/sebchvxx.f b/lapack-netlib/TESTING/LIN/sebchvxx.f index 8a8e086654..2485a7fd7d 100644 --- a/lapack-netlib/TESTING/LIN/sebchvxx.f +++ b/lapack-netlib/TESTING/LIN/sebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -492,5 +490,7 @@ SUBROUTINE SEBCHVXX( THRESH, PATH ) 8000 FORMAT( ' S', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of SEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/serrge.f b/lapack-netlib/TESTING/LIN/serrge.f index d4b1f701f4..7ac5c926b3 100644 --- a/lapack-netlib/TESTING/LIN/serrge.f +++ b/lapack-netlib/TESTING/LIN/serrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrgex.f b/lapack-netlib/TESTING/LIN/serrgex.f index ebeceae860..b6da20b5e0 100644 --- a/lapack-netlib/TESTING/LIN/serrgex.f +++ b/lapack-netlib/TESTING/LIN/serrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ SUBROUTINE SERRGE( PATH, NUNIT ) * RETURN * -* End of SERRGE +* End of SERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/serrgt.f b/lapack-netlib/TESTING/LIN/serrgt.f index 0fc54cab9c..431e8bbd94 100644 --- a/lapack-netlib/TESTING/LIN/serrgt.f +++ b/lapack-netlib/TESTING/LIN/serrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlq.f b/lapack-netlib/TESTING/LIN/serrlq.f index e184f006f5..5bb0fe2012 100644 --- a/lapack-netlib/TESTING/LIN/serrlq.f +++ b/lapack-netlib/TESTING/LIN/serrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlqt.f b/lapack-netlib/TESTING/LIN/serrlqt.f index 6144ec625d..2a5f9eee26 100644 --- a/lapack-netlib/TESTING/LIN/serrlqt.f +++ b/lapack-netlib/TESTING/LIN/serrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlqtp.f b/lapack-netlib/TESTING/LIN/serrlqtp.f index 4d0437d4fb..e06f23f532 100644 --- a/lapack-netlib/TESTING/LIN/serrlqtp.f +++ b/lapack-netlib/TESTING/LIN/serrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ SUBROUTINE SERRLQTP( PATH, NUNIT ) * RETURN * -* End of SERRLQT +* End of SERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/serrls.f b/lapack-netlib/TESTING/LIN/serrls.f index f7912e1fbb..e6ee4360f9 100644 --- a/lapack-netlib/TESTING/LIN/serrls.f +++ b/lapack-netlib/TESTING/LIN/serrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrorhr_col.f b/lapack-netlib/TESTING/LIN/serrorhr_col.f index e8d81a99c0..3b222273cc 100644 --- a/lapack-netlib/TESTING/LIN/serrorhr_col.f +++ b/lapack-netlib/TESTING/LIN/serrorhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> SERRORHR_COL tests the error exits for SORHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization SLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singlr_lin * * ===================================================================== SUBROUTINE SERRORHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/serrpo.f b/lapack-netlib/TESTING/LIN/serrpo.f index 8061514d8b..4c07c8f875 100644 --- a/lapack-netlib/TESTING/LIN/serrpo.f +++ b/lapack-netlib/TESTING/LIN/serrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrpox.f b/lapack-netlib/TESTING/LIN/serrpox.f index 123f5b70b1..6e81bf6706 100644 --- a/lapack-netlib/TESTING/LIN/serrpox.f +++ b/lapack-netlib/TESTING/LIN/serrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -526,6 +523,6 @@ SUBROUTINE SERRPO( PATH, NUNIT ) * RETURN * -* End of SERRPO +* End of SERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/serrps.f b/lapack-netlib/TESTING/LIN/serrps.f index dc9cb29f52..669028b815 100644 --- a/lapack-netlib/TESTING/LIN/serrps.f +++ b/lapack-netlib/TESTING/LIN/serrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/serrql.f b/lapack-netlib/TESTING/LIN/serrql.f index 1b094be6ea..e714aa076b 100644 --- a/lapack-netlib/TESTING/LIN/serrql.f +++ b/lapack-netlib/TESTING/LIN/serrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqp.f b/lapack-netlib/TESTING/LIN/serrqp.f index 596f275f30..952c5ff4e3 100644 --- a/lapack-netlib/TESTING/LIN/serrqp.f +++ b/lapack-netlib/TESTING/LIN/serrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqr.f b/lapack-netlib/TESTING/LIN/serrqr.f index 3339a85ad8..1ad40b7aa2 100644 --- a/lapack-netlib/TESTING/LIN/serrqr.f +++ b/lapack-netlib/TESTING/LIN/serrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqrt.f b/lapack-netlib/TESTING/LIN/serrqrt.f index 1df2c25c93..f243fd94cc 100644 --- a/lapack-netlib/TESTING/LIN/serrqrt.f +++ b/lapack-netlib/TESTING/LIN/serrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqrtp.f b/lapack-netlib/TESTING/LIN/serrqrtp.f index 211643b9b5..af1d616758 100644 --- a/lapack-netlib/TESTING/LIN/serrqrtp.f +++ b/lapack-netlib/TESTING/LIN/serrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ SUBROUTINE SERRQRTP( PATH, NUNIT ) * RETURN * -* End of SERRQRT +* End of SERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/serrrfp.f b/lapack-netlib/TESTING/LIN/serrrfp.f index 1956cca4be..2c7ee8ed64 100644 --- a/lapack-netlib/TESTING/LIN/serrrfp.f +++ b/lapack-netlib/TESTING/LIN/serrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/serrrq.f b/lapack-netlib/TESTING/LIN/serrrq.f index c2cec4328d..d8d9ea62b2 100644 --- a/lapack-netlib/TESTING/LIN/serrrq.f +++ b/lapack-netlib/TESTING/LIN/serrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrsy.f b/lapack-netlib/TESTING/LIN/serrsy.f index fe9af2f41b..c562b417b2 100644 --- a/lapack-netlib/TESTING/LIN/serrsy.f +++ b/lapack-netlib/TESTING/LIN/serrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrsyx.f b/lapack-netlib/TESTING/LIN/serrsyx.f index 9249f104fc..ed47c37bd9 100644 --- a/lapack-netlib/TESTING/LIN/serrsyx.f +++ b/lapack-netlib/TESTING/LIN/serrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -613,6 +610,6 @@ SUBROUTINE SERRSY( PATH, NUNIT ) * RETURN * -* End of SERRSY +* End of SERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/serrtr.f b/lapack-netlib/TESTING/LIN/serrtr.f index 0bc4a897c8..f0d0a0ef21 100644 --- a/lapack-netlib/TESTING/LIN/serrtr.f +++ b/lapack-netlib/TESTING/LIN/serrtr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrtsqr.f b/lapack-netlib/TESTING/LIN/serrtsqr.f index 7f91a3c394..7f25f8b08e 100644 --- a/lapack-netlib/TESTING/LIN/serrtsqr.f +++ b/lapack-netlib/TESTING/LIN/serrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ SUBROUTINE SERRTSQR( PATH, NUNIT ) PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ SUBROUTINE SERRTSQR( PATH, NUNIT ) CALL SGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'SGEQR', INFOT, NOUT, LERR, OK ) * +* SLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'SLATSQR' + INFOT = 1 + CALL SLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL SLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + CALL SLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL SLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL SLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL SLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) +* * SGEMQR * TAU(1)=1 @@ -194,6 +220,37 @@ SUBROUTINE SERRTSQR( PATH, NUNIT ) CALL SGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'SGELQ', INFOT, NOUT, LERR, OK ) * +* SLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'SLASWLQ' + INFOT = 1 + CALL SLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL SLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + CALL SLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL SLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + CALL SLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL SLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL SLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) +* * SGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/serrtz.f b/lapack-netlib/TESTING/LIN/serrtz.f index f5897642b1..457f7b743e 100644 --- a/lapack-netlib/TESTING/LIN/serrtz.f +++ b/lapack-netlib/TESTING/LIN/serrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrvx.f b/lapack-netlib/TESTING/LIN/serrvx.f index 910bff1e52..c3db47332e 100644 --- a/lapack-netlib/TESTING/LIN/serrvx.f +++ b/lapack-netlib/TESTING/LIN/serrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrvxx.f b/lapack-netlib/TESTING/LIN/serrvxx.f index 4d2cd9f38d..d48c29a171 100644 --- a/lapack-netlib/TESTING/LIN/serrvxx.f +++ b/lapack-netlib/TESTING/LIN/serrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1036,6 +1033,6 @@ SUBROUTINE SERRVX( PATH, NUNIT ) * RETURN * -* End of SERRVX +* End of SERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/sgbt01.f b/lapack-netlib/TESTING/LIN/sgbt01.f index 2dd6d93b2e..0f6129240a 100644 --- a/lapack-netlib/TESTING/LIN/sgbt01.f +++ b/lapack-netlib/TESTING/LIN/sgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/sgbt02.f b/lapack-netlib/TESTING/LIN/sgbt02.f index 2be982a8a6..ecdb438fff 100644 --- a/lapack-netlib/TESTING/LIN/sgbt02.f +++ b/lapack-netlib/TESTING/LIN/sgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,7 +17,8 @@ * REAL RESID * .. * .. Array Arguments .. -* REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) +* REAL A( LDA, * ), B( LDB, * ), X( LDX, * ), +* RWORK( * ) * .. * * @@ -27,9 +28,11 @@ *> \verbatim *> *> SGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -39,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +119,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,7 +157,8 @@ SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, REAL RESID * .. * .. Array Arguments .. - REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) + REAL A( LDA, * ), B( LDB, * ), X( LDX, * ), + $ RWORK( * ) * .. * * ===================================================================== @@ -161,18 +169,18 @@ SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - REAL ANORM, BNORM, EPS, XNORM + REAL ANORM, BNORM, EPS, TEMP, XNORM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL LSAME, SISNAN REAL SASUM, SLAMCH - EXTERNAL LSAME, SASUM, SLAMCH + EXTERNAL LSAME, SASUM, SISNAN, SLAMCH * .. * .. External Subroutines .. EXTERNAL SGBMV * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, MAX, MIN * .. * .. Executable Statements .. * @@ -186,13 +194,38 @@ SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, SASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = SASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -204,7 +237,7 @@ SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL SGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1, @@ -212,7 +245,7 @@ SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgbt05.f b/lapack-netlib/TESTING/LIN/sgbt05.f index 82c5a4a86c..cfd6dd743e 100644 --- a/lapack-netlib/TESTING/LIN/sgbt05.f +++ b/lapack-netlib/TESTING/LIN/sgbt05.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sgelqs.f b/lapack-netlib/TESTING/LIN/sgelqs.f index cdffebdc8e..83afb4690b 100644 --- a/lapack-netlib/TESTING/LIN/sgelqs.f +++ b/lapack-netlib/TESTING/LIN/sgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgennd.f b/lapack-netlib/TESTING/LIN/sgennd.f index 894590991e..a5a420fdb0 100644 --- a/lapack-netlib/TESTING/LIN/sgennd.f +++ b/lapack-netlib/TESTING/LIN/sgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== LOGICAL FUNCTION SGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/sgeqls.f b/lapack-netlib/TESTING/LIN/sgeqls.f index 19ae7c5922..8215b6a5b8 100644 --- a/lapack-netlib/TESTING/LIN/sgeqls.f +++ b/lapack-netlib/TESTING/LIN/sgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgeqrs.f b/lapack-netlib/TESTING/LIN/sgeqrs.f index 9ec64073dc..ed11489104 100644 --- a/lapack-netlib/TESTING/LIN/sgeqrs.f +++ b/lapack-netlib/TESTING/LIN/sgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgerqs.f b/lapack-netlib/TESTING/LIN/sgerqs.f index 5b04c5ae2e..0c5c693af8 100644 --- a/lapack-netlib/TESTING/LIN/sgerqs.f +++ b/lapack-netlib/TESTING/LIN/sgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget01.f b/lapack-netlib/TESTING/LIN/sget01.f index aa748e8f0e..a8b013d149 100644 --- a/lapack-netlib/TESTING/LIN/sget01.f +++ b/lapack-netlib/TESTING/LIN/sget01.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/sget02.f b/lapack-netlib/TESTING/LIN/sget02.f index 0f15ec0f2a..0aa49ad4fb 100644 --- a/lapack-netlib/TESTING/LIN/sget02.f +++ b/lapack-netlib/TESTING/LIN/sget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> SGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +97,7 @@ *> B is REAL array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +116,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = SLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget03.f b/lapack-netlib/TESTING/LIN/sget03.f index 8b4a2a384b..b32f104896 100644 --- a/lapack-netlib/TESTING/LIN/sget03.f +++ b/lapack-netlib/TESTING/LIN/sget03.f @@ -101,18 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/sget04.f b/lapack-netlib/TESTING/LIN/sget04.f index 3873aabda3..8c4fe9a892 100644 --- a/lapack-netlib/TESTING/LIN/sget04.f +++ b/lapack-netlib/TESTING/LIN/sget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget06.f b/lapack-netlib/TESTING/LIN/sget06.f index 420004b318..12b952e134 100644 --- a/lapack-netlib/TESTING/LIN/sget06.f +++ b/lapack-netlib/TESTING/LIN/sget06.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SGET06( RCOND, RCONDC ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RCOND, RCONDC diff --git a/lapack-netlib/TESTING/LIN/sget07.f b/lapack-netlib/TESTING/LIN/sget07.f index 42c25cb1d7..4333ad0b28 100644 --- a/lapack-netlib/TESTING/LIN/sget07.f +++ b/lapack-netlib/TESTING/LIN/sget07.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sgtt01.f b/lapack-netlib/TESTING/LIN/sgtt01.f index 5096f83cce..5d88c91f77 100644 --- a/lapack-netlib/TESTING/LIN/sgtt01.f +++ b/lapack-netlib/TESTING/LIN/sgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/sgtt02.f b/lapack-netlib/TESTING/LIN/sgtt02.f index 0a39150572..a4eb09f6b8 100644 --- a/lapack-netlib/TESTING/LIN/sgtt02.f +++ b/lapack-netlib/TESTING/LIN/sgtt02.f @@ -29,8 +29,9 @@ *> *> SGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -41,8 +42,8 @@ *> TRANS is CHARACTER *> Specifies the form of the residual. *> = 'N': B - A * X (No transpose) -*> = 'T': B - A'* X (Transpose) -*> = 'C': B - A'* X (Conjugate transpose = Transpose) +*> = 'T': B - A**T * X (Transpose) +*> = 'C': B - A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] N @@ -105,7 +106,7 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +167,7 @@ SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGT( '1', N, DL, D, DU ) @@ -185,7 +183,7 @@ SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL SLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/sgtt05.f b/lapack-netlib/TESTING/LIN/sgtt05.f index a55537f340..adf4089b50 100644 --- a/lapack-netlib/TESTING/LIN/sgtt05.f +++ b/lapack-netlib/TESTING/LIN/sgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/slahilb.f b/lapack-netlib/TESTING/LIN/slahilb.f index 7944f0e9da..cb3272d3b6 100644 --- a/lapack-netlib/TESTING/LIN/slahilb.f +++ b/lapack-netlib/TESTING/LIN/slahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/slaord.f b/lapack-netlib/TESTING/LIN/slaord.f index 3d4553efe6..06bccf02ea 100644 --- a/lapack-netlib/TESTING/LIN/slaord.f +++ b/lapack-netlib/TESTING/LIN/slaord.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAORD( JOB, N, X, INCX ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/TESTING/LIN/slaptm.f b/lapack-netlib/TESTING/LIN/slaptm.f index cfc04200a6..6b3ffdf8ad 100644 --- a/lapack-netlib/TESTING/LIN/slaptm.f +++ b/lapack-netlib/TESTING/LIN/slaptm.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/slarhs.f b/lapack-netlib/TESTING/LIN/slarhs.f index 4d84cc67ef..2d5bf82660 100644 --- a/lapack-netlib/TESTING/LIN/slarhs.f +++ b/lapack-netlib/TESTING/LIN/slarhs.f @@ -30,7 +30,7 @@ *> SLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/slatb4.f b/lapack-netlib/TESTING/LIN/slatb4.f index 7be45ca0a9..94d29db403 100644 --- a/lapack-netlib/TESTING/LIN/slatb4.f +++ b/lapack-netlib/TESTING/LIN/slatb4.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/slatb5.f b/lapack-netlib/TESTING/LIN/slatb5.f index be8e962f95..6eefee4267 100644 --- a/lapack-netlib/TESTING/LIN/slatb5.f +++ b/lapack-netlib/TESTING/LIN/slatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/slattb.f b/lapack-netlib/TESTING/LIN/slattb.f index 42655ac632..57e32b2db8 100644 --- a/lapack-netlib/TESTING/LIN/slattb.f +++ b/lapack-netlib/TESTING/LIN/slattb.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slattp.f b/lapack-netlib/TESTING/LIN/slattp.f index adc99f3685..24650bcc47 100644 --- a/lapack-netlib/TESTING/LIN/slattp.f +++ b/lapack-netlib/TESTING/LIN/slattp.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slattr.f b/lapack-netlib/TESTING/LIN/slattr.f index 9896827f09..e1ffd99918 100644 --- a/lapack-netlib/TESTING/LIN/slattr.f +++ b/lapack-netlib/TESTING/LIN/slattr.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsp.f b/lapack-netlib/TESTING/LIN/slavsp.f index 208a86c9fd..e6580d37fa 100644 --- a/lapack-netlib/TESTING/LIN/slavsp.f +++ b/lapack-netlib/TESTING/LIN/slavsp.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsy.f b/lapack-netlib/TESTING/LIN/slavsy.f index 3c575e2d79..c0f0ee4a1d 100644 --- a/lapack-netlib/TESTING/LIN/slavsy.f +++ b/lapack-netlib/TESTING/LIN/slavsy.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsy_rook.f b/lapack-netlib/TESTING/LIN/slavsy_rook.f index 55477bd96e..d775e5e0e3 100644 --- a/lapack-netlib/TESTING/LIN/slavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/slavsy_rook.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slqt01.f b/lapack-netlib/TESTING/LIN/slqt01.f index daaf33cab0..9b868ac117 100644 --- a/lapack-netlib/TESTING/LIN/slqt01.f +++ b/lapack-netlib/TESTING/LIN/slqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt02.f b/lapack-netlib/TESTING/LIN/slqt02.f index 1db9c5bd96..d59a8a01c5 100644 --- a/lapack-netlib/TESTING/LIN/slqt02.f +++ b/lapack-netlib/TESTING/LIN/slqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt03.f b/lapack-netlib/TESTING/LIN/slqt03.f index d625d3100a..bc78a0fca9 100644 --- a/lapack-netlib/TESTING/LIN/slqt03.f +++ b/lapack-netlib/TESTING/LIN/slqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt04.f b/lapack-netlib/TESTING/LIN/slqt04.f index 526bd5623b..c0ba81f744 100644 --- a/lapack-netlib/TESTING/LIN/slqt04.f +++ b/lapack-netlib/TESTING/LIN/slqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/slqt05.f b/lapack-netlib/TESTING/LIN/slqt05.f index 3f9e8e1881..9afc37ef7c 100644 --- a/lapack-netlib/TESTING/LIN/slqt05.f +++ b/lapack-netlib/TESTING/LIN/slqt05.f @@ -1,3 +1,10 @@ +*> \brief \b SLQT05 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* * Definition: * =========== * @@ -13,7 +20,6 @@ * ============= *> *> \verbatim -*> *> SQRT05 tests STPLQT and STPMLQT. *> \endverbatim * @@ -66,18 +72,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/spbt01.f b/lapack-netlib/TESTING/LIN/spbt01.f index 6aa3ccfee1..7aae3a2c63 100644 --- a/lapack-netlib/TESTING/LIN/spbt01.f +++ b/lapack-netlib/TESTING/LIN/spbt01.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spbt02.f b/lapack-netlib/TESTING/LIN/spbt02.f index 9676ef311a..7343063698 100644 --- a/lapack-netlib/TESTING/LIN/spbt02.f +++ b/lapack-netlib/TESTING/LIN/spbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spbt05.f b/lapack-netlib/TESTING/LIN/spbt05.f index 44466ac6ea..14b68c1096 100644 --- a/lapack-netlib/TESTING/LIN/spbt05.f +++ b/lapack-netlib/TESTING/LIN/spbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot01.f b/lapack-netlib/TESTING/LIN/spot01.f index 930437271e..a3c1af205a 100644 --- a/lapack-netlib/TESTING/LIN/spot01.f +++ b/lapack-netlib/TESTING/LIN/spot01.f @@ -65,10 +65,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is REAL array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**T or U**T * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**T - A (or U**T * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -85,8 +85,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -157,7 +154,7 @@ SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) RETURN END IF * -* Compute the product U'*U, overwriting U. +* Compute the product U**T * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 10 K = N, 1, -1 @@ -174,7 +171,7 @@ SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * 10 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**T, overwriting L. * ELSE DO 20 K = N, 1, -1 @@ -194,7 +191,7 @@ SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) 20 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**T - A (or U**T * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 40 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/spot02.f b/lapack-netlib/TESTING/LIN/spot02.f index 7c68e7c0de..08176a87ee 100644 --- a/lapack-netlib/TESTING/LIN/spot02.f +++ b/lapack-netlib/TESTING/LIN/spot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot03.f b/lapack-netlib/TESTING/LIN/spot03.f index 424d43293e..191b3139c8 100644 --- a/lapack-netlib/TESTING/LIN/spot03.f +++ b/lapack-netlib/TESTING/LIN/spot03.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot05.f b/lapack-netlib/TESTING/LIN/spot05.f index 6c10a3faee..7658ea3856 100644 --- a/lapack-netlib/TESTING/LIN/spot05.f +++ b/lapack-netlib/TESTING/LIN/spot05.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt01.f b/lapack-netlib/TESTING/LIN/sppt01.f index 97f9eb0fb0..213b38b410 100644 --- a/lapack-netlib/TESTING/LIN/sppt01.f +++ b/lapack-netlib/TESTING/LIN/sppt01.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt02.f b/lapack-netlib/TESTING/LIN/sppt02.f index 8122e8eba8..3e94585b09 100644 --- a/lapack-netlib/TESTING/LIN/sppt02.f +++ b/lapack-netlib/TESTING/LIN/sppt02.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt03.f b/lapack-netlib/TESTING/LIN/sppt03.f index 2660249dfd..abb31cb4a5 100644 --- a/lapack-netlib/TESTING/LIN/sppt03.f +++ b/lapack-netlib/TESTING/LIN/sppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt05.f b/lapack-netlib/TESTING/LIN/sppt05.f index c9c6b687ba..a56d0411d9 100644 --- a/lapack-netlib/TESTING/LIN/sppt05.f +++ b/lapack-netlib/TESTING/LIN/sppt05.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spst01.f b/lapack-netlib/TESTING/LIN/spst01.f index d7331c6328..83084fba5e 100644 --- a/lapack-netlib/TESTING/LIN/spst01.f +++ b/lapack-netlib/TESTING/LIN/spst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RESID diff --git a/lapack-netlib/TESTING/LIN/sptt01.f b/lapack-netlib/TESTING/LIN/sptt01.f index 23e82546f5..fef18dd2b4 100644 --- a/lapack-netlib/TESTING/LIN/sptt01.f +++ b/lapack-netlib/TESTING/LIN/sptt01.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/sptt02.f b/lapack-netlib/TESTING/LIN/sptt02.f index 5f0b08e1c8..51a6a074a1 100644 --- a/lapack-netlib/TESTING/LIN/sptt02.f +++ b/lapack-netlib/TESTING/LIN/sptt02.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sptt05.f b/lapack-netlib/TESTING/LIN/sptt05.f index fe78cdc30f..ddbc40f132 100644 --- a/lapack-netlib/TESTING/LIN/sptt05.f +++ b/lapack-netlib/TESTING/LIN/sptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sqlt01.f b/lapack-netlib/TESTING/LIN/sqlt01.f index 133aaba044..aa61e91a0b 100644 --- a/lapack-netlib/TESTING/LIN/sqlt01.f +++ b/lapack-netlib/TESTING/LIN/sqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqlt02.f b/lapack-netlib/TESTING/LIN/sqlt02.f index 6a52b0461f..5d381b950a 100644 --- a/lapack-netlib/TESTING/LIN/sqlt02.f +++ b/lapack-netlib/TESTING/LIN/sqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqlt03.f b/lapack-netlib/TESTING/LIN/sqlt03.f index 355fc00d5c..5c1bcdf666 100644 --- a/lapack-netlib/TESTING/LIN/sqlt03.f +++ b/lapack-netlib/TESTING/LIN/sqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqpt01.f b/lapack-netlib/TESTING/LIN/sqpt01.f index e33d841fc3..de0c80e53a 100644 --- a/lapack-netlib/TESTING/LIN/sqpt01.f +++ b/lapack-netlib/TESTING/LIN/sqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt01.f b/lapack-netlib/TESTING/LIN/sqrt01.f index 43f0d83cfb..6f14989038 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01.f +++ b/lapack-netlib/TESTING/LIN/sqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt01p.f b/lapack-netlib/TESTING/LIN/sqrt01p.f index a9de4ec34e..f3a53013df 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01p.f +++ b/lapack-netlib/TESTING/LIN/sqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt02.f b/lapack-netlib/TESTING/LIN/sqrt02.f index 3509d03114..72163f0a9d 100644 --- a/lapack-netlib/TESTING/LIN/sqrt02.f +++ b/lapack-netlib/TESTING/LIN/sqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt03.f b/lapack-netlib/TESTING/LIN/sqrt03.f index 9e19dd6d6a..bf11ef2588 100644 --- a/lapack-netlib/TESTING/LIN/sqrt03.f +++ b/lapack-netlib/TESTING/LIN/sqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt04.f b/lapack-netlib/TESTING/LIN/sqrt04.f index d0fb6de35d..b088ba43e2 100644 --- a/lapack-netlib/TESTING/LIN/sqrt04.f +++ b/lapack-netlib/TESTING/LIN/sqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/sqrt05.f b/lapack-netlib/TESTING/LIN/sqrt05.f index 0c1d52761b..21ec97c1fa 100644 --- a/lapack-netlib/TESTING/LIN/sqrt05.f +++ b/lapack-netlib/TESTING/LIN/sqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/sqrt11.f b/lapack-netlib/TESTING/LIN/sqrt11.f index eaffacbf05..d4422dacbf 100644 --- a/lapack-netlib/TESTING/LIN/sqrt11.f +++ b/lapack-netlib/TESTING/LIN/sqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/sqrt12.f b/lapack-netlib/TESTING/LIN/sqrt12.f index c7c367011a..2eab0ee0d6 100644 --- a/lapack-netlib/TESTING/LIN/sqrt12.f +++ b/lapack-netlib/TESTING/LIN/sqrt12.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt13.f b/lapack-netlib/TESTING/LIN/sqrt13.f index 6d6583bc20..d77c5fa066 100644 --- a/lapack-netlib/TESTING/LIN/sqrt13.f +++ b/lapack-netlib/TESTING/LIN/sqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/sqrt14.f b/lapack-netlib/TESTING/LIN/sqrt14.f index 6e8ac2f3e1..64bdc81108 100644 --- a/lapack-netlib/TESTING/LIN/sqrt14.f +++ b/lapack-netlib/TESTING/LIN/sqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, IF( XNRM.NE.ZERO ) $ CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = SLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/sqrt15.f b/lapack-netlib/TESTING/LIN/sqrt15.f index 2ead9fed32..5a6967abba 100644 --- a/lapack-netlib/TESTING/LIN/sqrt15.f +++ b/lapack-netlib/TESTING/LIN/sqrt15.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/sqrt16.f b/lapack-netlib/TESTING/LIN/sqrt16.f index 92e014087f..1a5dbf785e 100644 --- a/lapack-netlib/TESTING/LIN/sqrt16.f +++ b/lapack-netlib/TESTING/LIN/sqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sqrt17.f b/lapack-netlib/TESTING/LIN/sqrt17.f index c7b543cb6d..d2ff56bf1a 100644 --- a/lapack-netlib/TESTING/LIN/sqrt17.f +++ b/lapack-netlib/TESTING/LIN/sqrt17.f @@ -28,12 +28,15 @@ *> *> SQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'T': Transpose, op(A) = A'. +*> = 'T': Transpose, op(A) = A**T. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + REAL ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) @@ -214,7 +214,6 @@ REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, * NORMA = SLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, $ INFO ) END IF * -* compute R'*A +* compute R**T * op(A) * CALL SGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB, $ A, LDA, ZERO, WORK, NRHS ) diff --git a/lapack-netlib/TESTING/LIN/srqt01.f b/lapack-netlib/TESTING/LIN/srqt01.f index 993001964e..07a040a157 100644 --- a/lapack-netlib/TESTING/LIN/srqt01.f +++ b/lapack-netlib/TESTING/LIN/srqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srqt02.f b/lapack-netlib/TESTING/LIN/srqt02.f index 2960d16678..ca0594f7af 100644 --- a/lapack-netlib/TESTING/LIN/srqt02.f +++ b/lapack-netlib/TESTING/LIN/srqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srqt03.f b/lapack-netlib/TESTING/LIN/srqt03.f index 0b3a8e3da5..730d76d450 100644 --- a/lapack-netlib/TESTING/LIN/srqt03.f +++ b/lapack-netlib/TESTING/LIN/srqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srzt01.f b/lapack-netlib/TESTING/LIN/srzt01.f index 549bca2e07..4478c05067 100644 --- a/lapack-netlib/TESTING/LIN/srzt01.f +++ b/lapack-netlib/TESTING/LIN/srzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srzt02.f b/lapack-netlib/TESTING/LIN/srzt02.f index 12f4018ff6..cd76a7c62a 100644 --- a/lapack-netlib/TESTING/LIN/srzt02.f +++ b/lapack-netlib/TESTING/LIN/srzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sspt01.f b/lapack-netlib/TESTING/LIN/sspt01.f index ecd1d91787..05cac43f48 100644 --- a/lapack-netlib/TESTING/LIN/sspt01.f +++ b/lapack-netlib/TESTING/LIN/sspt01.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01.f b/lapack-netlib/TESTING/LIN/ssyt01.f index f1fb0b9c3e..b47ca7d2fe 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01.f +++ b/lapack-netlib/TESTING/LIN/ssyt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_3.f b/lapack-netlib/TESTING/LIN/ssyt01_3.f index 11ddea4c3c..147553db9e 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_3.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_3.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_aa.f b/lapack-netlib/TESTING/LIN/ssyt01_aa.f index c0fee7154c..470d45c3d4 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup real_lin * * ===================================================================== SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_rook.f b/lapack-netlib/TESTING/LIN/ssyt01_rook.f index 129e9dafea..7f5803b007 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_rook.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt02.f b/lapack-netlib/TESTING/LIN/stbt02.f index a633098e8f..f95b5d5f10 100644 --- a/lapack-netlib/TESTING/LIN/stbt02.f +++ b/lapack-netlib/TESTING/LIN/stbt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> STBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A' *x = b when -*> A is a triangular band matrix. Here A' is the transpose of A and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -199,7 +196,7 @@ SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK ) diff --git a/lapack-netlib/TESTING/LIN/stbt03.f b/lapack-netlib/TESTING/LIN/stbt03.f index 5c747ae902..3ae44926d3 100644 --- a/lapack-netlib/TESTING/LIN/stbt03.f +++ b/lapack-netlib/TESTING/LIN/stbt03.f @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt05.f b/lapack-netlib/TESTING/LIN/stbt05.f index b19c34c395..60e39016c0 100644 --- a/lapack-netlib/TESTING/LIN/stbt05.f +++ b/lapack-netlib/TESTING/LIN/stbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt06.f b/lapack-netlib/TESTING/LIN/stbt06.f index f80cf551ca..8cd5fbc189 100644 --- a/lapack-netlib/TESTING/LIN/stbt06.f +++ b/lapack-netlib/TESTING/LIN/stbt06.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stplqt.f b/lapack-netlib/TESTING/LIN/stplqt.f index 30f827998b..ba34f6bc5d 100644 --- a/lapack-netlib/TESTING/LIN/stplqt.f +++ b/lapack-netlib/TESTING/LIN/stplqt.f @@ -1,3 +1,20 @@ +*> \brief \b STPLQT +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download STPLQT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* * Definition: * =========== * @@ -115,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -172,10 +187,9 @@ SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/TESTING/LIN/stpt01.f b/lapack-netlib/TESTING/LIN/stpt01.f index 428821603c..5e27083b4e 100644 --- a/lapack-netlib/TESTING/LIN/stpt01.f +++ b/lapack-netlib/TESTING/LIN/stpt01.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt02.f b/lapack-netlib/TESTING/LIN/stpt02.f index a8e88b2189..f81fa29b99 100644 --- a/lapack-netlib/TESTING/LIN/stpt02.f +++ b/lapack-netlib/TESTING/LIN/stpt02.f @@ -27,12 +27,13 @@ *> \verbatim *> *> STPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b when -*> the triangular matrix A is stored in packed format. Here A' is the -*> transpose of A and x and b are N by NRHS matrices. The test ratio is -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -50,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -122,7 +123,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -133,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -185,7 +183,7 @@ SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTP( '1', UPLO, DIAG, N, AP, WORK ) @@ -202,7 +200,7 @@ SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/stpt03.f b/lapack-netlib/TESTING/LIN/stpt03.f index c32f8d9d02..9e844e7978 100644 --- a/lapack-netlib/TESTING/LIN/stpt03.f +++ b/lapack-netlib/TESTING/LIN/stpt03.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt05.f b/lapack-netlib/TESTING/LIN/stpt05.f index 6e0e4680b9..81abb969f8 100644 --- a/lapack-netlib/TESTING/LIN/stpt05.f +++ b/lapack-netlib/TESTING/LIN/stpt05.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt06.f b/lapack-netlib/TESTING/LIN/stpt06.f index d7bd082f0f..117987dcc5 100644 --- a/lapack-netlib/TESTING/LIN/stpt06.f +++ b/lapack-netlib/TESTING/LIN/stpt06.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt01.f b/lapack-netlib/TESTING/LIN/strt01.f index 1e6af5b9de..08c2433ed4 100644 --- a/lapack-netlib/TESTING/LIN/strt01.f +++ b/lapack-netlib/TESTING/LIN/strt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt02.f b/lapack-netlib/TESTING/LIN/strt02.f index 14ba15bb7e..26a95510a9 100644 --- a/lapack-netlib/TESTING/LIN/strt02.f +++ b/lapack-netlib/TESTING/LIN/strt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> STRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b. -*> Here A is a triangular matrix, A' is the transpose of A, and x and b -*> are N by NRHS matrices. The test ratio is the maximum over the -*> number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -131,7 +131,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -195,7 +192,7 @@ SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK ) @@ -212,7 +209,7 @@ SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/strt03.f b/lapack-netlib/TESTING/LIN/strt03.f index 23d408a810..2e41076d48 100644 --- a/lapack-netlib/TESTING/LIN/strt03.f +++ b/lapack-netlib/TESTING/LIN/strt03.f @@ -161,18 +161,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt05.f b/lapack-netlib/TESTING/LIN/strt05.f index 434ce9ad1d..af4ebe34a7 100644 --- a/lapack-netlib/TESTING/LIN/strt05.f +++ b/lapack-netlib/TESTING/LIN/strt05.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt06.f b/lapack-netlib/TESTING/LIN/strt06.f index 8d607339de..266e835434 100644 --- a/lapack-netlib/TESTING/LIN/strt06.f +++ b/lapack-netlib/TESTING/LIN/strt06.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stsqr01.f b/lapack-netlib/TESTING/LIN/stsqr01.f index 8eb69eae7c..683c165aef 100644 --- a/lapack-netlib/TESTING/LIN/stsqr01.f +++ b/lapack-netlib/TESTING/LIN/stsqr01.f @@ -77,18 +77,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE STSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/xerbla.f b/lapack-netlib/TESTING/LIN/xerbla.f index b0e435a17d..431339f785 100644 --- a/lapack-netlib/TESTING/LIN/xerbla.f +++ b/lapack-netlib/TESTING/LIN/xerbla.f @@ -52,8 +52,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/TESTING/LIN/xlaenv.f b/lapack-netlib/TESTING/LIN/xlaenv.f index 875459b85a..c1720c7f10 100644 --- a/lapack-netlib/TESTING/LIN/xlaenv.f +++ b/lapack-netlib/TESTING/LIN/xlaenv.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC, NVALUE diff --git a/lapack-netlib/TESTING/LIN/zchkab.f b/lapack-netlib/TESTING/LIN/zchkab.f index f15b46b2fc..63274cabb9 100644 --- a/lapack-netlib/TESTING/LIN/zchkab.f +++ b/lapack-netlib/TESTING/LIN/zchkab.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== PROGRAM ZCHKAB * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/zchkeq.f b/lapack-netlib/TESTING/LIN/zchkeq.f index 56797bf2b4..214331d5a6 100644 --- a/lapack-netlib/TESTING/LIN/zchkeq.f +++ b/lapack-netlib/TESTING/LIN/zchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/zchkgb.f b/lapack-netlib/TESTING/LIN/zchkgb.f index 70660eff65..3b0cd707ab 100644 --- a/lapack-netlib/TESTING/LIN/zchkgb.f +++ b/lapack-netlib/TESTING/LIN/zchkgb.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -191,10 +189,9 @@ SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'ZLARHS' CALL ZLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ SUBROUTINE ZCHKGB( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ WORK, LDB ) CALL ZGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/zchkge.f b/lapack-netlib/TESTING/LIN/zchkge.f index 41068f32ab..d87759df5c 100644 --- a/lapack-netlib/TESTING/LIN/zchkge.f +++ b/lapack-netlib/TESTING/LIN/zchkge.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -186,10 +184,9 @@ SUBROUTINE ZCHKGE( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkgt.f b/lapack-netlib/TESTING/LIN/zchkgt.f index 5d18a8e2bf..b9a6ab7e4a 100644 --- a/lapack-netlib/TESTING/LIN/zchkgt.f +++ b/lapack-netlib/TESTING/LIN/zchkgt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhe.f b/lapack-netlib/TESTING/LIN/zchkhe.f index 0b5a1a1aad..e443eab04f 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe.f +++ b/lapack-netlib/TESTING/LIN/zchkhe.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE ZCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa.f b/lapack-netlib/TESTING/LIN/zchkhe_aa.f index 4100801b7a..1c4ee88e0e 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_aa.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,9 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +169,9 @@ SUBROUTINE ZCHKHE_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f index 43c5435af6..381fac9f2d 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -575,6 +572,6 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ I6 ) RETURN * -* End of ZCHKSY_AA_2STAGE +* End of ZCHKHE_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rk.f b/lapack-netlib/TESTING/LIN/zchkhe_rk.f index a1ade8f915..63697d33a1 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_rk.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE ZCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -493,7 +490,7 @@ SUBROUTINE ZCHKHE_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'ZHETRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that ZPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rook.f b/lapack-netlib/TESTING/LIN/zchkhe_rook.f index 470c012edf..84f5a84220 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE ZCHKHE_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhp.f b/lapack-netlib/TESTING/LIN/zchkhp.f index 08cfb10c8d..6525ed65e3 100644 --- a/lapack-netlib/TESTING/LIN/zchkhp.f +++ b/lapack-netlib/TESTING/LIN/zchkhp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE ZCHKHP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklq.f b/lapack-netlib/TESTING/LIN/zchklq.f index 2c7c6369b5..371bb946b9 100644 --- a/lapack-netlib/TESTING/LIN/zchklq.f +++ b/lapack-netlib/TESTING/LIN/zchklq.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKLQ tests ZGELQF, ZUNGLQ and CUNMLQ. +*> ZCHKLQ tests ZGELQF, ZUNGLQ and ZUNMLQ. *> \endverbatim * * Arguments: @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE ZCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklqt.f b/lapack-netlib/TESTING/LIN/zchklqt.f index 0d23e1e57e..680c1135e2 100644 --- a/lapack-netlib/TESTING/LIN/zchklqt.f +++ b/lapack-netlib/TESTING/LIN/zchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE ZCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklqtp.f b/lapack-netlib/TESTING/LIN/zchklqtp.f index 9b76d1df64..75e3ddfb1d 100644 --- a/lapack-netlib/TESTING/LIN/zchklqtp.f +++ b/lapack-netlib/TESTING/LIN/zchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE ZCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpb.f b/lapack-netlib/TESTING/LIN/zchkpb.f index c9fb433ea8..1ce8c3b88f 100644 --- a/lapack-netlib/TESTING/LIN/zchkpb.f +++ b/lapack-netlib/TESTING/LIN/zchkpb.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE ZCHKPB( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpo.f b/lapack-netlib/TESTING/LIN/zchkpo.f index 5468b7281d..93ea721633 100644 --- a/lapack-netlib/TESTING/LIN/zchkpo.f +++ b/lapack-netlib/TESTING/LIN/zchkpo.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -168,10 +166,9 @@ SUBROUTINE ZCHKPO( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpp.f b/lapack-netlib/TESTING/LIN/zchkpp.f index 53b43d0aa9..250b12359d 100644 --- a/lapack-netlib/TESTING/LIN/zchkpp.f +++ b/lapack-netlib/TESTING/LIN/zchkpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE ZCHKPP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkps.f b/lapack-netlib/TESTING/LIN/zchkps.f index 9acb28ead2..79fc951e22 100644 --- a/lapack-netlib/TESTING/LIN/zchkps.f +++ b/lapack-netlib/TESTING/LIN/zchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -154,10 +152,9 @@ SUBROUTINE ZCHKPS( DOTYPE, NN, NVAL, NNB, NBVAL, NRANK, RANKVAL, $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION THRESH diff --git a/lapack-netlib/TESTING/LIN/zchkpt.f b/lapack-netlib/TESTING/LIN/zchkpt.f index a4f8d8260d..80e1690a7e 100644 --- a/lapack-netlib/TESTING/LIN/zchkpt.f +++ b/lapack-netlib/TESTING/LIN/zchkpt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkq3.f b/lapack-netlib/TESTING/LIN/zchkq3.f index 63e3d64f38..33cd0fe15f 100644 --- a/lapack-netlib/TESTING/LIN/zchkq3.f +++ b/lapack-netlib/TESTING/LIN/zchkq3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ SUBROUTINE ZCHKQ3( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/zchkql.f b/lapack-netlib/TESTING/LIN/zchkql.f index 0ce0875491..0dbb345b06 100644 --- a/lapack-netlib/TESTING/LIN/zchkql.f +++ b/lapack-netlib/TESTING/LIN/zchkql.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKQL tests ZGEQLF, ZUNGQL and CUNMQL. +*> ZCHKQL tests ZGEQLF, ZUNGQL and ZUNMQL. *> \endverbatim * * Arguments: @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -196,10 +194,9 @@ SUBROUTINE ZCHKQL( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqr.f b/lapack-netlib/TESTING/LIN/zchkqr.f index 3c9763fe31..a240d2da5f 100644 --- a/lapack-netlib/TESTING/LIN/zchkqr.f +++ b/lapack-netlib/TESTING/LIN/zchkqr.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKQR tests ZGEQRF, ZUNGQR and CUNMQR. +*> ZCHKQR tests ZGEQRF, ZUNGQR and ZUNMQR. *> \endverbatim * * Arguments: @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE ZCHKQR( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqrt.f b/lapack-netlib/TESTING/LIN/zchkqrt.f index 61aad40f4f..cb07af72ce 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrt.f +++ b/lapack-netlib/TESTING/LIN/zchkqrt.f @@ -75,7 +75,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -102,10 +100,9 @@ SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqrtp.f b/lapack-netlib/TESTING/LIN/zchkqrtp.f index 123eea63d1..9337a68375 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/zchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkrfp.f b/lapack-netlib/TESTING/LIN/zchkrfp.f index ba5fd61663..1764f566e4 100644 --- a/lapack-netlib/TESTING/LIN/zchkrfp.f +++ b/lapack-netlib/TESTING/LIN/zchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== PROGRAM ZCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/zchkrq.f b/lapack-netlib/TESTING/LIN/zchkrq.f index ef3bf30442..32347c697c 100644 --- a/lapack-netlib/TESTING/LIN/zchkrq.f +++ b/lapack-netlib/TESTING/LIN/zchkrq.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKRQ tests ZGERQF, ZUNGRQ and CUNMRQ. +*> ZCHKRQ tests ZGERQF, ZUNGRQ and ZUNMRQ. *> \endverbatim * * Arguments: @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -201,10 +199,9 @@ SUBROUTINE ZCHKRQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksp.f b/lapack-netlib/TESTING/LIN/zchksp.f index 808e80eeed..fbfc45eeb7 100644 --- a/lapack-netlib/TESTING/LIN/zchksp.f +++ b/lapack-netlib/TESTING/LIN/zchksp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE ZCHKSP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksy.f b/lapack-netlib/TESTING/LIN/zchksy.f index d656ee2212..7877eb7e2d 100644 --- a/lapack-netlib/TESTING/LIN/zchksy.f +++ b/lapack-netlib/TESTING/LIN/zchksy.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE ZCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa.f b/lapack-netlib/TESTING/LIN/zchksy_aa.f index 186a5b39d8..9f53593d57 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/zchksy_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ SUBROUTINE ZCHKSY_AA( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f index 87fc47f71e..4c8ff94f78 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE ZCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchksy_rk.f b/lapack-netlib/TESTING/LIN/zchksy_rk.f index c72edc1335..3a206b30d8 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/zchksy_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE ZCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -505,7 +502,7 @@ SUBROUTINE ZCHKSY_RK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'ZSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that ZSYT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/zchksy_rook.f b/lapack-netlib/TESTING/LIN/zchksy_rook.f index d5e53121c6..dcb5b6edd1 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/zchksy_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE ZCHKSY_ROOK( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktb.f b/lapack-netlib/TESTING/LIN/zchktb.f index 5a08340293..e719786247 100644 --- a/lapack-netlib/TESTING/LIN/zchktb.f +++ b/lapack-netlib/TESTING/LIN/zchktb.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktp.f b/lapack-netlib/TESTING/LIN/zchktp.f index 9336e12ac0..1798c24e77 100644 --- a/lapack-netlib/TESTING/LIN/zchktp.f +++ b/lapack-netlib/TESTING/LIN/zchktp.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -151,10 +149,9 @@ SUBROUTINE ZCHKTP( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktr.f b/lapack-netlib/TESTING/LIN/zchktr.f index 57634d86aa..0a6f47b1ea 100644 --- a/lapack-netlib/TESTING/LIN/zchktr.f +++ b/lapack-netlib/TESTING/LIN/zchktr.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -163,10 +161,9 @@ SUBROUTINE ZCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktsqr.f b/lapack-netlib/TESTING/LIN/zchktsqr.f index 678b1772f7..ca7828f1ad 100644 --- a/lapack-netlib/TESTING/LIN/zchktsqr.f +++ b/lapack-netlib/TESTING/LIN/zchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of ZCHKQRT +* End of ZCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/zchktz.f b/lapack-netlib/TESTING/LIN/zchktz.f index fbdeabc922..754b2a33c3 100644 --- a/lapack-netlib/TESTING/LIN/zchktz.f +++ b/lapack-netlib/TESTING/LIN/zchktz.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkunhr_col.f b/lapack-netlib/TESTING/LIN/zchkunhr_col.f index 395ea178af..a6ec2f0f81 100644 --- a/lapack-netlib/TESTING/LIN/zchkunhr_col.f +++ b/lapack-netlib/TESTING/LIN/zchkunhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/zdrvab.f b/lapack-netlib/TESTING/LIN/zdrvab.f index 78d779c676..1305159593 100644 --- a/lapack-netlib/TESTING/LIN/zdrvab.f +++ b/lapack-netlib/TESTING/LIN/zdrvab.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -152,10 +150,9 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NMAX, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvac.f b/lapack-netlib/TESTING/LIN/zdrvac.f index 08f4c227f7..20f8eb1e55 100644 --- a/lapack-netlib/TESTING/LIN/zdrvac.f +++ b/lapack-netlib/TESTING/LIN/zdrvac.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -145,10 +143,9 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NMAX, NM, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvgb.f b/lapack-netlib/TESTING/LIN/zdrvgb.f index 6740a6fcfe..aa5712c3b5 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgb.f +++ b/lapack-netlib/TESTING/LIN/zdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL ZGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/zdrvgbx.f b/lapack-netlib/TESTING/LIN/zdrvgbx.f index 9ab2100b74..9bf3560f20 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/zdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -175,10 +173,9 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL ZGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -711,6 +709,7 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, $ WORK, LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -900,7 +899,8 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, CALL ZLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) ) + $ LDA, X, LDB, WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact solution. * @@ -1030,6 +1030,6 @@ SUBROUTINE ZDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, * RETURN * -* End of ZDRVGB +* End of ZDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvge.f b/lapack-netlib/TESTING/LIN/zdrvge.f index 1edad5e709..f6ef2d19c1 100644 --- a/lapack-netlib/TESTING/LIN/zdrvge.f +++ b/lapack-netlib/TESTING/LIN/zdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvgex.f b/lapack-netlib/TESTING/LIN/zdrvgex.f index 1b784d31b0..27d9105a32 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgex.f +++ b/lapack-netlib/TESTING/LIN/zdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -167,10 +165,9 @@ SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -892,6 +889,6 @@ SUBROUTINE ZDRVGE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of ZDRVGE +* End of ZDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvgt.f b/lapack-netlib/TESTING/LIN/zdrvgt.f index d260012e86..d055e4bdb2 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgt.f +++ b/lapack-netlib/TESTING/LIN/zdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe.f b/lapack-netlib/TESTING/LIN/zdrvhe.f index ba8f28fa9d..a4cc639b19 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f index 326627e8c1..34d8f2aaf1 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f index 655a8c788e..9401867e0c 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE ZDRVHE_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f index 355260aadd..2f34883d64 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ SUBROUTINE ZDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -415,7 +412,7 @@ SUBROUTINE ZDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL ZHETRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f index 70fed11dd2..59aed71be6 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVHE_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhex.f b/lapack-netlib/TESTING/LIN/zdrvhex.f index 527114508a..0f66d28e93 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhex.f +++ b/lapack-netlib/TESTING/LIN/zdrvhex.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -718,6 +715,6 @@ SUBROUTINE ZDRVHE( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of ZDRVHE +* End of ZDRVHEX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvhp.f b/lapack-netlib/TESTING/LIN/zdrvhp.f index 66bd765529..5c96c03e75 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhp.f +++ b/lapack-netlib/TESTING/LIN/zdrvhp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE ZDRVHP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvls.f b/lapack-netlib/TESTING/LIN/zdrvls.f index 1313c853b1..2eab979054 100644 --- a/lapack-netlib/TESTING/LIN/zdrvls.f +++ b/lapack-netlib/TESTING/LIN/zdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -192,10 +190,9 @@ SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpb.f b/lapack-netlib/TESTING/LIN/zdrvpb.f index 264796452a..a3eecb83ea 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpb.f +++ b/lapack-netlib/TESTING/LIN/zdrvpb.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE ZDRVPB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpo.f b/lapack-netlib/TESTING/LIN/zdrvpo.f index 1308a1f586..3cc691c5b4 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpo.f +++ b/lapack-netlib/TESTING/LIN/zdrvpo.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpox.f b/lapack-netlib/TESTING/LIN/zdrvpox.f index 0bc2c89d8b..d124059620 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpox.f +++ b/lapack-netlib/TESTING/LIN/zdrvpox.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -162,10 +160,9 @@ SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -734,6 +731,6 @@ SUBROUTINE ZDRVPO( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ G12.5 ) RETURN * -* End of ZDRVPO +* End of ZDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvpp.f b/lapack-netlib/TESTING/LIN/zdrvpp.f index 82901e3ecf..f63f7145dd 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpp.f +++ b/lapack-netlib/TESTING/LIN/zdrvpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ SUBROUTINE ZDRVPP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpt.f b/lapack-netlib/TESTING/LIN/zdrvpt.f index 5943c0637f..14a9f76ba0 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpt.f +++ b/lapack-netlib/TESTING/LIN/zdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvrf1.f b/lapack-netlib/TESTING/LIN/zdrvrf1.f index 6e468452ac..0e54815fbc 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf1.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrf2.f b/lapack-netlib/TESTING/LIN/zdrvrf2.f index 2e95ce7cb7..7f03e30ae3 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrf3.f b/lapack-netlib/TESTING/LIN/zdrvrf3.f index 8bb9f2b94e..7a44dba29f 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf3.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -259,8 +256,8 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, * Generate A our NA--by--NA triangular * matrix. * Our test is based on forward error so we -* do want A to be well conditionned! To get -* a well-conditionned triangular matrix, we +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/zdrvrf4.f b/lapack-netlib/TESTING/LIN/zdrvrf4.f index c264355a14..17c4a2d24d 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf4.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_ZLANGE ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrfp.f b/lapack-netlib/TESTING/LIN/zdrvrfp.f index b299a487b4..be6c13445b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/zdrvrfp.f @@ -232,8 +232,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -244,10 +242,9 @@ SUBROUTINE ZDRVRFP( NOUT, NN, NVAL, NNS, NSVAL, NNT, NTVAL, + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvsp.f b/lapack-netlib/TESTING/LIN/zdrvsp.f index 94dd6553c9..1b68711d74 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsp.f +++ b/lapack-netlib/TESTING/LIN/zdrvsp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE ZDRVSP( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy.f b/lapack-netlib/TESTING/LIN/zdrvsy.f index 5e0c60e239..0e5623794e 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f index ae4c8a5aa3..eaac75ed71 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f index d93e44542d..21497477cb 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -155,10 +153,9 @@ SUBROUTINE ZDRVSY_AA_2STAGE( $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f index 1cc983a2cd..a27e891eb6 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ SUBROUTINE ZDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -422,7 +419,7 @@ SUBROUTINE ZDRVSY_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL ZSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f index 11019bdf2d..eba5faa81b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsyx.f b/lapack-netlib/TESTING/LIN/zdrvsyx.f index e4556f1504..5d2d741c00 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/zdrvsyx.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -724,6 +721,6 @@ SUBROUTINE ZDRVSY( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, NMAX, $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of ZDRVSY +* End of ZDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/zebchvxx.f b/lapack-netlib/TESTING/LIN/zebchvxx.f index 8437685a59..b57ce88ecd 100644 --- a/lapack-netlib/TESTING/LIN/zebchvxx.f +++ b/lapack-netlib/TESTING/LIN/zebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -504,5 +502,7 @@ SUBROUTINE ZEBCHVXX( THRESH, PATH ) 8000 FORMAT( ' Z', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of ZEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/zerrab.f b/lapack-netlib/TESTING/LIN/zerrab.f index 1d345a412c..81bf019d9f 100644 --- a/lapack-netlib/TESTING/LIN/zerrab.f +++ b/lapack-netlib/TESTING/LIN/zerrab.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRAB( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrac.f b/lapack-netlib/TESTING/LIN/zerrac.f index 0ba2b0e061..1d32450aa0 100644 --- a/lapack-netlib/TESTING/LIN/zerrac.f +++ b/lapack-netlib/TESTING/LIN/zerrac.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRAC( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrge.f b/lapack-netlib/TESTING/LIN/zerrge.f index a106b3a364..6bf79f6467 100644 --- a/lapack-netlib/TESTING/LIN/zerrge.f +++ b/lapack-netlib/TESTING/LIN/zerrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrgex.f b/lapack-netlib/TESTING/LIN/zerrgex.f index 8c0a9f43df..b20f0ce74f 100644 --- a/lapack-netlib/TESTING/LIN/zerrgex.f +++ b/lapack-netlib/TESTING/LIN/zerrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -562,6 +559,6 @@ SUBROUTINE ZERRGE( PATH, NUNIT ) * RETURN * -* End of ZERRGE +* End of ZERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/zerrgt.f b/lapack-netlib/TESTING/LIN/zerrgt.f index 4a5ab934ed..bfb760e089 100644 --- a/lapack-netlib/TESTING/LIN/zerrgt.f +++ b/lapack-netlib/TESTING/LIN/zerrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrhe.f b/lapack-netlib/TESTING/LIN/zerrhe.f index 5b2f30bdfd..e49e5037c5 100644 --- a/lapack-netlib/TESTING/LIN/zerrhe.f +++ b/lapack-netlib/TESTING/LIN/zerrhe.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrhex.f b/lapack-netlib/TESTING/LIN/zerrhex.f index 938c283e23..b6e8b77ef3 100644 --- a/lapack-netlib/TESTING/LIN/zerrhex.f +++ b/lapack-netlib/TESTING/LIN/zerrhex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -612,6 +609,6 @@ SUBROUTINE ZERRHE( PATH, NUNIT ) * RETURN * -* End of ZERRHE +* End of ZERRHEX * END diff --git a/lapack-netlib/TESTING/LIN/zerrlq.f b/lapack-netlib/TESTING/LIN/zerrlq.f index 48d7aaa8e5..d8e5a8fe84 100644 --- a/lapack-netlib/TESTING/LIN/zerrlq.f +++ b/lapack-netlib/TESTING/LIN/zerrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrlqt.f b/lapack-netlib/TESTING/LIN/zerrlqt.f index 2ca3d71210..de237f7b30 100644 --- a/lapack-netlib/TESTING/LIN/zerrlqt.f +++ b/lapack-netlib/TESTING/LIN/zerrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrlqtp.f b/lapack-netlib/TESTING/LIN/zerrlqtp.f index f78a311f64..4fed018fbf 100644 --- a/lapack-netlib/TESTING/LIN/zerrlqtp.f +++ b/lapack-netlib/TESTING/LIN/zerrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ SUBROUTINE ZERRLQTP( PATH, NUNIT ) * RETURN * -* End of ZERRLQT +* End of ZERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/zerrls.f b/lapack-netlib/TESTING/LIN/zerrls.f index 2df87b66b7..66e56c8c6b 100644 --- a/lapack-netlib/TESTING/LIN/zerrls.f +++ b/lapack-netlib/TESTING/LIN/zerrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrpo.f b/lapack-netlib/TESTING/LIN/zerrpo.f index f53847a18b..802377dd59 100644 --- a/lapack-netlib/TESTING/LIN/zerrpo.f +++ b/lapack-netlib/TESTING/LIN/zerrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrpox.f b/lapack-netlib/TESTING/LIN/zerrpox.f index fbd9ff3911..2af8aeab96 100644 --- a/lapack-netlib/TESTING/LIN/zerrpox.f +++ b/lapack-netlib/TESTING/LIN/zerrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -534,6 +531,6 @@ SUBROUTINE ZERRPO( PATH, NUNIT ) * RETURN * -* End of ZERRPO +* End of ZERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/zerrps.f b/lapack-netlib/TESTING/LIN/zerrps.f index 5c10dd859a..86425c1920 100644 --- a/lapack-netlib/TESTING/LIN/zerrps.f +++ b/lapack-netlib/TESTING/LIN/zerrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrql.f b/lapack-netlib/TESTING/LIN/zerrql.f index 2c20dfa851..ebbbb8f644 100644 --- a/lapack-netlib/TESTING/LIN/zerrql.f +++ b/lapack-netlib/TESTING/LIN/zerrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqp.f b/lapack-netlib/TESTING/LIN/zerrqp.f index e63b65a9d4..5251d45229 100644 --- a/lapack-netlib/TESTING/LIN/zerrqp.f +++ b/lapack-netlib/TESTING/LIN/zerrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqr.f b/lapack-netlib/TESTING/LIN/zerrqr.f index 88e46b0d9d..114453d4c2 100644 --- a/lapack-netlib/TESTING/LIN/zerrqr.f +++ b/lapack-netlib/TESTING/LIN/zerrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQR( PATH, NUNIT ) * -* -- LAPACK test routine ((version 3.7.0) -- +* -- LAPACK test routine (-- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqrt.f b/lapack-netlib/TESTING/LIN/zerrqrt.f index 1f030ca059..64c20b08ee 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrt.f +++ b/lapack-netlib/TESTING/LIN/zerrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqrtp.f b/lapack-netlib/TESTING/LIN/zerrqrtp.f index 6370e04542..19d2a4ca15 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/zerrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ SUBROUTINE ZERRQRTP( PATH, NUNIT ) * RETURN * -* End of ZERRQRT +* End of ZERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/zerrrfp.f b/lapack-netlib/TESTING/LIN/zerrrfp.f index 0553c40797..e7916d50de 100644 --- a/lapack-netlib/TESTING/LIN/zerrrfp.f +++ b/lapack-netlib/TESTING/LIN/zerrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrrq.f b/lapack-netlib/TESTING/LIN/zerrrq.f index 36085c8b2a..e1af3729ce 100644 --- a/lapack-netlib/TESTING/LIN/zerrrq.f +++ b/lapack-netlib/TESTING/LIN/zerrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrsy.f b/lapack-netlib/TESTING/LIN/zerrsy.f index 642d748da7..a50f9d24e3 100644 --- a/lapack-netlib/TESTING/LIN/zerrsy.f +++ b/lapack-netlib/TESTING/LIN/zerrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrsyx.f b/lapack-netlib/TESTING/LIN/zerrsyx.f index 3152ba8e22..23d2a5a2ba 100644 --- a/lapack-netlib/TESTING/LIN/zerrsyx.f +++ b/lapack-netlib/TESTING/LIN/zerrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -611,6 +608,6 @@ SUBROUTINE ZERRSY( PATH, NUNIT ) * RETURN * -* End of ZERRSY +* End of ZERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/zerrtr.f b/lapack-netlib/TESTING/LIN/zerrtr.f index e81d96cd95..098040ace3 100644 --- a/lapack-netlib/TESTING/LIN/zerrtr.f +++ b/lapack-netlib/TESTING/LIN/zerrtr.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrtsqr.f b/lapack-netlib/TESTING/LIN/zerrtsqr.f index 526ea0812a..19f73fa7ab 100644 --- a/lapack-netlib/TESTING/LIN/zerrtsqr.f +++ b/lapack-netlib/TESTING/LIN/zerrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Zenver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. COMPLEX*16 A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) CALL ZGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'ZGEQR', INFOT, NOUT, LERR, OK ) * +* ZLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'ZLATSQR' + INFOT = 1 + CALL ZLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + CALL ZLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL ZLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL ZLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) +* * ZGEMQR * TAU(1)=1 @@ -192,6 +218,37 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) CALL ZGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'ZGELQ', INFOT, NOUT, LERR, OK ) * +* ZLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'ZLASWLQ' + INFOT = 1 + CALL ZLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + CALL ZLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + CALL ZLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL ZLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL ZLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) +* * ZGEMLQ * TAU(1)=1 @@ -238,6 +295,6 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) * RETURN * -* End of DERRTSQR +* End of ZERRTSQR * END diff --git a/lapack-netlib/TESTING/LIN/zerrtz.f b/lapack-netlib/TESTING/LIN/zerrtz.f index 5eb1cf2915..693ec0cb1a 100644 --- a/lapack-netlib/TESTING/LIN/zerrtz.f +++ b/lapack-netlib/TESTING/LIN/zerrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrunhr_col.f b/lapack-netlib/TESTING/LIN/zerrunhr_col.f index 4fb62734dc..6375d28343 100644 --- a/lapack-netlib/TESTING/LIN/zerrunhr_col.f +++ b/lapack-netlib/TESTING/LIN/zerrunhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> ZERRUNHR_COL tests the error exits for ZUNHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization ZLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRUNHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/zerrvx.f b/lapack-netlib/TESTING/LIN/zerrvx.f index 7759384e65..ea7823df3f 100644 --- a/lapack-netlib/TESTING/LIN/zerrvx.f +++ b/lapack-netlib/TESTING/LIN/zerrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrvxx.f b/lapack-netlib/TESTING/LIN/zerrvxx.f index bdaf44d8a3..8fd920fccf 100644 --- a/lapack-netlib/TESTING/LIN/zerrvxx.f +++ b/lapack-netlib/TESTING/LIN/zerrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1297,6 +1294,6 @@ SUBROUTINE ZERRVX( PATH, NUNIT ) * RETURN * -* End of ZERRVX +* End of ZERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/zgbt01.f b/lapack-netlib/TESTING/LIN/zgbt01.f index 2d3e8ed1dc..9219193713 100644 --- a/lapack-netlib/TESTING/LIN/zgbt01.f +++ b/lapack-netlib/TESTING/LIN/zgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/zgbt02.f b/lapack-netlib/TESTING/LIN/zgbt02.f index 41f589d853..6acdb00aab 100644 --- a/lapack-netlib/TESTING/LIN/zgbt02.f +++ b/lapack-netlib/TESTING/LIN/zgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,6 +17,7 @@ * DOUBLE PRECISION RESID * .. * .. Array Arguments .. +* DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -27,9 +28,10 @@ *> \verbatim *> *> ZGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -39,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +118,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,6 +156,7 @@ SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, DOUBLE PRECISION RESID * .. * .. Array Arguments .. + DOUBLE PRECISION RWORK( * ) COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -163,18 +170,25 @@ SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - DOUBLE PRECISION ANORM, BNORM, EPS, XNORM + DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM + COMPLEX*16 ZDUM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL DISNAN, LSAME DOUBLE PRECISION DLAMCH, DZASUM - EXTERNAL LSAME, DLAMCH, DZASUM + EXTERNAL DISNAN, DLAMCH, DZASUM, LSAME * .. * .. External Subroutines .. EXTERNAL ZGBMV * .. +* .. Statement Functions .. + DOUBLE PRECISION CABS1 +* .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, DBLE, DIMAG, MAX, MIN +* .. +* .. Statement Function definitions .. + CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) ) * .. * .. Executable Statements .. * @@ -188,13 +202,38 @@ SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, DZASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = DZASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -206,7 +245,7 @@ SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL ZGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1, @@ -214,7 +253,7 @@ SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgbt05.f b/lapack-netlib/TESTING/LIN/zgbt05.f index 87a1bdda6e..0fe29c3852 100644 --- a/lapack-netlib/TESTING/LIN/zgbt05.f +++ b/lapack-netlib/TESTING/LIN/zgbt05.f @@ -30,7 +30,7 @@ *> ZGBT05 tests the error bounds from iterative refinement for the *> computed solution to a system of equations op(A)*X = B, where A is a *> general band matrix of order n with kl subdiagonals and ku -*> superdiagonals and op(A) = A or A**T, depending on TRANS. +*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS. *> *> RESLTS(1) = test of the error bound *> = norm(X - XACT) / ( norm(X) * FERR ) @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zgelqs.f b/lapack-netlib/TESTING/LIN/zgelqs.f index 7545d015e4..5f629f8c7e 100644 --- a/lapack-netlib/TESTING/LIN/zgelqs.f +++ b/lapack-netlib/TESTING/LIN/zgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgennd.f b/lapack-netlib/TESTING/LIN/zgennd.f index 250835364b..48c9ad7269 100644 --- a/lapack-netlib/TESTING/LIN/zgennd.f +++ b/lapack-netlib/TESTING/LIN/zgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== LOGICAL FUNCTION ZGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/zgeqls.f b/lapack-netlib/TESTING/LIN/zgeqls.f index b668fac5dd..ee3ec4938a 100644 --- a/lapack-netlib/TESTING/LIN/zgeqls.f +++ b/lapack-netlib/TESTING/LIN/zgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgeqrs.f b/lapack-netlib/TESTING/LIN/zgeqrs.f index f0d020817c..6583e38591 100644 --- a/lapack-netlib/TESTING/LIN/zgeqrs.f +++ b/lapack-netlib/TESTING/LIN/zgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgerqs.f b/lapack-netlib/TESTING/LIN/zgerqs.f index d94a7a3dc6..ca9f527f0a 100644 --- a/lapack-netlib/TESTING/LIN/zgerqs.f +++ b/lapack-netlib/TESTING/LIN/zgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget01.f b/lapack-netlib/TESTING/LIN/zget01.f index fc21b3bfa6..e462298681 100644 --- a/lapack-netlib/TESTING/LIN/zget01.f +++ b/lapack-netlib/TESTING/LIN/zget01.f @@ -100,18 +100,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/zget02.f b/lapack-netlib/TESTING/LIN/zget02.f index 764620a39a..6ad1392c62 100644 --- a/lapack-netlib/TESTING/LIN/zget02.f +++ b/lapack-netlib/TESTING/LIN/zget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> ZGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +96,7 @@ *> B is COMPLEX*16 array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +115,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget03.f b/lapack-netlib/TESTING/LIN/zget03.f index cb05ec4425..74121aabc3 100644 --- a/lapack-netlib/TESTING/LIN/zget03.f +++ b/lapack-netlib/TESTING/LIN/zget03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/zget04.f b/lapack-netlib/TESTING/LIN/zget04.f index fe39a8351d..fa0d23899e 100644 --- a/lapack-netlib/TESTING/LIN/zget04.f +++ b/lapack-netlib/TESTING/LIN/zget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget07.f b/lapack-netlib/TESTING/LIN/zget07.f index d9a06a8d8f..dc78e0bb60 100644 --- a/lapack-netlib/TESTING/LIN/zget07.f +++ b/lapack-netlib/TESTING/LIN/zget07.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zget08.f b/lapack-netlib/TESTING/LIN/zget08.f index 7d40ecfcca..32291170c1 100644 --- a/lapack-netlib/TESTING/LIN/zget08.f +++ b/lapack-netlib/TESTING/LIN/zget08.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -226,6 +223,6 @@ SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, * RETURN * -* End of ZGET02 +* End of ZGET08 * END diff --git a/lapack-netlib/TESTING/LIN/zgtt01.f b/lapack-netlib/TESTING/LIN/zgtt01.f index c58c99d021..c63fdbc25d 100644 --- a/lapack-netlib/TESTING/LIN/zgtt01.f +++ b/lapack-netlib/TESTING/LIN/zgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/zgtt02.f b/lapack-netlib/TESTING/LIN/zgtt02.f index acdd5b2936..7362967beb 100644 --- a/lapack-netlib/TESTING/LIN/zgtt02.f +++ b/lapack-netlib/TESTING/LIN/zgtt02.f @@ -29,7 +29,7 @@ *> *> ZGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. *> \endverbatim * @@ -105,7 +105,7 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +166,7 @@ SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGT( '1', N, DL, D, DU ) @@ -185,7 +182,7 @@ SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL ZLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/zgtt05.f b/lapack-netlib/TESTING/LIN/zgtt05.f index 2dbf5f016b..fc8b2f8d62 100644 --- a/lapack-netlib/TESTING/LIN/zgtt05.f +++ b/lapack-netlib/TESTING/LIN/zgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zhet01.f b/lapack-netlib/TESTING/LIN/zhet01.f index b8ec93ac9a..b532964693 100644 --- a/lapack-netlib/TESTING/LIN/zhet01.f +++ b/lapack-netlib/TESTING/LIN/zhet01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_3.f b/lapack-netlib/TESTING/LIN/zhet01_3.f index ba99550454..0a76404d66 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_3.f +++ b/lapack-netlib/TESTING/LIN/zhet01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_aa.f b/lapack-netlib/TESTING/LIN/zhet01_aa.f index fc9feb86c2..de6a7475ce 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_aa.f +++ b/lapack-netlib/TESTING/LIN/zhet01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_rook.f b/lapack-netlib/TESTING/LIN/zhet01_rook.f index 8474c25774..88ccf4c1f4 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_rook.f +++ b/lapack-netlib/TESTING/LIN/zhet01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhpt01.f b/lapack-netlib/TESTING/LIN/zhpt01.f index dff63463a2..5ac14fdcfe 100644 --- a/lapack-netlib/TESTING/LIN/zhpt01.f +++ b/lapack-netlib/TESTING/LIN/zhpt01.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlahilb.f b/lapack-netlib/TESTING/LIN/zlahilb.f index ba83af8259..ffd98b4f8d 100644 --- a/lapack-netlib/TESTING/LIN/zlahilb.f +++ b/lapack-netlib/TESTING/LIN/zlahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/zlaipd.f b/lapack-netlib/TESTING/LIN/zlaipd.f index 5975ccf14a..2e70cdf480 100644 --- a/lapack-netlib/TESTING/LIN/zlaipd.f +++ b/lapack-netlib/TESTING/LIN/zlaipd.f @@ -76,17 +76,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INDA, N, VINDA diff --git a/lapack-netlib/TESTING/LIN/zlaptm.f b/lapack-netlib/TESTING/LIN/zlaptm.f index 6d78a6d6cc..818284bb0d 100644 --- a/lapack-netlib/TESTING/LIN/zlaptm.f +++ b/lapack-netlib/TESTING/LIN/zlaptm.f @@ -121,18 +121,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlarhs.f b/lapack-netlib/TESTING/LIN/zlarhs.f index 9d14528401..f1a18c42ff 100644 --- a/lapack-netlib/TESTING/LIN/zlarhs.f +++ b/lapack-netlib/TESTING/LIN/zlarhs.f @@ -30,8 +30,7 @@ *> ZLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/zlatb4.f b/lapack-netlib/TESTING/LIN/zlatb4.f index 15fab3e1d5..a6977f4e9c 100644 --- a/lapack-netlib/TESTING/LIN/zlatb4.f +++ b/lapack-netlib/TESTING/LIN/zlatb4.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/zlatb5.f b/lapack-netlib/TESTING/LIN/zlatb5.f index 2ccca75a86..446d05995f 100644 --- a/lapack-netlib/TESTING/LIN/zlatb5.f +++ b/lapack-netlib/TESTING/LIN/zlatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/zlatsp.f b/lapack-netlib/TESTING/LIN/zlatsp.f index e7e4c1c916..e105062959 100644 --- a/lapack-netlib/TESTING/LIN/zlatsp.f +++ b/lapack-netlib/TESTING/LIN/zlatsp.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlatsy.f b/lapack-netlib/TESTING/LIN/zlatsy.f index 66b2b4fc40..d79c55227e 100644 --- a/lapack-netlib/TESTING/LIN/zlatsy.f +++ b/lapack-netlib/TESTING/LIN/zlatsy.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattb.f b/lapack-netlib/TESTING/LIN/zlattb.f index 5c81763566..62b4bfa981 100644 --- a/lapack-netlib/TESTING/LIN/zlattb.f +++ b/lapack-netlib/TESTING/LIN/zlattb.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattp.f b/lapack-netlib/TESTING/LIN/zlattp.f index ef85a280bd..b728852b5a 100644 --- a/lapack-netlib/TESTING/LIN/zlattp.f +++ b/lapack-netlib/TESTING/LIN/zlattp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattr.f b/lapack-netlib/TESTING/LIN/zlattr.f index 360aa816b6..0b3857f02c 100644 --- a/lapack-netlib/TESTING/LIN/zlattr.f +++ b/lapack-netlib/TESTING/LIN/zlattr.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhe.f b/lapack-netlib/TESTING/LIN/zlavhe.f index bf58d7d744..90806f613a 100644 --- a/lapack-netlib/TESTING/LIN/zlavhe.f +++ b/lapack-netlib/TESTING/LIN/zlavhe.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhe_rook.f b/lapack-netlib/TESTING/LIN/zlavhe_rook.f index b8e708f506..7a7e3686c7 100644 --- a/lapack-netlib/TESTING/LIN/zlavhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zlavhe_rook.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhp.f b/lapack-netlib/TESTING/LIN/zlavhp.f index 08c2b4759b..9d0afefd04 100644 --- a/lapack-netlib/TESTING/LIN/zlavhp.f +++ b/lapack-netlib/TESTING/LIN/zlavhp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsp.f b/lapack-netlib/TESTING/LIN/zlavsp.f index a248d01d9c..eb296cb952 100644 --- a/lapack-netlib/TESTING/LIN/zlavsp.f +++ b/lapack-netlib/TESTING/LIN/zlavsp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsy.f b/lapack-netlib/TESTING/LIN/zlavsy.f index 2f8ecd88f7..b97148f9f8 100644 --- a/lapack-netlib/TESTING/LIN/zlavsy.f +++ b/lapack-netlib/TESTING/LIN/zlavsy.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsy_rook.f b/lapack-netlib/TESTING/LIN/zlavsy_rook.f index ed62f8f17f..942d0f0233 100644 --- a/lapack-netlib/TESTING/LIN/zlavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/zlavsy_rook.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlqt01.f b/lapack-netlib/TESTING/LIN/zlqt01.f index 492c71c1f0..c2a7f82ce8 100644 --- a/lapack-netlib/TESTING/LIN/zlqt01.f +++ b/lapack-netlib/TESTING/LIN/zlqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt02.f b/lapack-netlib/TESTING/LIN/zlqt02.f index 9a1f35d68d..c55d76ccdb 100644 --- a/lapack-netlib/TESTING/LIN/zlqt02.f +++ b/lapack-netlib/TESTING/LIN/zlqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt03.f b/lapack-netlib/TESTING/LIN/zlqt03.f index bff040e760..0765b3cd6f 100644 --- a/lapack-netlib/TESTING/LIN/zlqt03.f +++ b/lapack-netlib/TESTING/LIN/zlqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt04.f b/lapack-netlib/TESTING/LIN/zlqt04.f index 550432817a..2e7a0e8ee3 100644 --- a/lapack-netlib/TESTING/LIN/zlqt04.f +++ b/lapack-netlib/TESTING/LIN/zlqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB diff --git a/lapack-netlib/TESTING/LIN/zlqt05.f b/lapack-netlib/TESTING/LIN/zlqt05.f index 1b8fd1449a..a795a50d1b 100644 --- a/lapack-netlib/TESTING/LIN/zlqt05.f +++ b/lapack-netlib/TESTING/LIN/zlqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zpbt01.f b/lapack-netlib/TESTING/LIN/zpbt01.f index 25783e8073..fb7881ac7e 100644 --- a/lapack-netlib/TESTING/LIN/zpbt01.f +++ b/lapack-netlib/TESTING/LIN/zpbt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpbt02.f b/lapack-netlib/TESTING/LIN/zpbt02.f index a8c1f383a8..e4f8329963 100644 --- a/lapack-netlib/TESTING/LIN/zpbt02.f +++ b/lapack-netlib/TESTING/LIN/zpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpbt05.f b/lapack-netlib/TESTING/LIN/zpbt05.f index 489bdff502..03376e0cec 100644 --- a/lapack-netlib/TESTING/LIN/zpbt05.f +++ b/lapack-netlib/TESTING/LIN/zpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot01.f b/lapack-netlib/TESTING/LIN/zpot01.f index 946c494387..d71445cd42 100644 --- a/lapack-netlib/TESTING/LIN/zpot01.f +++ b/lapack-netlib/TESTING/LIN/zpot01.f @@ -67,10 +67,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is COMPLEX*16 array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**H or U**H * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**H - A (or U**H * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -87,8 +87,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -172,7 +169,7 @@ SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) END IF 10 CONTINUE * -* Compute the product U'*U, overwriting U. +* Compute the product U**H * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 20 K = N, 1, -1 @@ -189,7 +186,7 @@ SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * 20 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**H, overwriting L. * ELSE DO 30 K = N, 1, -1 @@ -209,7 +206,7 @@ SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) 30 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**H - A (or U**H * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 50 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/zpot02.f b/lapack-netlib/TESTING/LIN/zpot02.f index 61cc94db22..17b6904001 100644 --- a/lapack-netlib/TESTING/LIN/zpot02.f +++ b/lapack-netlib/TESTING/LIN/zpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot03.f b/lapack-netlib/TESTING/LIN/zpot03.f index 5978d2ea2d..f3cbd11410 100644 --- a/lapack-netlib/TESTING/LIN/zpot03.f +++ b/lapack-netlib/TESTING/LIN/zpot03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot05.f b/lapack-netlib/TESTING/LIN/zpot05.f index 9c29990eaf..35239083ab 100644 --- a/lapack-netlib/TESTING/LIN/zpot05.f +++ b/lapack-netlib/TESTING/LIN/zpot05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot06.f b/lapack-netlib/TESTING/LIN/zpot06.f index c773cd4c39..c97f432344 100644 --- a/lapack-netlib/TESTING/LIN/zpot06.f +++ b/lapack-netlib/TESTING/LIN/zpot06.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt01.f b/lapack-netlib/TESTING/LIN/zppt01.f index 74c6d5116b..78ec595af4 100644 --- a/lapack-netlib/TESTING/LIN/zppt01.f +++ b/lapack-netlib/TESTING/LIN/zppt01.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt02.f b/lapack-netlib/TESTING/LIN/zppt02.f index 1b8b841598..40b71c9693 100644 --- a/lapack-netlib/TESTING/LIN/zppt02.f +++ b/lapack-netlib/TESTING/LIN/zppt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt03.f b/lapack-netlib/TESTING/LIN/zppt03.f index 94801d8f1e..52c2590faf 100644 --- a/lapack-netlib/TESTING/LIN/zppt03.f +++ b/lapack-netlib/TESTING/LIN/zppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt05.f b/lapack-netlib/TESTING/LIN/zppt05.f index 5ce08570bf..ccde4a2372 100644 --- a/lapack-netlib/TESTING/LIN/zppt05.f +++ b/lapack-netlib/TESTING/LIN/zppt05.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpst01.f b/lapack-netlib/TESTING/LIN/zpst01.f index 3225b0ec2d..6918572197 100644 --- a/lapack-netlib/TESTING/LIN/zpst01.f +++ b/lapack-netlib/TESTING/LIN/zpst01.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RESID diff --git a/lapack-netlib/TESTING/LIN/zptt01.f b/lapack-netlib/TESTING/LIN/zptt01.f index c9244a6cfc..e842c7e46f 100644 --- a/lapack-netlib/TESTING/LIN/zptt01.f +++ b/lapack-netlib/TESTING/LIN/zptt01.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/zptt02.f b/lapack-netlib/TESTING/LIN/zptt02.f index 90dec3bc9d..6e3a8aed09 100644 --- a/lapack-netlib/TESTING/LIN/zptt02.f +++ b/lapack-netlib/TESTING/LIN/zptt02.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zptt05.f b/lapack-netlib/TESTING/LIN/zptt05.f index f7f2bd2842..82d497e0e6 100644 --- a/lapack-netlib/TESTING/LIN/zptt05.f +++ b/lapack-netlib/TESTING/LIN/zptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zqlt01.f b/lapack-netlib/TESTING/LIN/zqlt01.f index 5442fcae80..d5eef9ff4f 100644 --- a/lapack-netlib/TESTING/LIN/zqlt01.f +++ b/lapack-netlib/TESTING/LIN/zqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqlt02.f b/lapack-netlib/TESTING/LIN/zqlt02.f index 35adae9307..1f84cfa5a2 100644 --- a/lapack-netlib/TESTING/LIN/zqlt02.f +++ b/lapack-netlib/TESTING/LIN/zqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqlt03.f b/lapack-netlib/TESTING/LIN/zqlt03.f index 6489fa924c..a7d9b27ca4 100644 --- a/lapack-netlib/TESTING/LIN/zqlt03.f +++ b/lapack-netlib/TESTING/LIN/zqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqpt01.f b/lapack-netlib/TESTING/LIN/zqpt01.f index eea178a2e7..4e53f92c84 100644 --- a/lapack-netlib/TESTING/LIN/zqpt01.f +++ b/lapack-netlib/TESTING/LIN/zqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt01.f b/lapack-netlib/TESTING/LIN/zqrt01.f index 4c55daf9d4..4aa0aa59fd 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01.f +++ b/lapack-netlib/TESTING/LIN/zqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt01p.f b/lapack-netlib/TESTING/LIN/zqrt01p.f index 676db6f271..eb991152ca 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01p.f +++ b/lapack-netlib/TESTING/LIN/zqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt02.f b/lapack-netlib/TESTING/LIN/zqrt02.f index 9ca1e66cf0..2dbefaf84e 100644 --- a/lapack-netlib/TESTING/LIN/zqrt02.f +++ b/lapack-netlib/TESTING/LIN/zqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt03.f b/lapack-netlib/TESTING/LIN/zqrt03.f index d809399bbc..56b2e3b505 100644 --- a/lapack-netlib/TESTING/LIN/zqrt03.f +++ b/lapack-netlib/TESTING/LIN/zqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt04.f b/lapack-netlib/TESTING/LIN/zqrt04.f index 580f86a6fc..3ca7199cec 100644 --- a/lapack-netlib/TESTING/LIN/zqrt04.f +++ b/lapack-netlib/TESTING/LIN/zqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zqrt05.f b/lapack-netlib/TESTING/LIN/zqrt05.f index 1985ea5065..5677b7e76b 100644 --- a/lapack-netlib/TESTING/LIN/zqrt05.f +++ b/lapack-netlib/TESTING/LIN/zqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zqrt11.f b/lapack-netlib/TESTING/LIN/zqrt11.f index c633df2f69..c3be59c365 100644 --- a/lapack-netlib/TESTING/LIN/zqrt11.f +++ b/lapack-netlib/TESTING/LIN/zqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/zqrt12.f b/lapack-netlib/TESTING/LIN/zqrt12.f index 5428adbf30..0da6be1576 100644 --- a/lapack-netlib/TESTING/LIN/zqrt12.f +++ b/lapack-netlib/TESTING/LIN/zqrt12.f @@ -89,18 +89,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt13.f b/lapack-netlib/TESTING/LIN/zqrt13.f index 4e693c14e3..341ec17000 100644 --- a/lapack-netlib/TESTING/LIN/zqrt13.f +++ b/lapack-netlib/TESTING/LIN/zqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/zqrt14.f b/lapack-netlib/TESTING/LIN/zqrt14.f index 369efc07de..80c8ac56f1 100644 --- a/lapack-netlib/TESTING/LIN/zqrt14.f +++ b/lapack-netlib/TESTING/LIN/zqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, IF( XNRM.NE.ZERO ) $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = ZLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/zqrt15.f b/lapack-netlib/TESTING/LIN/zqrt15.f index 0d17313e8f..f58b9e38bc 100644 --- a/lapack-netlib/TESTING/LIN/zqrt15.f +++ b/lapack-netlib/TESTING/LIN/zqrt15.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/zqrt16.f b/lapack-netlib/TESTING/LIN/zqrt16.f index e62e9a51d3..9becd6d3b0 100644 --- a/lapack-netlib/TESTING/LIN/zqrt16.f +++ b/lapack-netlib/TESTING/LIN/zqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zqrt17.f b/lapack-netlib/TESTING/LIN/zqrt17.f index ff694c7a18..9a0770c626 100644 --- a/lapack-netlib/TESTING/LIN/zqrt17.f +++ b/lapack-netlib/TESTING/LIN/zqrt17.f @@ -28,12 +28,15 @@ *> *> ZQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'C': Conjugate transpose, op(A) = A'. +*> = 'C': Conjugate transpose, op(A) = A**H. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) @@ -213,7 +213,6 @@ DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, * NORMA = ZLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, $ INFO ) END IF * -* compute R'*A +* compute R**H * op(A) * CALL ZGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS, $ DCMPLX( ONE ), C, LDB, A, LDA, DCMPLX( ZERO ), WORK, diff --git a/lapack-netlib/TESTING/LIN/zrqt01.f b/lapack-netlib/TESTING/LIN/zrqt01.f index 88075ed5e1..2f60426f5a 100644 --- a/lapack-netlib/TESTING/LIN/zrqt01.f +++ b/lapack-netlib/TESTING/LIN/zrqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrqt02.f b/lapack-netlib/TESTING/LIN/zrqt02.f index ed1b608b2b..548321d000 100644 --- a/lapack-netlib/TESTING/LIN/zrqt02.f +++ b/lapack-netlib/TESTING/LIN/zrqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrqt03.f b/lapack-netlib/TESTING/LIN/zrqt03.f index fc7046278b..6393224bfc 100644 --- a/lapack-netlib/TESTING/LIN/zrqt03.f +++ b/lapack-netlib/TESTING/LIN/zrqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrzt01.f b/lapack-netlib/TESTING/LIN/zrzt01.f index 8763840692..2eba7ba6f3 100644 --- a/lapack-netlib/TESTING/LIN/zrzt01.f +++ b/lapack-netlib/TESTING/LIN/zrzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrzt02.f b/lapack-netlib/TESTING/LIN/zrzt02.f index 373ced982d..0ea6dab024 100644 --- a/lapack-netlib/TESTING/LIN/zrzt02.f +++ b/lapack-netlib/TESTING/LIN/zrzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zsbmv.f b/lapack-netlib/TESTING/LIN/zsbmv.f index 005e288e09..9272052626 100644 --- a/lapack-netlib/TESTING/LIN/zsbmv.f +++ b/lapack-netlib/TESTING/LIN/zsbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt01.f b/lapack-netlib/TESTING/LIN/zspt01.f index d212929ad9..6269ef790e 100644 --- a/lapack-netlib/TESTING/LIN/zspt01.f +++ b/lapack-netlib/TESTING/LIN/zspt01.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt02.f b/lapack-netlib/TESTING/LIN/zspt02.f index 985fda0c57..e34ce22c22 100644 --- a/lapack-netlib/TESTING/LIN/zspt02.f +++ b/lapack-netlib/TESTING/LIN/zspt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt03.f b/lapack-netlib/TESTING/LIN/zspt03.f index d37ce53861..2819b930ba 100644 --- a/lapack-netlib/TESTING/LIN/zspt03.f +++ b/lapack-netlib/TESTING/LIN/zspt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01.f b/lapack-netlib/TESTING/LIN/zsyt01.f index 4ec551180c..32b7a698cc 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01.f +++ b/lapack-netlib/TESTING/LIN/zsyt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01_3.f b/lapack-netlib/TESTING/LIN/zsyt01_3.f index 8106a61b0b..202488db98 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_3.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01_aa.f b/lapack-netlib/TESTING/LIN/zsyt01_aa.f index 11d2e2fb53..17969d444f 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @generated from LIN/dsyt01_aa.f, fortran d -> z, Thu Nov 17 13:01:50 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -260,6 +255,6 @@ SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, * RETURN * -* End of ZSYT01 +* End of ZSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/zsyt01_rook.f b/lapack-netlib/TESTING/LIN/zsyt01_rook.f index 4e7ea24aa5..885bebc021 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt02.f b/lapack-netlib/TESTING/LIN/zsyt02.f index 6f7d2498fc..5792a3ba8e 100644 --- a/lapack-netlib/TESTING/LIN/zsyt02.f +++ b/lapack-netlib/TESTING/LIN/zsyt02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt03.f b/lapack-netlib/TESTING/LIN/zsyt03.f index f63f016457..74efd913f0 100644 --- a/lapack-netlib/TESTING/LIN/zsyt03.f +++ b/lapack-netlib/TESTING/LIN/zsyt03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt02.f b/lapack-netlib/TESTING/LIN/ztbt02.f index a86923321b..20917d9f7e 100644 --- a/lapack-netlib/TESTING/LIN/ztbt02.f +++ b/lapack-netlib/TESTING/LIN/ztbt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> ZTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b when A is a triangular band matrix. Here A**T denotes -*> the transpose of A, A**H denotes the conjugate transpose of A, and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -153,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -207,7 +202,7 @@ SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK ) diff --git a/lapack-netlib/TESTING/LIN/ztbt03.f b/lapack-netlib/TESTING/LIN/ztbt03.f index e33bff71cd..d00cf82238 100644 --- a/lapack-netlib/TESTING/LIN/ztbt03.f +++ b/lapack-netlib/TESTING/LIN/ztbt03.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ SUBROUTINE ZTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt05.f b/lapack-netlib/TESTING/LIN/ztbt05.f index 1adeafdd44..10863ff1c2 100644 --- a/lapack-netlib/TESTING/LIN/ztbt05.f +++ b/lapack-netlib/TESTING/LIN/ztbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt06.f b/lapack-netlib/TESTING/LIN/ztbt06.f index 8c59151f9d..b033a5db3d 100644 --- a/lapack-netlib/TESTING/LIN/ztbt06.f +++ b/lapack-netlib/TESTING/LIN/ztbt06.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt01.f b/lapack-netlib/TESTING/LIN/ztpt01.f index 39a3922bbb..3da15f7f3d 100644 --- a/lapack-netlib/TESTING/LIN/ztpt01.f +++ b/lapack-netlib/TESTING/LIN/ztpt01.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt02.f b/lapack-netlib/TESTING/LIN/ztpt02.f index 31dec79771..d6b9dabafa 100644 --- a/lapack-netlib/TESTING/LIN/ztpt02.f +++ b/lapack-netlib/TESTING/LIN/ztpt02.f @@ -28,14 +28,12 @@ *> \verbatim *> *> ZTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b, when the triangular matrix A is stored in packed format. -*> Here A**T denotes the transpose of A, A**H denotes the conjugate -*> transpose of A, and x and b are N by NRHS matrices. The test ratio -*> is the maximum over the number of right hand sides of -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -130,7 +128,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -141,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -194,7 +189,7 @@ SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTP( '1', UPLO, DIAG, N, AP, RWORK ) @@ -211,7 +206,7 @@ SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ztpt03.f b/lapack-netlib/TESTING/LIN/ztpt03.f index fb8c814e15..802e1a611b 100644 --- a/lapack-netlib/TESTING/LIN/ztpt03.f +++ b/lapack-netlib/TESTING/LIN/ztpt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt05.f b/lapack-netlib/TESTING/LIN/ztpt05.f index aa2348ae61..2ca7c38744 100644 --- a/lapack-netlib/TESTING/LIN/ztpt05.f +++ b/lapack-netlib/TESTING/LIN/ztpt05.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt06.f b/lapack-netlib/TESTING/LIN/ztpt06.f index 30edfca71d..5ab661626c 100644 --- a/lapack-netlib/TESTING/LIN/ztpt06.f +++ b/lapack-netlib/TESTING/LIN/ztpt06.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt01.f b/lapack-netlib/TESTING/LIN/ztrt01.f index 99aa9db49c..ddb212b02f 100644 --- a/lapack-netlib/TESTING/LIN/ztrt01.f +++ b/lapack-netlib/TESTING/LIN/ztrt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt02.f b/lapack-netlib/TESTING/LIN/ztrt02.f index 63e12c55a2..69f04c9dbc 100644 --- a/lapack-netlib/TESTING/LIN/ztrt02.f +++ b/lapack-netlib/TESTING/LIN/ztrt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> ZTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, -*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose -*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS -*> matrices. The test ratio is the maximum over the number of right -*> hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -138,7 +136,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -149,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -203,7 +198,7 @@ SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK ) @@ -220,7 +215,7 @@ SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ztrt03.f b/lapack-netlib/TESTING/LIN/ztrt03.f index 84aaf65eae..a37887f7e3 100644 --- a/lapack-netlib/TESTING/LIN/ztrt03.f +++ b/lapack-netlib/TESTING/LIN/ztrt03.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt05.f b/lapack-netlib/TESTING/LIN/ztrt05.f index f31d614dc7..63ba27b9aa 100644 --- a/lapack-netlib/TESTING/LIN/ztrt05.f +++ b/lapack-netlib/TESTING/LIN/ztrt05.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt06.f b/lapack-netlib/TESTING/LIN/ztrt06.f index 2f5f5996bb..ed55905dad 100644 --- a/lapack-netlib/TESTING/LIN/ztrt06.f +++ b/lapack-netlib/TESTING/LIN/ztrt06.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztsqr01.f b/lapack-netlib/TESTING/LIN/ztsqr01.f index 81d7fdb44c..629da2996d 100644 --- a/lapack-netlib/TESTING/LIN/ztsqr01.f +++ b/lapack-netlib/TESTING/LIN/ztsqr01.f @@ -77,16 +77,13 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* * ===================================================================== SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile index 351757d282..62a215b58f 100644 --- a/lapack-netlib/TESTING/MATGEN/Makefile +++ b/lapack-netlib/TESTING/MATGEN/Makefile @@ -40,40 +40,27 @@ ifneq ($(C_LAPACK), 1) $(FC) $(FFLAGS) -c -o $@ $< endif -ifneq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" "" SCATGEN = slatm1.o slatm7.o slaran.o slarnd.o -endif -ifeq ($(BUILD_SINGLE),1) SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \ slagge.o slagsy.o slakf2.o slarge.o slaror.o slarot.o slatm2.o \ slatm3.o slatm5.o slatm6.o slahilb.o -endif -ifeq ($(BUILD_COMPLEX),1) CMATGEN = clatms.o clatme.o clatmr.o clatmt.o \ clagge.o claghe.o clagsy.o clakf2.o clarge.o claror.o clarot.o \ clatm1.o clarnd.o clatm2.o clatm3.o clatm5.o clatm6.o clahilb.o -endif -ifneq "$(or $(BUILD_DOUBLE),$(BUILD_COMPLEX16))" "" DZATGEN = dlatm1.o dlatm7.o dlaran.o dlarnd.o -endif -ifeq ($(BUILD_DOUBLE),1) DMATGEN = dlatms.o dlatme.o dlatmr.o dlatmt.o \ dlagge.o dlagsy.o dlakf2.o dlarge.o dlaror.o dlarot.o dlatm2.o \ dlatm3.o dlatm5.o dlatm6.o dlahilb.o -endif -ifeq ($(BUILD_COMPLEX16),1) ZMATGEN = zlatms.o zlatme.o zlatmr.o zlatmt.o \ zlagge.o zlaghe.o zlagsy.o zlakf2.o zlarge.o zlaror.o zlarot.o \ zlatm1.o zlarnd.o zlatm2.o zlatm3.o zlatm5.o zlatm6.o zlahilb.o -endif .PHONY: all -.NOTPARALLEL: all: $(TMGLIB) ALLOBJ = $(SMATGEN) $(CMATGEN) $(SCATGEN) $(DMATGEN) $(ZMATGEN) \ @@ -100,6 +87,7 @@ complex16: $(ZMATGEN) $(DZATGEN) $(AR) $(ARFLAGS) $(TMGLIB) $^ $(RANLIB) $(TMGLIB) +ifdef FRC $(SCATGEN): $(FRC) $(SMATGEN): $(FRC) $(CMATGEN): $(FRC) @@ -109,6 +97,7 @@ $(ZMATGEN): $(FRC) FRC: @FRC=$(FRC) +endif .PHONY: clean cleanobj cleanlib clean: cleanobj cleanlib @@ -117,9 +106,10 @@ cleanobj: cleanlib: rm -f $(TMGLIB) -ifeq ($(filter $(BUILD_SINGLE) $(BUILD_COMPLEX),1),) +ifneq ($(C_LAPACK), 1) slaran.o: slaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< -endif -ifeq ($(filter $(BUILD_DOUBLE) $(BUILD_COMPLEX16),1),) dlaran.o: dlaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +else +slaran.o: slaran.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< +dlaran.o: dlaran.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< endif diff --git a/lapack-netlib/TESTING/MATGEN/clagge.f b/lapack-netlib/TESTING/MATGEN/clagge.f index f0d86fb50e..4575608f69 100644 --- a/lapack-netlib/TESTING/MATGEN/clagge.f +++ b/lapack-netlib/TESTING/MATGEN/clagge.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/claghe.f b/lapack-netlib/TESTING/MATGEN/claghe.f index 70a1620246..723e0f2d14 100644 --- a/lapack-netlib/TESTING/MATGEN/claghe.f +++ b/lapack-netlib/TESTING/MATGEN/claghe.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clagsy.f b/lapack-netlib/TESTING/MATGEN/clagsy.f index 8c3885464d..b01d155653 100644 --- a/lapack-netlib/TESTING/MATGEN/clagsy.f +++ b/lapack-netlib/TESTING/MATGEN/clagsy.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clahilb.f b/lapack-netlib/TESTING/MATGEN/clahilb.f index 6c51bdb0cd..f33a055948 100644 --- a/lapack-netlib/TESTING/MATGEN/clahilb.f +++ b/lapack-netlib/TESTING/MATGEN/clahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/clakf2.f b/lapack-netlib/TESTING/MATGEN/clakf2.f index 9c87e4ccdd..5f03cc181c 100644 --- a/lapack-netlib/TESTING/MATGEN/clakf2.f +++ b/lapack-netlib/TESTING/MATGEN/clakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/clarge.f b/lapack-netlib/TESTING/MATGEN/clarge.f index 4c1d471370..77086a4815 100644 --- a/lapack-netlib/TESTING/MATGEN/clarge.f +++ b/lapack-netlib/TESTING/MATGEN/clarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clarnd.f b/lapack-netlib/TESTING/MATGEN/clarnd.f index 2236a2c7c1..df08d67966 100644 --- a/lapack-netlib/TESTING/MATGEN/clarnd.f +++ b/lapack-netlib/TESTING/MATGEN/clarnd.f @@ -58,8 +58,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== COMPLEX FUNCTION CLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -93,7 +90,7 @@ COMPLEX FUNCTION CLARND( IDIST, ISEED ) REAL ZERO, ONE, TWO PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TWO = 2.0E+0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/claror.f b/lapack-netlib/TESTING/MATGEN/claror.f index 6870c321aa..de5331e1f6 100644 --- a/lapack-netlib/TESTING/MATGEN/claror.f +++ b/lapack-netlib/TESTING/MATGEN/claror.f @@ -151,17 +151,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/clarot.f b/lapack-netlib/TESTING/MATGEN/clarot.f index b899c82745..901c0ee8a2 100644 --- a/lapack-netlib/TESTING/MATGEN/clarot.f +++ b/lapack-netlib/TESTING/MATGEN/clarot.f @@ -221,18 +221,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/clatm1.f b/lapack-netlib/TESTING/MATGEN/clatm1.f index 48d49897b3..05a90fdced 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm1.f +++ b/lapack-netlib/TESTING/MATGEN/clatm1.f @@ -130,17 +130,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.f b/lapack-netlib/TESTING/MATGEN/clatm2.f index 5bd6b9dc8d..cd2dc7ae47 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm2.f +++ b/lapack-netlib/TESTING/MATGEN/clatm2.f @@ -204,18 +204,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * * ===================================================================== COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, $ IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.f b/lapack-netlib/TESTING/MATGEN/clatm3.f index 42b4535538..863325b3f2 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm3.f +++ b/lapack-netlib/TESTING/MATGEN/clatm3.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -229,10 +227,9 @@ COMPLEX FUNCTION CLATM3( M, N, I, J, ISUB, JSUB, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.f b/lapack-netlib/TESTING/MATGEN/clatm5.f index 8b3fe50d9e..25904e45f8 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm5.f +++ b/lapack-netlib/TESTING/MATGEN/clatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ SUBROUTINE CLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/clatm6.f b/lapack-netlib/TESTING/MATGEN/clatm6.f index 74684dbcf6..632e896d8c 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm6.f +++ b/lapack-netlib/TESTING/MATGEN/clatm6.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/clatme.f b/lapack-netlib/TESTING/MATGEN/clatme.f index a06f9bfbd6..213a4b3bca 100644 --- a/lapack-netlib/TESTING/MATGEN/clatme.f +++ b/lapack-netlib/TESTING/MATGEN/clatme.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -301,10 +299,9 @@ SUBROUTINE CLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/clatmr.f b/lapack-netlib/TESTING/MATGEN/clatmr.f index e80c4a5145..34536d9b94 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmr.f +++ b/lapack-netlib/TESTING/MATGEN/clatmr.f @@ -480,8 +480,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -490,10 +488,9 @@ SUBROUTINE CLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/clatms.f b/lapack-netlib/TESTING/MATGEN/clatms.f index 9516f227f4..a1951216bb 100644 --- a/lapack-netlib/TESTING/MATGEN/clatms.f +++ b/lapack-netlib/TESTING/MATGEN/clatms.f @@ -324,18 +324,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -358,7 +355,7 @@ SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, COMPLEX CZERO PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. LOGICAL CSYM, GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/clatmt.f b/lapack-netlib/TESTING/MATGEN/clatmt.f index bdad1b7ba6..05eb5566a9 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmt.f +++ b/lapack-netlib/TESTING/MATGEN/clatmt.f @@ -332,18 +332,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND, DMAX @@ -366,7 +363,7 @@ SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, COMPLEX CZERO PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. COMPLEX C, CT, CTEMP, DUMMY, EXTRA, S, ST diff --git a/lapack-netlib/TESTING/MATGEN/dlagge.f b/lapack-netlib/TESTING/MATGEN/dlagge.f index 44b1c25b47..ffd11d2785 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagge.f +++ b/lapack-netlib/TESTING/MATGEN/dlagge.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/dlagsy.f b/lapack-netlib/TESTING/MATGEN/dlagsy.f index 1c811e9941..7ba58ee4f5 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/dlagsy.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/dlahilb.f b/lapack-netlib/TESTING/MATGEN/dlahilb.f index 5d0351f466..cf0712b51c 100644 --- a/lapack-netlib/TESTING/MATGEN/dlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/dlahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/dlakf2.f b/lapack-netlib/TESTING/MATGEN/dlakf2.f index d50b8ac9ac..76baefdcdd 100644 --- a/lapack-netlib/TESTING/MATGEN/dlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/dlakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/dlaran.f b/lapack-netlib/TESTING/MATGEN/dlaran.f index 16c9bf1d08..24f6e97278 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaran.f +++ b/lapack-netlib/TESTING/MATGEN/dlaran.f @@ -44,8 +44,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup list_temp * *> \par Further Details: @@ -67,10 +65,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLARAN( ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Array Arguments .. INTEGER ISEED( 4 ) diff --git a/lapack-netlib/TESTING/MATGEN/dlarge.f b/lapack-netlib/TESTING/MATGEN/dlarge.f index fc8bcc4bed..4f1c09477d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarge.f +++ b/lapack-netlib/TESTING/MATGEN/dlarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/dlarnd.f b/lapack-netlib/TESTING/MATGEN/dlarnd.f index cd7415cb7e..f41f2ceab8 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/dlarnd.f @@ -56,8 +56,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * *> \par Further Details: @@ -73,10 +71,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -91,7 +88,7 @@ DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) DOUBLE PRECISION ONE, TWO PARAMETER ( ONE = 1.0D+0, TWO = 2.0D+0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/dlaror.f b/lapack-netlib/TESTING/MATGEN/dlaror.f index a48129d25f..183aa00d0a 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaror.f +++ b/lapack-netlib/TESTING/MATGEN/dlaror.f @@ -139,17 +139,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/dlarot.f b/lapack-netlib/TESTING/MATGEN/dlarot.f index 6655fa4819..7337dc682c 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarot.f +++ b/lapack-netlib/TESTING/MATGEN/dlarot.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/dlatm1.f b/lapack-netlib/TESTING/MATGEN/dlatm1.f index cfb144b105..b0d8ffa3e3 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.f b/lapack-netlib/TESTING/MATGEN/dlatm2.f index d7a6d19f33..5a55addc36 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm2.f @@ -200,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * * ===================================================================== DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.f b/lapack-netlib/TESTING/MATGEN/dlatm3.f index 15f5ac080a..f5a4a66b30 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm3.f @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -226,10 +224,9 @@ DOUBLE PRECISION FUNCTION DLATM3( M, N, I, J, ISUB, JSUB, KL, KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.f b/lapack-netlib/TESTING/MATGEN/dlatm5.f index 37076efc84..429315b0d5 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ SUBROUTINE DLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/dlatm6.f b/lapack-netlib/TESTING/MATGEN/dlatm6.f index 462cce0b70..01941609cf 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm6.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/dlatm7.f b/lapack-netlib/TESTING/MATGEN/dlatm7.f index 70c2f98ba1..38c993dad7 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm7.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm7.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND diff --git a/lapack-netlib/TESTING/MATGEN/dlatme.f b/lapack-netlib/TESTING/MATGEN/dlatme.f index 2d124ef1f6..311f16e2da 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatme.f +++ b/lapack-netlib/TESTING/MATGEN/dlatme.f @@ -321,8 +321,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE DLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/dlatmr.f b/lapack-netlib/TESTING/MATGEN/dlatmr.f index a914481f72..efb016b91e 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmr.f @@ -461,8 +461,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -471,10 +469,9 @@ SUBROUTINE DLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/dlatms.f b/lapack-netlib/TESTING/MATGEN/dlatms.f index 11b9c03894..e6b9fbece2 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatms.f +++ b/lapack-netlib/TESTING/MATGEN/dlatms.f @@ -313,18 +313,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -344,7 +341,7 @@ SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, DOUBLE PRECISION ONE PARAMETER ( ONE = 1.0D0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/dlatmt.f b/lapack-netlib/TESTING/MATGEN/dlatmt.f index a5cf54e47a..bdd167f2d1 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmt.f @@ -323,18 +323,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND, DMAX @@ -354,7 +351,7 @@ SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, DOUBLE PRECISION ONE PARAMETER ( ONE = 1.0D0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP diff --git a/lapack-netlib/TESTING/MATGEN/slagge.f b/lapack-netlib/TESTING/MATGEN/slagge.f index 626039aa04..9627d563d8 100644 --- a/lapack-netlib/TESTING/MATGEN/slagge.f +++ b/lapack-netlib/TESTING/MATGEN/slagge.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/slagsy.f b/lapack-netlib/TESTING/MATGEN/slagsy.f index 5fa7484c45..dd319dadcd 100644 --- a/lapack-netlib/TESTING/MATGEN/slagsy.f +++ b/lapack-netlib/TESTING/MATGEN/slagsy.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/slahilb.f b/lapack-netlib/TESTING/MATGEN/slahilb.f index cb92db6db0..4dc8333463 100644 --- a/lapack-netlib/TESTING/MATGEN/slahilb.f +++ b/lapack-netlib/TESTING/MATGEN/slahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/slakf2.f b/lapack-netlib/TESTING/MATGEN/slakf2.f index d84d4d6c5f..ef9f90adf0 100644 --- a/lapack-netlib/TESTING/MATGEN/slakf2.f +++ b/lapack-netlib/TESTING/MATGEN/slakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/slaran.f b/lapack-netlib/TESTING/MATGEN/slaran.f index b0d18fccd7..586612d9f4 100644 --- a/lapack-netlib/TESTING/MATGEN/slaran.f +++ b/lapack-netlib/TESTING/MATGEN/slaran.f @@ -44,8 +44,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -67,10 +65,9 @@ * ===================================================================== REAL FUNCTION SLARAN( ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Array Arguments .. INTEGER ISEED( 4 ) diff --git a/lapack-netlib/TESTING/MATGEN/slarge.f b/lapack-netlib/TESTING/MATGEN/slarge.f index 3929489961..8bebf48d5d 100644 --- a/lapack-netlib/TESTING/MATGEN/slarge.f +++ b/lapack-netlib/TESTING/MATGEN/slarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/slarnd.f b/lapack-netlib/TESTING/MATGEN/slarnd.f index 15ae253688..c2d7a5cb2d 100644 --- a/lapack-netlib/TESTING/MATGEN/slarnd.f +++ b/lapack-netlib/TESTING/MATGEN/slarnd.f @@ -56,8 +56,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -73,10 +71,9 @@ * ===================================================================== REAL FUNCTION SLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -91,7 +88,7 @@ REAL FUNCTION SLARND( IDIST, ISEED ) REAL ONE, TWO PARAMETER ( ONE = 1.0E+0, TWO = 2.0E+0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/slaror.f b/lapack-netlib/TESTING/MATGEN/slaror.f index d58902110f..0fc0a7272d 100644 --- a/lapack-netlib/TESTING/MATGEN/slaror.f +++ b/lapack-netlib/TESTING/MATGEN/slaror.f @@ -139,17 +139,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/slarot.f b/lapack-netlib/TESTING/MATGEN/slarot.f index ed478cb21e..ab4c22ad76 100644 --- a/lapack-netlib/TESTING/MATGEN/slarot.f +++ b/lapack-netlib/TESTING/MATGEN/slarot.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/slatm1.f b/lapack-netlib/TESTING/MATGEN/slatm1.f index 8f9e164318..bd01cb620f 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm1.f +++ b/lapack-netlib/TESTING/MATGEN/slatm1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.f b/lapack-netlib/TESTING/MATGEN/slatm2.f index 2473f1f442..b259c333ea 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm2.f +++ b/lapack-netlib/TESTING/MATGEN/slatm2.f @@ -200,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * * ===================================================================== REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.f b/lapack-netlib/TESTING/MATGEN/slatm3.f index 18c2c07d5d..f4e8337344 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm3.f +++ b/lapack-netlib/TESTING/MATGEN/slatm3.f @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -226,10 +224,9 @@ REAL FUNCTION SLATM3( M, N, I, J, ISUB, JSUB, KL, KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.f b/lapack-netlib/TESTING/MATGEN/slatm5.f index 010413498d..37a629225c 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm5.f +++ b/lapack-netlib/TESTING/MATGEN/slatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ SUBROUTINE SLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/slatm6.f b/lapack-netlib/TESTING/MATGEN/slatm6.f index 57f660190d..b0d27f7dcd 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm6.f +++ b/lapack-netlib/TESTING/MATGEN/slatm6.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/slatm7.f b/lapack-netlib/TESTING/MATGEN/slatm7.f index 098d1c2b70..9f9863b00a 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm7.f +++ b/lapack-netlib/TESTING/MATGEN/slatm7.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND diff --git a/lapack-netlib/TESTING/MATGEN/slatme.f b/lapack-netlib/TESTING/MATGEN/slatme.f index 8309bcd341..049409ca56 100644 --- a/lapack-netlib/TESTING/MATGEN/slatme.f +++ b/lapack-netlib/TESTING/MATGEN/slatme.f @@ -321,8 +321,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -332,10 +330,9 @@ SUBROUTINE SLATME( N, DIST, ISEED, D, MODE, COND, DMAX, EI, $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/slatmr.f b/lapack-netlib/TESTING/MATGEN/slatmr.f index c2cedd21c7..124a6246a9 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmr.f +++ b/lapack-netlib/TESTING/MATGEN/slatmr.f @@ -461,8 +461,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -471,10 +469,9 @@ SUBROUTINE SLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/slatms.f b/lapack-netlib/TESTING/MATGEN/slatms.f index 349bfe2eb0..eb4f4b38ed 100644 --- a/lapack-netlib/TESTING/MATGEN/slatms.f +++ b/lapack-netlib/TESTING/MATGEN/slatms.f @@ -313,18 +313,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -344,7 +341,7 @@ SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, REAL ONE PARAMETER ( ONE = 1.0E0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/slatmt.f b/lapack-netlib/TESTING/MATGEN/slatmt.f index f69e1d6e55..f06dcc46c0 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmt.f +++ b/lapack-netlib/TESTING/MATGEN/slatmt.f @@ -323,18 +323,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND, DMAX @@ -354,7 +351,7 @@ SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, REAL ONE PARAMETER ( ONE = 1.0E0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP diff --git a/lapack-netlib/TESTING/MATGEN/zlagge.f b/lapack-netlib/TESTING/MATGEN/zlagge.f index c9d2bc2402..8c2a9676ed 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagge.f +++ b/lapack-netlib/TESTING/MATGEN/zlagge.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/zlaghe.f b/lapack-netlib/TESTING/MATGEN/zlaghe.f index 506035061e..fb77cfb4ca 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaghe.f +++ b/lapack-netlib/TESTING/MATGEN/zlaghe.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlagsy.f b/lapack-netlib/TESTING/MATGEN/zlagsy.f index e030a5f18e..adbb41e39e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/zlagsy.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlahilb.f b/lapack-netlib/TESTING/MATGEN/zlahilb.f index cb774abd9e..f9fee6de70 100644 --- a/lapack-netlib/TESTING/MATGEN/zlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/zlahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/zlakf2.f b/lapack-netlib/TESTING/MATGEN/zlakf2.f index 4260d7caae..b6b9ca4a7b 100644 --- a/lapack-netlib/TESTING/MATGEN/zlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/zlakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/zlarge.f b/lapack-netlib/TESTING/MATGEN/zlarge.f index 4e1de110e1..f899bfd3ef 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarge.f +++ b/lapack-netlib/TESTING/MATGEN/zlarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlarnd.f b/lapack-netlib/TESTING/MATGEN/zlarnd.f index 2b0498bd3c..6e66d2bb2e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/zlarnd.f @@ -58,8 +58,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -93,7 +90,7 @@ COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) DOUBLE PRECISION ZERO, ONE, TWO PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/zlaror.f b/lapack-netlib/TESTING/MATGEN/zlaror.f index b8c4fdfa51..8ae8f9dc61 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaror.f +++ b/lapack-netlib/TESTING/MATGEN/zlaror.f @@ -151,17 +151,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/zlarot.f b/lapack-netlib/TESTING/MATGEN/zlarot.f index ebb5d98f90..901b5ddbd3 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarot.f +++ b/lapack-netlib/TESTING/MATGEN/zlarot.f @@ -221,18 +221,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/zlatm1.f b/lapack-netlib/TESTING/MATGEN/zlatm1.f index a829d91191..c916c8ca19 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm1.f @@ -130,17 +130,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.f b/lapack-netlib/TESTING/MATGEN/zlatm2.f index ea93431e79..af0151587e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm2.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * * ===================================================================== COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.f b/lapack-netlib/TESTING/MATGEN/zlatm3.f index 25d6233f3d..e7fab607cf 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm3.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -229,10 +227,9 @@ COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.f b/lapack-netlib/TESTING/MATGEN/zlatm5.f index 4ab3e276b3..07eeb6a1f2 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ SUBROUTINE ZLATM5( PRTYPE, M, N, A, LDA, B, LDB, C, LDC, D, LDD, $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/zlatm6.f b/lapack-netlib/TESTING/MATGEN/zlatm6.f index f000f52286..104becfd1b 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm6.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/zlatme.f b/lapack-netlib/TESTING/MATGEN/zlatme.f index fee1eca6e4..a081353ce9 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatme.f +++ b/lapack-netlib/TESTING/MATGEN/zlatme.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -301,10 +299,9 @@ SUBROUTINE ZLATME( N, DIST, ISEED, D, MODE, COND, DMAX, $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/zlatmr.f b/lapack-netlib/TESTING/MATGEN/zlatmr.f index 56285e1f44..935d717e7b 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmr.f @@ -480,8 +480,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -490,10 +488,9 @@ SUBROUTINE ZLATMR( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/zlatms.f b/lapack-netlib/TESTING/MATGEN/zlatms.f index 9bad548604..b8421eede1 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatms.f +++ b/lapack-netlib/TESTING/MATGEN/zlatms.f @@ -324,18 +324,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -358,7 +355,7 @@ SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, COMPLEX*16 CZERO PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN, ZSYM diff --git a/lapack-netlib/TESTING/MATGEN/zlatmt.f b/lapack-netlib/TESTING/MATGEN/zlatmt.f index 257c2627e3..25036483c0 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmt.f @@ -332,18 +332,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND, DMAX @@ -366,7 +363,7 @@ SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, COMPLEX*16 CZERO PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. COMPLEX*16 C, CT, DUMMY, EXTRA, S, ST, ZTEMP diff --git a/lapack-netlib/TESTING/ced.in b/lapack-netlib/TESTING/ced.in index ef6c9e36e5..283debb941 100644 --- a/lapack-netlib/TESTING/ced.in +++ b/lapack-netlib/TESTING/ced.in @@ -1,5 +1,5 @@ CES Data for the Complex Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator CES 21 Use all matrix types CEV Data for the Complex Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator CEV 21 Use all matrix types CSX Data for the Complex Nonsymmetric Schur Form Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/dbal.in b/lapack-netlib/TESTING/dbal.in index c00fe3e83b..828629b150 100644 --- a/lapack-netlib/TESTING/dbal.in +++ b/lapack-netlib/TESTING/dbal.in @@ -209,6 +209,6 @@ DBL: Tests DGEBAL 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.63043209914231165391D-03 0.10000000000000000000D+01 0.79310682416114036641D+03 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.12608641982846233078D-02 0.10000000000000000000D+01 - 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291; + 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291 0 diff --git a/lapack-netlib/TESTING/dec.in b/lapack-netlib/TESTING/dec.in index 50837a1a23..4a2aa52a13 100644 --- a/lapack-netlib/TESTING/dec.in +++ b/lapack-netlib/TESTING/dec.in @@ -948,3 +948,158 @@ DEC Key indicating type of input 1.20000D+01 -1.40000D+01 3.60000D+01 -2.50000D+01 3.60372D-02 7.96134D-02 0 0 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 4 1 3 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 + 0.0D+00 0.0D+00 1.0D+00 1.0D+00 + 0.0D+00 0.0D+00 1.0D+00 1.0D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 4 1 3 + 7.214055213169724D-01 9.376135742769982D-01 5.318280700344581D-01 9.787531445044610D-01 + -9.376135742769982D-01 7.214055213169724D-01 7.801161815573352D-01 5.734592675974027D-01 + 0.000000000000000D+00 0.000000000000000D+00 7.214055213169726D-01 9.376135742769983D-01 + 0.000000000000000D+00 0.000000000000000D+00 -9.376135742769983D-01 7.214055213169726D-01 + 1.000000000000000D+00 0.000000000000000D+00 5.589642506777136D-01 6.410964218208657D-01 + 0.000000000000000D+00 1.000000000000000D+00 4.839061798610604D-01 6.207808731846947D-01 + 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00 0.000000000000000D+00 + 0.000000000000000D+00 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00 + 0 0 0 \ No newline at end of file diff --git a/lapack-netlib/TESTING/ded.in b/lapack-netlib/TESTING/ded.in index 09f698e423..d0c26853df 100644 --- a/lapack-netlib/TESTING/ded.in +++ b/lapack-netlib/TESTING/ded.in @@ -1,5 +1,5 @@ DEV Data file for Real Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator DEV 21 Use all matrix types DES Data file for Real Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator DES 21 Use all matrix types DVX Data file for Real Nonsymmetric Eigenvalue Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/sec.in b/lapack-netlib/TESTING/sec.in index 441e23d7f8..0b2f4e68c7 100644 --- a/lapack-netlib/TESTING/sec.in +++ b/lapack-netlib/TESTING/sec.in @@ -948,3 +948,167 @@ SEC Key indicating type of input 1.20000E+01 -1.40000E+01 3.60000E+01 -2.50000E+01 3.60372E-02 7.96134E-02 0 0 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 4 1 3 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 + 0.0E+00 0.0E+00 1.0E+00 1.0E+00 + 0.0E+00 0.0E+00 1.0E+00 1.0E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 4 1 3 + 5.0894040E-01 7.6143250E+00 3.6633062E-01 3.2759300E-01 + -7.6143250E-02 5.0894040E-01 7.0241922E-01 3.0739143E-01 + 0.0000000E+00 0.0000000E+00 4.2679306E+02 1.3142129E+03 + 0.0000000E+00 0.0000000E+00 -1.3142129E+01 4.2679306E+02 + 1.0000000E+00 0.0000000E+00 8.5444570E-01 9.6456930E-02 + 0.0000000E+00 1.0000000E+00 9.0731663E-01 9.8456895E-01 + 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00 + 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00 + 4 1 3 + 3.9705437E-01 3.7467423E-01 9.3354374E-01 4.4120440E-01 + -3.7467424E-03 3.9705437E-01 8.0811077E-01 7.2155964E-01 + 0.0000000E+00 0.0000000E+00 7.5208154E+02 4.0743164E+03 + 0.0000000E+00 0.0000000E+00 -4.0743164E+01 7.5208154E+02 + 1.0000000E+00 0.0000000E+00 2.3644200E-01 5.4977387E-01 + 0.0000000E+00 1.0000000E+00 5.1509380E-01 1.7662533E-01 + 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00 + 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00 + 0 0 0 diff --git a/lapack-netlib/TESTING/sed.in b/lapack-netlib/TESTING/sed.in index 2a0a4f77eb..56469179a2 100644 --- a/lapack-netlib/TESTING/sed.in +++ b/lapack-netlib/TESTING/sed.in @@ -1,5 +1,5 @@ SEV Data file for the Real Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator SEV 21 Use all matrix types SES Data file for the Real Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator SES 21 Use all matrix types SVX Data file for the Real Nonsymmetric Eigenvalue Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/zed.in b/lapack-netlib/TESTING/zed.in index 538d8b0a22..6285a1c200 100644 --- a/lapack-netlib/TESTING/zed.in +++ b/lapack-netlib/TESTING/zed.in @@ -1,5 +1,5 @@ ZES Data for the Complex Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator ZES 21 Use all matrix types ZEV Data for the Complex Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator ZEV 21 Use all matrix types ZSX Data for the Complex Nonsymmetric Schur Form Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios